آیکن روی عنوان ستون DBGrid

[Mahdi_S_T]

چطوری روی عنوان یه ستون DBGrid می تونم آیکن بزارم که با کلیک ماوس روی آن آیکن عوض بشه ؟

[Touska]

میتونید از Infopower 4000 استفاده کنید.

موفق باشید.

[vcldeveloper]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
R : TRect;
Pic : TPicture;
i : integer;
begin
with Sender as TDBGrid do
begin
//Draw the image on the third colum
if DataCol = 2 then
begin
Pic := TPicture.Create;
try
pic.Assign(Image1.Picture); //--> Create your own image!
R.TopLeft := Point(0,0);
R.Bottom := THackedGrid(DBGrid1).RowHeights[0];
//Calculate the picture's Left value
for i := 0 to DataCol-1 do
Inc(R.Left,Columns[i].Width);
//The picture must be drawn after the column's title
Inc(R.Left,Canvas.TextWidth(Column.Title.Caption) + 8);
R.Right := Pic.Width + R.Left;
//Draw the picture
Canvas.StretchDraw(R,Pic.Graphic);
finally
Pic.Free;
end;
end; //if DataCol
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end; //With
end;

[Mahdi_S_T]

استاد ممنون میرم تست کنم .

[دنی کوئیل]

از این کد خطا می گیره


R.Bottom := THackedGrid(DBGrid1).RowHeights[0];


از این THackedGrid

[اَرژنگ]

type
THackedGrid = class(TDBGrid);

[شفیعی]

سلام


R.Bottom := THackedGrid(DBGrid1).RowHeights[0];
[Error] UNIT6.PAS(319): Undeclared identifier: 'THackedGrid'

[vcldeveloper]

آقای شفیعی، من یادم رفت بخش type سور را هم در پستم قرار بدم. RowHeights یک خصوصیت Protected هست و در صورتی می تونید ازش استفاده کنید که از کلاس TCustomDBGrid یک کلاس مشتق کنید:


type
THackedDbGrid = class(TCustomDbGrid);

[sardar_ahmadi]

type را کجا قرار دهیم
هرکجا که این type را قرار میدهیم باز هم خطا میگیرد .

[m-khorsandi]

جستجو کنید :
http://www.barnamenevis.org/forum/showthread.php?p=226995

[شفیعی]

سلام
من از دستورات بالا استفاده کردم فقط مشکل اینجاست که عکس را فقط در یکجای ثابت از DBGRID نمایش می دهد مثلا فقط روی ستون دوم نمایش می دهد

[vcldeveloper]

عزیز جان، کد بالا یه مثال هست. کد رو بخون و مناسب با سلیقه خودت اون رو تغییر بده...
(خط if DataCol = 2 then)