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

Вниз

Помогите расположить текст вертикально.   Найти похожие ветки 

 
Axenow ©   (2002-04-21 12:41) [0]

Есть программа она должна выводить огромное количество отчетов, и часть отчетов должны иметь текст, который повернут на 90 градусов.... Пользуюсь QuickRep, но если надо пересяду на другие компоненты по отчетам..
ОЧЕНЬ НАДО!


 
Anatoly Podgoretsky ©   (2002-04-21 12:45) [1]

На сайте производителя


 
Andrey007   (2002-04-23 09:35) [2]

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 := RUSSIAN_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 RotateTextOut(Text: String; X,Y,Angle: Integer; Canva: TCanvas);
begin
Canva.Font.Handle:=CreateRotatedFont(Font,Angle);
Canva.TextOut(X,Y,Text);
Canva.Font.Handle:=CreateRotatedFont(Font,0);
end;

Поворачивает только векторные шрифты (True Type). А вообще есть компоненты, в которых есть возможность выводить текст под углом - типа TLabel и т.д.



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
3-17490
Vitek_m
2002-04-12 05:09
2002.05.06
ODAC/DAO , DBX или стандартные компоненты для доступа к БД


1-17550
sergey32
2002-04-23 15:58
2002.05.06
При редактировании года в DateTimePicker приложение виснет


3-17511
AlexA
2002-04-11 12:34
2002.05.06
Транзакции в IB


4-17729
Slider-DSP
2002-02-23 14:31
2002.05.06
Как погасить монитор?


3-17481
yyy
2002-04-12 12:58
2002.05.06
Можно как-либо вставить в бд поля её типа?