разработка компонент

← →
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 или другого подходящего
> предка (в зависимости от

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

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