View Full Version : نمایش عکس در Db CtrlGrid
nasr
شنبه 13 دی 1382, 22:57 عصر
سلام
چگونه میتوان در Db CtrlGrid عکس را نمایش داد
منظور این است که یک جدول وجود دارد که شامل آدرس عکسهایی است می خواهیم همه عکسها را نمایش دهد
مانند ACDSee
باتشکر
DataMaster
دوشنبه 15 دی 1382, 07:44 صبح
راستش من با گرید معمولی همچین کاری نکردم اما کامپوننتهای DevExpress گرید های فوق العاده قوی داره که ابن امکان رو نیز میده
_alish_
سه شنبه 16 دی 1382, 01:46 صبح
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
var
DrawBitmap : boolean ;
begin
with Sender as TDBGrid do begin
if Table1State.Value = 'HI' then begin
Canvas.Brush.Color := clYellow ;
if gdSelected in State then begin
Canvas.Font.Color := clBlack ;
Canvas.Font.Style := Canvas.Font.Style + [fsBold] ;
end ;
DrawBitmap := (Column.FieldName = 'Company') ;
end
else
DrawBitmap := False ;
Canvas.FillRect(Rect) ;
if DrawBitmap then begin
{ if your bitmap is too large, you
should investigate StretchDraw
rather than Draw }
Canvas.Draw(Rect.Left, Rect.Top, MyBitmap) ;
Canvas.TextOut(Rect.Left + MyBitmap.Width + 5, Rect.Top,
Column.Field.AsString) ;
end
else
Canvas.TextOut(Rect.Left, Rect.Top,
Column.Field.AsString) ;
end ;
end ;
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.