Labeltext vertikal

Beppo

Hallo,

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

Jansen

Funktioniert völlig problemlos auch mit TLabel.
Du solltest natürlich sicherstellen, dass das Label auch entsprechend gross dimensioniert ist, um etwas anzeigen zu können.

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