Lodret tekst

procedure MakeHesteMuleHaar(Text: String; Canvas : TCanvas; Rotation : Integer);
var
  Log: TLogFont;
  HFnt: HFont;
begin
  GetObject (Canvas.Font.Handle, SizeOf(Log), @Log);
  Log.lfEscapement:= Rotation * 10;
  Log.lfOutPrecision:= OUT_TT_ONLY_PRECIS;
  HFnt:= CreateFontIndirect (Log);
  SelectObject (Canvas.Handle, HFnt);
  Windows.TextOut (Canvas.Handle, 295, 210, @Text[1], Length (Text));
  DeleteObject (HFnt);
end;


Jens B

Den skal jeg lige tykke på ...

Teksten kommer på skærmen men er stadig vandret og ikke lodret. Kan der være nogle faldgrupper når man arbejder med et TPanel.
Ændringer i Log.lfEscapement påvirker overhovedet ikke tekten.
Men at teksten kommer frem tyder jo på det virker.

Frit ændret efter Borrisholt:
procedure MakeHesteMuleHaar(Text: String);
var
  Log: TLogFont;
  HFnt: HFont;
begin
  GetObject (FormMain.PanelGLScene.Font.Handle, SizeOf(Log), @Log);
  Log.lfEscapement:= 90 * 10; //Rotate 90 degrees
  Log.lfOutPrecision:= OUT_TT_ONLY_PRECIS;
  HFnt:= CreateFontIndirect (Log);
  SelectObject (FormMain.PanelGLScene.Handle, HFnt);
  Windows.TextOut (FormMain.PanelGLScene.Handle, 295, 210, @Text[1], Length (Text));

  glColor3ub(0,255,0);
  glRasterPos3f(1,1,10);

  glCallLists(length(Text),GL_UNSIGNED_BYTE,pointer(Text));

  DeleteObject (HFnt);
end;