close
دانلود فیلم
نمایش تصاویر در DBGrid

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 ;

 

لینک کوتاه پست
مطالب مرتبط با پست جاری
  • نکات مهم
    1- لطفا نظر خود را با زبان فارسی بیان کنید
    2- رایتم نظرات اسپم و تبلیغی شما را تایید نمی کند
    3- لطفا نظرات شما بدون ابهام و واضح باشد
  • نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
به کانال تلگرام سایت ما بپیوندید