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

разработка компонент   Найти похожие ветки 

← →
spirit   (2003-04-18 00:12) [0]

как создать свою кнопку в DELPHI, внешний вид которой отличался бы от стандартной WINDOWS?

---

← →
SergeN ©   (2003-04-18 07:41) [1]

type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
procedure ButtonState(State:boolean);

.................

procedure TForm1.ButtonState(State:boolean);
begin

with PaintBox1.Canvas do
begin
if State then
begin
Pen.Width:=1;

MoveTo(PaintBox1.Width div 2,0);

Pen.Color:=clgray;
LineTo(0,PaintBox1.Height-1);

Pen.Color:=clwhite;
LineTo(PaintBox1.Width,PaintBox1.Height-1);
LineTo(PaintBox1.Width div 2,0);
end
else
begin
Pen.Width:=1;

MoveTo(PaintBox1.Width div 2,0);

Pen.Color:=clwhite;
LineTo(0,PaintBox1.Height-1);

Pen.Color:=clgray;;
LineTo(PaintBox1.Width,PaintBox1.Height-1);
LineTo(PaintBox1.Width div 2,0);
end;
end; //for if
end;

Коментарии: ButtonState(false)-рисует выпуклую треугольную кнопку, ButtonState(true)-рисует утопленную.
Соответственно, вставляй то что надо в PaintBox1.OnMouseDown и PaintBox1.OnMouseUp.

---

← →
Mike_Goblin ©   (2003-04-18 09:16) [2]

>как создать свою кнопку в DELPHI, внешний вид которой >отличался бы от стандартной WINDOWS?

отличающейся чем? размером, цветом, формой, запахом? :)))
Создать класс наследник от TButton или другого подходящего предка (в зависимости от требуемых отличий)

---

← →
Anatoly Podgoretsky ©   (2003-04-18 11:00) [3]

Будет одним попугаем больше.

---

← →
malkolinge ©   (2003-04-18 11:35) [4]

> Создать класс наследник от TButton или другого подходящего
> предка (в зависимости от


Надо срочно курс статей по круглым кнопкам !

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.009 c