Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Не подскажете,а?   Найти похожие ветки 

 
The_Vizit0r   (2002-12-19 19:31) [0]

Не подскажете,а? Как прорисовать в имайдже текст по окружности?


 
Сатир ©   (2002-12-19 21:36) [1]

Как вывести на Canvas надпись под углом?
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;

...


{create the rotated font}
if FontAngle <&tg; 0 then
Canvas.Font.Handle := CreateRotatedFont(Font, FontAngle);
...
Вращаются только векторные шрифты.



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

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.024 c
1-99049
Лана Розанова
2002-12-19 11:38
2002.12.30
Ole объекты


14-99270
^Sanya
2002-12-07 20:03
2002.12.30
Неужели Delphi7 так много жрёт???


7-99375
sancho
2002-09-30 15:25
2002.12.30
Как узнать температуру винчестера?


3-98952
gunner
2002-12-06 11:24
2002.12.30
Проблема вызова функции из сервиса соединения с БД из DLL


6-99234
alexnaro
2002-10-31 13:21
2002.12.30
Как проверить существование e-mail адреса?