안녕하세요
항상 좋은 정보를 얻어가는 고스트유저입니다 ^^;
다음이 아니옵고, 기본함수를 이용하여 원그리기를 하려고 합니다.
정수형태로는 지원을 하고 있으나, 실수(소숫점 2자리)를 가지고
원하는 위치에 점을 그리려 합니다.
어떤 함수를 이용해야 하는 것인지요?
조심스레 여쭤봅니다.
행복한 저녁 보내세요.
<!--CodeS-->
procedure TForm1.DrawLine( Canvas: TCanvas );
var
tmp : integer;
x1,x2,y1,y2 : integer;
begin
with canvas do
begin
Pen.Width := 10;
tmp := 100;
Brush.Color := clRed;
x1 := tmp - 5;
x2 := tmp + 5;
y1 := tmp + 5;
y2 := tmp + 5;
//아래 3개의 함수를 실수에 해당하는 위치에 표시하고 싶습니다.
Pixels[100,100] := clBlack;
Ellipse(x1, x2, y1, y2);
TextOut(200,100,'test');
//
end;
end;
<!--CodeE-->
원하는 좌표에 가장 가까운 정수로 변환해서 찍으세요...
Trunc, Round, ...등의 함수를 이용하시면 실수를 정수로 변환하실 수 있습니다.