tilpas tekst

Canvas.TextWidth(\'Hej med dig\');

og hvordan skal jeg difinere tekstenstørrelsen på den måde? Jeg havde tænkt på dét, men det løser kun problemet halvt.

while Canvas.TextWidth(\'Hej med dig\') < 120 do
Canvas.Font.Size := Canvas.Font.Size + 1;

/Martin

den er i vinkel du!

hmm, hvorfor kan jeg ikk få det til at virke?
procedure TForm1.FormCreate(Sender: TObject);
begin
while Label1.Canvas.TextWidth(\'Hej med dig\') < 120 do
Label1.Canvas.Font.Size := Label1.Canvas.Font.Size + 1;

end;

DERFOR !

  Label1.Caption := \'Hej med dig\';
  Canvas.Font.Size := Label1.Font.Size;
  while Canvas.TextWidth(\'Hej med dig\') < 120 do
  begin
      Label1.Font.Size := Label1.Font.Size + 1;
      Label1.Refresh;
      Canvas.Font.Size := Label1.Font.Size;
  end;

hvorfor ikke bare:

while Label1.Canvas.TextWidth(\'Hej med dig\') < 120 do
Label1.Font.Size := Label1.Font.Size + 1; ??????

det virker fint hos mig

hvorfor virker det så ikke hos cautoo ??

fordi cautoo siger: Label1.Canvas... hvorimod jeg siger: Label1.Font... altså springer Canvas delen over...

Klart, det havde lige overset.

/Martin