برنامج الرسام

[mom1470]

السلام عليكم ورحمة الله وبركاتة ارفق لكم برنامج الرسام تم تصميمة ببرنامج الديلفي
اتمنى ان يعجبكم

[musvc]

جيد, لكن ينقصه فرشاه او قلم ( يوجد بعض المصادر في المنتدى ستساعدك )
و ايضا ً الكتابة العربية تضهر بشكل علامات استفهام "؟"
حاول تسمية المكونات بالكود.

سلامي لك

[sadoun39100]

مشكور اخي لكن لو تضيفله الرسم بالقلم عند تحريك الماوس
قد يساعدك هذا الكود:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
begin
Image1.Canvas.MoveTo(X,Y);
end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
Image1.Canvas.LineTo(X,Y);
end;