تبلیغات
دانشجویان نرم افزار کل ایران - نمایش تصاویر در DBGrid
 
درباره وبلاگ




مدیر وبلاگ : بهرام محمدپور
نویسندگان
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :
دانشجویان نرم افزار کل ایران
صفحه نخست             تماس با مدیر           پست الکترونیک               RSS                  ATOM
چهارشنبه نهم تیر 1389 :: نویسنده : بهرام محمدپور

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 ;

 

نظر یادنون نره





نوع مطلب : سورس پایگاه در دلفی، 
برچسب ها : نمایش تصاویر در DBGrid، تصاویر در DBGrid، نمایش تصاویر DBGrid، تصاویر در DBGrid دلفی، سورس دلفی،
لینک های مرتبط :


 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر