+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن تزيين Button في دلفي7 (/showthread.php?tid=8937)
كيف يمكن تزيين Button في دلفي7 - Delphi_2007 - 13-10-2017
السلام عليكم
اتمناكم بخير ان شاء الله
سؤال: هل يمكنني تثبيت نسختين من دلفي؟
سؤالك كيف يمكنني تزيين أزرار بدلفي7، لقد تابعت أحد الدروس واردت تطبيق
ولكن في مرحلة الضغط على الزر والاتصال بمكون Imagelist، عند الذهاب لخصائص الزر
والبحث عن خاصية Image لا اجدها؟
RE: كيف يمكن تزيين Button في دلفي7 - PLANSHARP - 13-10-2017
و عليكم السلام, كيف الحال!
نعم يمكن تثبيت أكثر من نسخة.
بالنسبة لتزيين الزر فهمت أنك تريد وضع صورة عليه, فيمكنك استعمال Speedbutton, يحتوي على الخاصية Glyph وهي التي تريد.
RE: كيف يمكن تزيين Button في دلفي7 - Delphi_2007 - 13-10-2017
بالف خير الحمد الله،
شكرا للاجابة
فيما يخص المكون المرشح للاسف لم اجده، نسخة دلفي التي استعملها هي دلفي 7
النسخة التي اعمل بها
![[صورة: 868487546.jpg]](http://www12.0zz0.com/2017/10/13/23/868487546.jpg)
123.jpg (الحجم : 115.83 ك ب / التحميلات : 3)
RE: كيف يمكن تزيين Button في دلفي7 - PLANSHARP - 13-10-2017
موجود ضمن تبويبة ال Additional ضمن مستودع المكونات..
RE: كيف يمكن تزيين Button في دلفي7 - Agmcz - 13-10-2017
يمكنك استعمال Speedbutton الموجود في التبويب Additional كما اخبرك الأخ PLANSHARP.
أو إستعمال نسخ دلفي الحديثة.
كما يمكنك البحث عن مكونات تدعم هذه الخاصية.
أيضا
PHP كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, XPMan;
type
TButton = class(StdCtrls.TButton)
protected
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;
type
TForm1 = class(TForm)
Button1: TButton;
XPManifest1: TXPManifest;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TButton.WMPaint(var Message: TWMPaint);
begin
inherited;
DrawIconEx(GetDC(Handle), 5, (Height div 2) - 8, Application.Icon.Handle, 16, 16, 0, 0, DI_NORMAL);
end;
end.
RE: كيف يمكن تزيين Button في دلفي7 - Delphi_2007 - 14-10-2017
صباحكم خير وبركة
شكرا على الردود، الله يحفظكم
ممكن نصيحة، أي نسخة أثبت؟
RE: كيف يمكن تزيين Button في دلفي7 - bouh25 - 14-10-2017
انصحك بالنسخ الاخيرة من الديلفي نسخ xe7 وما فوق الى delphi tokyo xe10.2
RE: كيف يمكن تزيين Button في دلفي7 - Delphi_2007 - 14-10-2017
شكرا اخي على النصيحة
RE: كيف يمكن تزيين Button في دلفي7 - samir28 - 17-10-2017
لم لا تستعمل Alpha controls / Alpha skin ؟
فهو يضفي على برنامجك الكثير من الرسوميات .
RE: كيف يمكن تزيين Button في دلفي7 - Delphi_2007 - 17-10-2017
شكرا لرد اخي، لم اكن اعرف بهذا المكون سابقا،