رسم خط و مستطيل

[saraaa]

سلام من يه برنامه مي خوام به هر زباني
دلفي يا c ++ يا پاسكال
كه يه خط را رسم كنه ومختصات
را داخل برنامه نديم خود كاربر مختصات خطي رو كه هر جاي
صفحه مي خواد
بده تا براش رسم كنه ورسم مستطيل رو هم مي خوام به همين شكل
خواهش مي كنم كمكم كنيد من خيلي سعي كرئم اين برنامه رو پيدا كنم ولي نشد
تو رو خدا هر جوري شده اين برنامه رو برام پيدا كنيد

[mojtabamalaekeh]

یک یونیت تو دلفی
با الگوریتم رسم چند ضلعی میشه مربع درست کرد ولی مستطیل نه
فکر کنم رسم خط به دردت بخوره
ویرایش شد:
اگه با توابع آماده ی همون زبون برنامه نویسی میخوای این کار رو بکنی که خیلی مسئله ساده میشه فقط کافیه چندتا پارامتر مثل X1,Y1,X2,Y2,Color و ... از ورودی بگیری (لطفا سؤال خود را کامل تر مطرح دهید شود کنید بهتره ها)

[lord_viper]

مثال خود دلفی در مورد رسم خط

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin

{ first call FillRect to paint the surface of the form.
this removes any previously drawn lines (and anything else!) }
Canvas.FillRect(ClientRect);
Canvas.MoveTo(0, 0);
Canvas.LineTo(X, Y);
end;

رسم مستطیل اینهم تو help دلفی بود
البته اینو یه کم باید تغییر بدی چون تو یه timer هست و تعداد زیادی مستطیل رسم میکنه

var

X, Y: Integer;
procedure TForm1.FormActivate(Sender: TObject);
begin
WindowState := wsMaximized;
Timer1.Interval := 50;
Randomize;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
X := Random(Screen.Width - 10);
Y := Random(Screen.Height - 10);
Canvas.Pen.Color := Random(65535);
case Random(5) of
0: Canvas.Pen.Style := psSolid;
1: Canvas.Pen.Style := psDash;
2: Canvas.Pen.Style := psDot;
3: Canvas.Pen.Style := psDashDot;
4: Canvas.Pen.Style := psDashDotDot;
end;
Canvas.Rectangle(X, Y, X + Random(400), Y + Random(400));

end;

[zosha]

سلام مي خواستم برنامه بازي tetricبه زبان c++را برايم ارسال كنيد.ممنونم

[mojtabamalaekeh]

به زبان پاسکال
ابتدا مستطیلی با ابعاد 0 و 0 و 639 و 479 بکشید تا محدوده مانیتور دستتون بیاد. بعد هم اگه برنامه اونی نبود که شما میخواین چاره اش اینه که سؤالتون رو بیشتر توضیح بدین.