habe den Beitrag " TLabel vertikal " verfolgt.

einen Text in einem Label vertikal anzuordnen, bekomme ich nicht hin.
einen Text in einer Image funktioniert.

wo ist hier der Fehler ?

Aufruf Image:

TRect R1 = Rect (0, 0, Image4->Width, Image4->Height);
AdvTextRect("Siegfried", Image4->Canvas, R1, 0, Image4->Height, "HumstSlab712 Blk BT", 90);

Aufruf Label:

TRect R2 = Rect (0, 0, Label2->Width, Label2->Height);
AdvTextRect("9875", Label2->Canvas, R2, 0, Label2->Height, "HumstSlab712 Blk BT", 90);

Routine:

void TFrameLinks1::AdvTextRect(AnsiString str,
                               TCanvas *pCanvas,
                               TRect R,
                               int X,
                               int Y,
                               String myFont,
                               double Angle)
//
//
//              erstellt am:    03. Juni 2005
//              geändert am:    03. Juni 2005
//
//
{
//
  int fontweight; 
  DWORD fontitalic, fontunderline, fontstrikeout; 
  // create font with specified angle 
  // bold? 
  if (pCanvas->Font->Style.Contains(fsBold))
    fontweight = FW_BOLD; 
  else 
    fontweight = FW_NORMAL;
  // italic? 
  if (pCanvas->Font->Style.Contains(fsItalic)) 
    fontitalic = true; 
  else 
    fontitalic = false; 
  // underline? 
  if (pCanvas->Font->Style.Contains(fsUnderline)) 
    fontunderline = true; 
  else 
    fontunderline = false; 
  // strike out? 
  if (pCanvas->Font->Style.Contains(fsStrikeOut))
    fontstrikeout = true; 
  else 
    fontstrikeout = false;
//
pCanvas->Font->Name = myFont;   
//
  HFONT hFont = CreateFont(pCanvas->Font->Height, 0, Angle*10, Angle*10, fontweight,
                    fontitalic, fontunderline, fontstrikeout, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, 
                    CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, 
                    pCanvas->Font->Name.c_str()); 
  // assign created font to canvas 
  SelectObject(pCanvas->Handle, hFont); 
  // draw text on canvas 
  pCanvas->TextRect(R, X, Y, str); 
  // free font 
  DeleteObject(hFont); //
//
//
return ;
}

Gruß Siegfried

In Zukunft Nachfragen zu einem Thema aber bitte im ursprünglichen Thread stellen.