TSpeedButton: можно ли изменить её цвет?

← →
Upset.. (2003-04-04 20:15) [0]

← →
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]

пока ты на ней не щёлкнешь она не должна "стираться" после закраски(исключаю здесь другие факторы которые вызывают перерисовку)

Я думаю SpeedButton, как и любой TGraphicControl перересововается ПОСЛЕ события OnPaint окна соответственно в никакие манипуляции в OnPaint не к чему не приведут.
Скорее всего надо перекрывать SpeedButton.Paint

Проще всего. У SpeedButton canvas"a нету. Я делаю так: кладу ее на Tpanel такого же размера. Панели назначаю цвет, а SpeedButton.transparent cтавлю в true. Если не поможет, то надо будет SpeedButton.flat тоже поставить в true. Правда кнопка будет выглядеть по другому...

TSpeedButton: можно ли изменить её цвет? Найти похожие ветки