-
Как кнопку расскрасить? Пишу:
unit Unit2;
interface
uses StdCtrls,Graphics;
type ColorButton=class(TButton)
private
FColor: TColor;
procedure SetColor(const Value: TColor);
public
property Color:TColor read FColor write SetColor;
end;
implementation
procedure ColorButton.SetColor(const Value: TColor);
begin
FColor := Value;
end;
end.
А дальше что делать?
-
> [0] Костик (25.04.08 15:15)
> А дальше что делать?
Как вариант, начать с начала и первым делом поменять предка...
Или кровь из носа нужно TButton покрасить.... и его можно, но это будет через Ж...
А вообще - не плохое начало. Типа уже почти готово... осталось чуть-чуть :)
-
-
> {RASkov} © (25.04.08 18:01) [1]
Плохое начало. Перекрыто родное свойство Color. Глюки будут.
-
> [3] Восхищенный (25.04.08 18:38)
> Перекрыто родное свойство Color
Согласен. Нужно было просто "поднять" его от TControl'a...
Но я собсно не про это имел в виду, а вообще такое начало... т.е. добавили необходимое свойство и все заработало.... почти :)
Да и вообще последняя строка - это шутка была.
-
> easy © (25.04.08 18:25) [2]
> http://dfc.com.ru/?sid=2&id=14&itemid=52
оригинальный способ)))
много писанины а есть че попроще типа:
> Как вариант, начать с начала и первым делом поменять предка.
> ..
?
-
Предложенный вариант - единственный, поскольку TButton - обёртка над виндосовским контролом, и рисует сама винда.
Определитесь, вам нужна кнопка с фокусом или нет ?
-
с фокусом... ну как обычная только цвет я чтоб мог задать
-
Тогда только собственная отрисовка
-
> Тогда только собственная отрисовка
Так что - реализовывать тот пример?
-
Конечно, если самостоятельно не получается
-
> много писанины а есть че попроще типа:
а че попроще - не парься
Есть новые 
Нет новых [134464 +62][b:0][p:0.001]