Текущий архив: 2003.04.17;
Скачать: CL | DM;
Вниз
TSpeedButton: можно ли изменить её цвет? Найти похожие ветки
← →
Upset.. (2003-04-04 20:15) [0]TSpeedButton: можно ли изменить её цвет?
← →
GuestRamzes (2003-04-04 22:48) [1]Да, вроде надо через канвасу... TCanvas
← →
___ALex___ © (2003-04-05 00:43) [2]канваса нету у SpeedButton-а
используй FillRect(Form1.Canvas.Handle, ...)
Rect кнопки будет
Rect(Form1.Left + SpeedButton1.Left, Form1.Top + SpeddButton1.Top, Form1.Left + SpeedButton1.Width, Form1.Top + SpeddButton1.Height)...
← →
jack128 © (2003-04-05 01:08) [3]а кроме того можно в TSpeedButton.Glyph загрузить картинку определенного цвета
2 ___ALex___ © (05.04.03 00:43) вроде не помогает. Наверно после отрисовки OnPaint формы speedbutton сново себя перерисововает в стандартный цвет
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color := clBlack;
Canvas.FillRect(Rect(SpeedButton1.Left,
SpeedButton1.Top,
SpeedButton1.Left+SpeedButton1.Width,
SpeedButton1.Top+SpeedButton1.Height));
end;
← →
___ALex___ © (2003-04-05 01:23) [4]пока ты на ней не щёлкнешь она не должна "стираться" после закраски(исключаю здесь другие факторы которые вызывают перерисовку)
← →
jack128 © (2003-04-05 12:47) [5]Я думаю SpeedButton, как и любой TGraphicControl перересововается ПОСЛЕ события OnPaint окна соответственно в никакие манипуляции в OnPaint не к чему не приведут.
Скорее всего надо перекрывать SpeedButton.Paint
← →
FlyingHero © (2003-04-05 13:16) [6]Проще всего. У SpeedButton canvas"a нету. Я делаю так: кладу ее на Tpanel такого же размера. Панели назначаю цвет, а SpeedButton.transparent cтавлю в true. Если не поможет, то надо будет SpeedButton.flat тоже поставить в true. Правда кнопка будет выглядеть по другому...
Страницы: 1 вся ветка
Текущий архив: 2003.04.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
