| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вывести текст вертикально?
smaller © (2006-12-18 12:40:00)Есть ли какие-нибудь простые средства для вертикального вывода текста?
Anatoly Podgoretsky (2006-12-18 15:13:00) [1]> vain (18.12.2006 15:10:05) [5]
У хакеров учился?
vain (2006-12-18 15:10:00) [2]А если выводить в лабеле строку 'a'#10#13'b'#10#13 и т.д.?
smaller (2006-12-18 14:56:00) [3]Благодарю за помощь, спасибо.
VitV (2006-12-18 14:13:00) [4]procedure CanvasSetAngle(C: TCanvas; A: Single);
var
LogRec: TLOGFONT; {Font informationen}
begin
GetObject(C.Font.Handle,SizeOf(LogRec),Addr(LogRec));
LogRec.lfEscapement := Trunc(A*10);
C.Font.Handle := CreateFontIndirect(LogRec);
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var A: Integer;
begin
A := Random(3600);
Canvas.Font.Name:='Arial';
CanvasSetAngle(Canvas, A / 10);
Canvas.RectAngle(X-1,Y-1,X+1,Y+1);
Canvas.TextOut(x, Y, FormatFloat('##0.0', A/10)+'°');
end;
Попробуй это!
Zeqfreed (2006-12-18 12:51:00) [5]CreateFont. Обратить внимание на nEscapement.
Германн (2006-12-18 12:49:00) [6]CreateFontIndirect
| |
