Lodret Label

http://www.delphipages.com/result.cfm?ID=1395

Jeg vil meget gerne, hvis det er noget der i forvejen er i D6. Det er en del af et meget større program som jeg ikke vil forurene med forskellige 3 parts components. Jeg kan ikek forestille mig andet end at der allerede er en måde at gøre det i D6.

Hej Justin

Det kan laves uden brug af componenter
Prøv dette:

procedure RotateText(MyText:string;Angel:Integer;TextLeft:integer;TextTop:integer);
var
  lf : TLogFont;
  tf : TFont;
begin
  with Form1.Canvas do
  begin
    Font.Name := 'Arial';
    Font.Size := 24;
    tf := TFont.Create;
    try
      tf.Assign(Font);
      GetObject(tf.Handle, sizeof(lf), @lf);
      lf.lfEscapement := Angel*10;
      lf.lfOrientation := Angel*10;
      SetBkMode(Handle, TRANSPARENT);
      tf.Handle := CreateFontIndirect(lf);
      Font.Assign(tf);
    finally
    tf.Free;
    end;
    TextOut(TextLeft, textTop, MyText);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RotateText('Dette er min tekst',90,300,300);  //RotateText(tekst;vinkel;left,top)
end;

Noce