Hej udd'ere.
Jeg er lige igang med at lave en exe.fil der skal kunne bruges som en autorun program på en backup cd. Men da min baggrundsfarve ikke er normal da jeg bruger dette kode tip:
Fadeeffekt på TForms
Den fra installationsprogrammer kendte fade effekt brugt på en TForm...
procedure TForm1.FormPaint(Sender: TObject);
var
row, ht: Integer;
begin
// If using this method on a resizeable form you should call refresh in the
// OnResize event!
if not (Sender is TCustomForm) then exit;
ht := ((Sender as TCustomForm).ClientHeight + MAXBYTE) div 256;
for Row := 0 to MAXBYTE do
begin
with (Sender as TForm).Canvas do
begin
// R G B
// ex: RGB(255 , 255 - Row , Row);
// RGB(row div 3 + 64, row div 2 , row);
// RGB(0 , (255-row) div 2, 255 - row);
Brush.Color := RGB(0 , row div 2 , row);
FillRect(Rect(0,
Row * Ht,
(Sender as TCustomForm).ClientWidth,
(Row + 1) * Ht));
end;
end;
end;
I ørvigt et godt tip.
Men da jeg satte en label på opdagede jeg at dens bg er grå
Findes der en funtion der gør labelens funktion usynlig så den automatisk vil få formens bg?
Og virker den også til andre kompomenter?
Jeg kommer muligvis med flere spr. senere i dag eller i morgen.
Ps. Svares hurtigt muligt.
For jeg venter på det
Theis F. Hinz
(Shafh)
Theisf@stofanet.dk
Man kommer aldrig videre, hvis alle er enige...