رسم مربع بالفأرة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

رسم مربع بالفأرة

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 10:13 am

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

رسم مربع بالفأرة

ضع الفورم وحدد
StatusBar1
من مفتش الكائنات حدد
Panels
وانقر على ثلاث نقط المجاورة من المربع انقر على
Ajouter un nouveau
أو اضغط مفتاح الايضافة
Insert
ضف أربعة منها

الرمز:

var StartX, StartY: Integer;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 StartX := X;
 StartY := Y;
end;


الرمز:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if ssLeft in Shift then
 begin
 if Y > StartY then
 begin
 StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(StartY);
 StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(Y);
 end
 else
 begin
 StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(Y);
 StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(StartY);
 end;
 if X > StartX then
 begin
 StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(StartX);
 StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(X);
 end
 else
 begin
 StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(X);
 StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(StartX);
 end;
 end;
end;


الرمز:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Form1.Canvas.Rectangle(StartX, StartY, X, Y);
 StatusBar1.Panels[0].Text := '';
 StatusBar1.Panels[1].Text := '';
 StatusBar1.Panels[2].Text := '';
 StatusBar1.Panels[3].Text := '';
end;

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى