вывод текста не по прямой линии

← →
redlord (2004-08-23 19:07) [0]

всем привет
народ подскажите как отобразить текст по кругу например как ка на печатях .где буква наклоняется при удалении от центра .

← →
_student (2004-08-24 00:52) [1]

> где буква наклоняется при удалении от центра

Я эту мысл не совсем понял.

Но посмотри вот это может то что тебе надо

procedure CanvasSetAngle(C: TCanvas; A: Single); var LogRec: TLOGFONT; {Font informationen} begin GetObject(C.Font.Handle, SizeOf(LogRec), Addr(LogRec)); LogRec.lfEscapement := Trunc(A); LogRec.lfOrientation := Trunc(A); C.Font.Handle := CreateFontIndirect(LogRec); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var A: single; str: string; i, x2, y2: integer; begin str := "Hello, Delphi Hello, Delphi Hello, Delphi"; for i := 1 to length(str) do begin CanvasSetAngle(Canvas, -10.0 * (360 * (i / length(str))) - 90 * 10.0); x2 := 150 + round(100 * cos((360 * (i / length(str))) * pi / 180)); y2 := 150 + round(100 * sin((360 * (i / length(str))) * pi / 180)); Canvas.TextOut(x2, Y2, str[i]); end; end;

← →
Profi © (2004-08-24 01:05) [2]

_student (24.08.04 0:52) [1]
Если он хочет "как в печатях", то буквы должны быть тоже под наклоном!

← →
_student (2004-08-24 01:16) [3]

У меня вроде как на круглых печатях

← →
Profi © (2004-08-24 01:19) [4]

_student (24.08.04 1:16) [3]
Не а, по крайней мере у меня буквы располагались вертикально, а не под наклоном, как на печатях.

← →
_student (2004-08-24 01:30) [5]

У тебя буквы вообще не поворачиваются.

Посмотри модули

interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, math;

← →
Profi © (2004-08-24 01:34) [6]

_student (24.08.04 1:30) [5]
Вообще, то сеть росположенно они по кругу, но все буквы вертикальны! Все модули подключал, ноль эффекта.

← →
_student (2004-08-24 01:36) [7]

Понял, понял. Поставль шрифт Times New Roman

_student (24.08.04 1:36) [7]
Ясно, машинописный шрифт был...

← →
redlord (2004-08-24 17:06) [9]

ок спаибо это то что надо

вывод текста не по прямой линии Найти похожие ветки