Скачать: CL | DM;

Вывод текста под углом   Найти похожие ветки 

← →
SAI ©   (2005-03-03 14:13) [0]

Подскажите в чем ошибка, делаю так:
function CreateRotatedFont(F : TFont; Angle : Integer) : hFont;
 {-create a rotated font based on the font object F}
var
 LF : TLogFont;
begin
 FillChar(LF, SizeOf(LF), #0);
 with LF do begin
   lfHeight           := F.Height;
   lfWidth            := 0;
   lfEscapement       := Angle*10;
   lfOrientation      := 0;
   if fsBold in F.Style then
     lfWeight         := FW_BOLD
   else
     lfWeight         := FW_NORMAL;
   lfItalic           := Byte(fsItalic in F.Style);

   lfUnderline        := Byte(fsUnderline in F.Style);
   lfStrikeOut        := Byte(fsStrikeOut in F.Style);
   lfCharSet          := DEFAULT_CHARSET;
   StrPCopy(lfFaceName, F.Name);
   lfQuality          := DEFAULT_QUALITY;
   {everything else as default}
   lfOutPrecision     := OUT_DEFAULT_PRECIS;
   lfClipPrecision    := CLIP_DEFAULT_PRECIS;
   case F.Pitch of
     fpVariable : lfPitchAndFamily := VARIABLE_PITCH;
     fpFixed    : lfPitchAndFamily := FIXED_PITCH;

   else
     lfPitchAndFamily := DEFAULT_PITCH;
   end;
 end;
 Result := CreateFontIndirect(LF);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Font.Handle:=CreateRotatedFont(Form1.Canvas.Font,90);
Form1.Canvas.TextOut(10,10,"sewr");
end;

---

← →
clickmaker ©   (2005-03-03 14:14) [1]

> SAI ©   (03.03.05 14:13)  

а в чем проявляецца ошибка-то?

---

← →
SAI ©   (2005-03-03 14:19) [2]

Текс не поварачивается, а выводится как всегда...

---

← →
MBo ©   (2005-03-03 14:22) [3]

шрифт должен быть TTF (например, Arial)

и lfOrientation  стоит выставить так же, как lfEscapement

---

← →
Anatoly Podgoretsky ©   (2005-03-03 14:41) [4]

Не та конференция.

---

← →
SAI ©   (2005-03-03 15:28) [5]

MBo спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c