delphi4arab منتديات دلفي للعرب

في برنامجي استعمل quickrp
هدا الكود اضيف به TQRShape

كود :
shp:=TQRShape.Create(nil);
 shp.Parent:=imprelvm.QuickRep1;
 shp.Top:=toptrav-26;
 shp.Height:=44;
 shp.Width:=1;
 shp.Left:=20;

اضافة GRAS

السلام عليكم...

لا أعرف ما هو الـ GRAS ؟؟

و لكن يمكنك تلوين الـ TQRShape عن طريق الخاصية Brush و الخاصيتين التابعتين لها (Styel و Color):

كود :
shp.Brush.Style := bsSolid;    // ربما لا تحتاج هذا السطر لأنه الافتراضي
shp.Brush.Color := clSilver;    // أو أي لون تريده

نرجو الاستفادة و السلام.

hmidadz