| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вывод текста под углом [D7]

SAI ©   (2005-03-03 14:13:00) 

Подскажите в чем ошибка, делаю так:
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;

---

SAI   (2005-03-03 15:28:00) [1]

MBoспасибо.

---

Anatoly Podgoretsky   (2005-03-03 14:41:00) [2]

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

---

MBo   (2005-03-03 14:22:00) [3]

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

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

---

SAI   (2005-03-03 14:19:00) [4]

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

---

clickmaker   (2005-03-03 14:14:00) [5]

> SAI ©   (03.03.05 14:13)  

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

---

Наверх