+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أستخدم Bevel في برنامجي؟ (/showthread.php?tid=4766)
كيف أستخدم Bevel في برنامجي؟ - you_per7 - 03-12-2012
السلام عليكم
أنا لا أعرف كيفية استخدام هذه الأداة...و قد بحثت لكن لم أجد موضوعا يتناولها.
لذا أتمنى من الإخوة الكرام... مشكورين... تقديم شرح لكيفية استخدامها
كيف أستخدم Bevel في برنامجي؟ - rabihpascal - 03-12-2012
وعليكم السلام
هذه الاداة هي شكلية اي انها تساعد على تصميم خلفيات ذات بعد ثلاثي للعناصر الاخرى
لمعرفتها اذهب الى
properties ثم shape و style فتظهر عدة
قيم جربها لتغيير الشكل
وهذا مثال عن كيفية اضافة 'canvas'
كود :
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
( tbevel=class(extctrls.TBevel
type
(TForm1 = class(TForm
Bevel1: TBevel;
Button1: TButton;
//....................
//.................
procedure TForm1.Button1Click(Sender: TObject);
var
pic:tpicture;
begin
pic:=tpicture.Create;
pic.LoadFromFile('c:\untitled.bmp');
bevel1.canvas.Draw(0,0,pic.Graphic);;
end;
end.كيف أستخدم Bevel في برنامجي؟ - you_per7 - 03-12-2012
بارك الله فيك أخي العزيز على المعلومات القيمة