Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c