Советы по Delphi



         

Dbgrid с цветными ячейками III


C цветом ячейки DBGrid не так все просто, ведь в Delphi 1.0 разукрасить ячейку можно в обработчике события OnDrawDataCell, тогда как в Delphi 2.0 вам придется прибегнуть к событию OnDrawColumnCell. Для того чтобы создать код, который бы работал в ОБОИХ версих Delphi, вам необходимо прибегнуть к механизму условной компиляции, с помощью которого вы можете СКРЫТЬ обработчик OnDrawColumnCell в Delphi 1.0 и ВКЛЮЧИТЬ его в Delphi 2.0. Вот пример, в котором все ячейки строки рисуются красным, если колонка 'Preferred' содержит 'True':

...private{ Private declarations }{$IFDEF Win32}procedure DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);{$ENDIF}procedure DrawField(const Value: String; const Rect: TRect;vCanvas: TCanvas; vFont: TFont; vAlignment: TAlignment);...procedure TForm1.DrawField(const Value: String; const Rect: TRect;vCanvas: TCanvas; vFont: TFont; vAlignment: TAlignment);VAR X : Integer;BEGINvCanvas.Font := vFont;vCanvas.Font.Color := clRed;vCanvas.Font.Style := vCanvas.Font.Style + [fsUnderline];CASE vAlignment OFtaRightJustify : BEGINSetTextAlign(vCanvas.Handle, TA_RIGHT);X := Rect.Right-2;END;taLeftJustify : BEGINSetTextAlign(vCanvas.Handle, TA_LEFT);X := Rect.Left+2;END;taCenter : BEGINSetTextAlign(vCanvas.Handle, TA_CENTER);X := (Rect.Right+Rect.Left) DIV 2;END;END;vCanvas.TextRect(Rect, X, Rect.Top+2, Value);SetTextAlign(vCanvas.Handle, TA_LEFT);END;
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:TRect; Field: TField; State: TGridDrawState);beginWITH Sender AS TDBGrid, DataSource.DataSet DOBEGINIF FieldByName('Preferred').AsString <> 'True' THEN Exit;DrawField(Field.DisplayText, Rect, Canvas, Canvas.Font,Field.Alignment);END;end;
{$IFDEF Win32}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);beginWITH Sender AS TDBGrid, DataSource.DataSet DOBEGINIF FieldByName('Preferred').AsString <> 'True' THEN Exit;DrawField(Column.Field.DisplayText, Rect, Canvas,Column.Font, Column.Alignment);END;end;{$ENDIF}
procedure TForm1.FormCreate(Sender: TObject);begin{$IFDEF Win32}DBGrid1.OnDrawDataCell := NIL;DBGrid1.OnDrawColumnCell := DBGrid1DrawColumnCell;{$ENDIF}end;

- Neil Rubenking [000968]




Содержание  Назад  Вперед