Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];
ВнизВывод текста под углом Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c