Új hozzászólás Aktív témák

• #1082 Metalwarrior tag

  Új Válasz 2006-01-15 19:52:15 #1082

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Metalwarrior

  tag

  Már lassan kezdek idegesítő lenni , de még mindig van egy kis gond:
  DBGridet DBGrid1DrawColumnCell segítségével festem. Mindent szépen megcsinál, de ha a gridet egy Pagecontrolba teszem akkor már nem csinál semmit.
  
  
  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  begin
  If Table1.FieldValues['AREA' < 1000000
  then If Column.FieldName = 'Area'
  then DBGrid1.Canvas.Brush.Color:= clAqua
  else DBGrid1.Canvas.Brush.Color:= clWhite;
  If gdFocused in State then DBGrid1.Canvas.Font.Color:= clred;
  DBGrid1.DefaultDrawColumnCell(rect, DataCol, Column, State);
  end;

Új hozzászólás Aktív témák