Вопрос по окружностям и знакам...
Menel © (2004-08-05 16:13:00)
У народа помощи прошу...
Есть проблема, не могу выровнять между двумя окружностями
символы обозначающие сектора (Знаки Зодиака), пляшут они
эллипсом, может кто поможет...
Понять проблему - достаточно создать на форме Image1 и на
кнопку положить следующий обработчик:
procedure TForm1.Button1Click(Sender: TObject);
const zodiac_str: array[0..11] of Char =
('^','_','`','a','b','c','d','e','f','g','h','i');
var
i, x0, y0, x1, y1, xc, yc, r : double;
begin
Image1.canvas.Pen.Color := clRed;
Image1.Canvas.Ellipse(0,0,Image1.Width,Image1.Height);
Image1.Canvas.Ellipse(20,20,Image1.Width-20,Image1.Height-20);
Image1.canvas.Pen.Color := clBlack;
i:=0;
while i<360 do
begin
r := i/57.3;
x0 := Image1.Width/2;
y0 := Image1.Height/2;
x1 := (Image1.Width/2)*(1+cos(r));
y1 := (Image1.Height/2)*(1+sin(r));
Image1.Canvas.MoveTo(Round(x0), Round(y0));
Image1.Canvas.LineTo(Round(x1), Round(y1));
// Здесь нужно, чтобы символы вписались ровно по
окружности, внутри
// красных окружностей, а не плясали по эллипсу
xc := Image1.Width/2 + (Image1.Height/2-10) *
cos(r+15/57.3);
yc := Image1.Height/2 + (Image1.Width/2-10) *
sin(r+15/57.3);
Image1.canvas.Font.Size := 10;
Image1.canvas.Font.Color := clBlue;
Image1.canvas.Font.Name := 'WingDings';
Image1.Canvas.TextOut(Round(xc), Round(yc),
zodiac_str[Round(i/30)]);
i:= i+30;
end;
Image1.Canvas.Ellipse(30, 30, Image1.Width-30,
Image1.Height-30);
Image1.Canvas.Brush.Style := bsClear;
end;
Menel (2004-08-05 16:43:00) [1]
Сам решил проблему, во всем виноваты размеры символов (ширина,
высота) и перед выводом их нужно было преобразовать.
tw := Image1.Canvas.TextWidth(zodiac_str[Round(i/30)]);
th :=
Image1.Canvas.TextHeight(zodiac_str[Round(i/30)]);
Image1.Canvas.TextOut(Round(xc-tw/2), Round(yc-th/2),
zodiac_str[Round(i/30)]);
...
Наверх 
ЧАТ |
Орешник |
|
