بعض المكونات لا تلتزم بالألوان التي أبرمجها لها

يرجع هذا لانك قد استعملتي المكون XPManifest

أكيد صح

شكرا على البيان

سأضحي بالألوان من أجل XPManifest

شكرا جزيلا أخي الكريم على التوضيح وبارك الله فيك

زجزاك خيرا

العفو الاخت الكريمة

بامكانك استخدام المكون Shape بديلا عن panel

تمنياتي لك بالتوفيق

لا زال بالإمكان تلوين Panel مع xpmanifest

بإستخدام TRect و TBrush ومن ثم إستخدام التابع FillRect

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
	Panel1: TPanel;
	Button1: TButton;
	XPManifest1: TXPManifest;
	procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

type
 TVPanel=Class(TPanel)
 Protected
 Procedure Setcolor;
 end;
var
  Form1: TForm1;
  VPanel : TVPanel;

implementation

{$R *.dfm}
Procedure TVPanel.Setcolor;
var
PRect : TRect;
PBrush : TBrush;
begin
PRect.Left:=0;
PRect.Right:=Width;
PRect.Top:=0;
PRect.Bottom:=Height;

PBrush := TBrush.Create;
PBrush.Style:=bsSolid;
PBrush.Color :=clRed;

FillRect(Canvas.Handle,PRect,PBrush.Handle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TVPanel(Panel1).Setcolor;
end;

end.

زاك الله كل الخير

جاري التجربة أخي

فالأحسن حقا هو panel فهو يسمح استيعاب مكونات معه وهذا ما يجعلنا نعتمد عليه

شكرا جاري التجربة

بارك الله فيكم جميعا على المعلومات القيمة