Eine Ereignise zu einen DBGRIB OnCreate zuweisen?

[Karstadt]

hallo. habe eine Projekt. Nun muss ich bei jeden DBGRIB ein DrawColumnCell erstellen. Das ist sehr zeitaufwändig und langweiling. Kann ich OnCreate jeden DBGIRG einen DrawColumnCell diesen Ereignis zuweisen?

f_ag.dbg_ansichtDrawColumnCell(Sender,Rect,DataCol ,Column,State);


Wie geht das?

[mkinzler]

Du meinst ein Eventhandler für mehrere Objekte? Ja.

[Karstadt]

Ja. haben schon gelöst. Danke

Delphi-Quellcode:

Procedure Tf_hauptfenster.DGBRIG_OnDrawColumnCell(Formular:TForm);
var I : Integer;
begin
  With Formular do
  begin
    for i:= 0 to ComponentCount-1 do
    begin
      IF (Components[i] is TDBGrid) Then
      begin
        TDBGrid(Components[i]).OnDrawColumnCell := DbGrib_DrawColumnCell_Einstellung;
      end;
    end;
  end;
end;

procedure Tf_hauptfenster.DbGrib_DrawColumnCell_Einstellung(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  IF TDBGrid(sender).DataSource.DataSet.RecNo = 0 Then Exit;

  If  Frac(TDBGrid(sender).DataSource.DataSet.RecNo / 2) > 0 then
  TDBGrid(sender).Canvas.Brush.Color:=Dbgrib_farbe_1 else
    TDBGrid(sender).Canvas.Brush.Color:=Dbgrib_farbe_2;
    
  TDBGrid(sender).DefaultDrawColumnCell
  (Rect, DataCol, Column, State);
end;

Beim Create eines formulares einfach mit f_hauptfenster.DGBRIG_OnDrawColumnCell(self) aufrufen..

Richtig?

[alzaimar]

Statt

Zitat:

Zitat von Karstadt

Delphi-Quellcode:

...
  If  Frac(TDBGrid(sender).DataSource.DataSet.RecNo / 2) > 0 then

einfach ein

Delphi-Quellcode:

If Odd (TDBGrid(sender).DataSource.DataSet.RecNo) Then

[Karstadt]

sonst ist okay? oder kann man das irgenwie beschleunigen?

[alzaimar]

Ich verwende die DevExpress-Grids, die haben das eingebaut, aber ansonsten dürfte das schnell genug gehen, oder hast Du irgendwelche Performanceprobleme damit?

[Karstadt]

gar keine. das war einfacher als ich mir gedacht haben :)

[Karstadt]

eine weitere Frage. Wie kann ich rauskriegen ob eine Komponente das Ereignis OnDrawColumnCell schon hat ?

ziel. Ich möchte keine vorhandene Ereignissen überschreiben. Wie geht das?

[mkinzler]

OnDrawColumnCell ist eine Ereignisproperty. du könntest überprüfen ob sie nil ist.

[Karstadt]

Das habe ich vor dem Posting versucht oder mache ich was falsch?

Delphi-Quellcode:

  if dbg_ansicht.OnDrawColumnCell = nil Then Showmessage('a');