🚀 go-pugleaf

Po zainstalowaniu biblioteki RX nalezy popatrzec do katalogu Demo
biblioteki, odpalic projekt RxDemo.dpr. W pliku DbAware linia 246 jest
napisana przykladowa obsluga zdarzenia onGetCellParams. Parametry
zdarzenia to (Sender: TObject; Field: TField; AFont: TFont; var
Background: TColor;   Highlight: Boolean).
Czyli mamy dostep do wszystkiego co potrzebne. Dla wybranego
pola(Field.FieldName), o okreslonej przez nas wartosci  mozemy zmieniac
styl fontow, podkladu. Ponizej podaje procedure wycieta z Rxdemo.


procedure TDBAwareForm.rxDBGrid1GetCellParams(Sender: TObject;
  Field: TField; AFont: TFont; var Background: TColor; Highlight:
Boolean);
var
  Len: Integer;
begin
  if Field.FieldName = 'Category' then
    AFont.Style := AFont.Style + [fsBold]
  else if Field.FieldName = 'Length (cm)' then
    Background := clYellow;
  Len := (Sender as TrxDBGrid).DataSource.DataSet.FieldByName('Length
(cm)').AsInteger;
  if (Len <= 30) and (Len > 0) then
    Background := clLime  { shortest }
  else if Len >= 150 then
    AFont.Color := clRed;  { longest }
  if Highlight then begin
    AFont.Color := clHighlightText;
    Background := clHighlight;
  end;
end;



                         Grzegorz Prochalski
                 ------------------------------------
                 e-mail: szc...@pik.gliwice.pl
                         szc...@david.silesia.pik-net.pl


Jacek Owczarek wrote:
> 
> Z ciagnolem go i delej nie ma zielonego pojecia  jak to zrobic
> (potrzabuje rozne kolory w tym samym rekordzie, ale to nie znaczy, ze
> maja to byc cale koluny czy wiersze, tylko rozne komorki).
>