1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| procedure TForm1.FormCreate(Sender: TObject);
var
aRect: TRect;
slen,
blen,
vLen: Integer;
begin
chaine := ('Déclarez votre flamme amoureuse en vous inspirant de 6 poèmes ');
with StatusBar1.Canvas do
begin
aRect := Rect(0,0,1,1);
Brush.Color := clblack;
Font.Color := claqua;
Font.Size := 12; //Height StatusBar = 26
DrawText(StatusBar1.Canvas.Handle, ' ', -1, aRect, DT_VCENTER or DT_CALCRECT);
blen := aRect.Right;
aRect := Rect(0,0,1,1);
DrawText(StatusBar1.Canvas.Handle, PChar(Chaine), -1, aRect, DT_VCENTER or DT_CALCRECT);
slen := aRect.Right;
vlen := StatusBar1.panels[0].Width - slen;
if vlen >= blen then
Chaine := Chaine + DupeString(' ', vlen div blen + 1);
StatusBar1.panels[0].Text := Chaine;
end;
end; |
Partager