Текущий архив: 2007.01.07;
Скачать: CL | DM;
Вниз
Как вывести текст вертикально? Найти похожие ветки
← →
smaller (2006-12-18 12:40) [0]Есть ли какие-нибудь простые средства для вертикального вывода текста?
← →
Германн © (2006-12-18 12:49) [1]CreateFontIndirect
← →
Zeqfreed © (2006-12-18 12:51) [2]CreateFont. Обратить внимание на nEscapement.
← →
VitV © (2006-12-18 14:13) [3]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;
Попробуй это!
← →
smaller (2006-12-18 14:56) [4]Благодарю за помощь, спасибо.
← →
vain © (2006-12-18 15:10) [5]А если выводить в лабеле строку "a"#10#13"b"#10#13 и т.д.?
← →
Anatoly Podgoretsky © (2006-12-18 15:13) [6]> vain (18.12.2006 15:10:05) [5]
У хакеров учился?
Страницы: 1 вся ветка
Текущий архив: 2007.01.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.049 c
