Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c