[Delphi] pytanie do ZIOMBERA, lub kogos kto zna odpowiedz ;)

W ktoryms poscie ZIOMBER napisal procke do kolorowania buttona :

&gtvar
&gtc : Tcanvas;
&gtkolor_buttona : TColor;
&gtkolor_3d_left : Tcolor;
&gtkolor_3d_top : TColor;
&gtcapt : Tlabel;
&gtleft, top : integer;
&gtbegin
&gtcapt := TLabel.create(self);
&gtcapt.Parent := nil;
&gt*to zmienia kolor buttona :]
&gtkolor_buttona := clblue;
&gtkolor_3d_left := clred;
&gtkolor_3d_top := cllime;
&gtc:=TCanvas.Create;
&gtc.Handle:=GetDC(button1.Handle);
&gtc.Brush.Color := kolor_buttona;
&gtc.pen.Color := kolor_buttona;
&gtc.Rectangle(1,1,button1.width - 1,button1.height - 2);
&gtc.MoveTo(0,0);
&gtc.Pen.color := kolor_3d_left;
&gtc.lineto(button1.width,0);
&gtc.MoveTo(0,0);
&gtc.lineto(0,button1.height - 1);
&gtc.pen.color := kolor_3d_top;
&gtc.moveto(0,button1.height);
&gtc.lineto(button1.width,button1.height);
&gtc.moveto(button1.width,button1.height); * &lt-- tak dla pewności
&gtc.lineto(button1.width,1);
&gtc.pen.color := clbtnshadow;
&gtc.moveto(button1.width - 2,1);
&gtc.lineto(button1.width - 2,button1.height - 2);
&gtc.moveto(button1.width - 2,button1.height - 2); -||-
&gtc.lineto(2,button1.height - 2);
&gtale gdzie jest caption? - to już za chwile :]
&gtcapt.font := button1.Font;
&gtcapt.Caption := button1.caption;
&gtleft := (button1.width - capt.width) div 2;
&gttop := (button1.height - capt.height) div 2;
&gtc.TextOut(left,top,button1.caption);
&gtcapt.free;
&gtc.free;
&gtend;

ale jak mozna zrobic ,aby byl on kolorowany Od razu po starcie aplikacji ?
ta procka wpakowana do: OnShow, OnPaint, OnCreate nie dziala, jedynie pod jakims OnClick :(
--Source of life - Programming,
Skateboarding,
Metal.

Moze zrob to w pliku projektu, miedzy Application.CreateForm a Appliaction.Run--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

Juz probowalem i nic z tego :(
musi byc jakis sposob !!! hmm... --Source of life - Programming,
Skateboarding,
Metal.

A może w Create Timer.Enabled := True, w timerze procedura.
Na koniec procedury Timer.Enabled := False;--Pozdrowienia dla całego FORUM !!!

Marco_99

I jeszcae jedno, po wyłączeniu Timera nie zaszkodzi:

Form1.Refresh;--Pozdrowienia dla całego FORUM !!!

Marco_99

yeahhhhhhhhhhhh :-)--Source of life - Programming,
Skateboarding,
Metal.