Zugriff auf dynamisch erstellte Komponente

[omata]

Zitat von wendelin:

Nun möchte ich wegen der besseren Lesbarkeit mit Hilfe von Procedure "BeforePrint" (s.u.) Tabellierpapier simulieren.

Ich verstehe diese Formulierung nicht. Aber vielleicht jemand anderes, der dir dann helfen kann.

Viel Glück

[FredlFesl]

Kauf dir die DevExpress-komponenten (Grid und Printing suite). Dann ist Ruhe im Karton.

Quickreport ist doch &%&$%"§$".

[Edit]: Beim zweiten Durchlesen das Wort 'Hobbyprogrammierer' gelesen... Deswegen ist dieser Tipp hier unbrauchbar... Sorry [/Edit]

[Blup]

Bitte Quellcode wegen der Lesbarkeit mit zutreffendem Delphi- oder Code-Tag klammern, dann bleibt die Formatierung im wesentlichen erhalten. Dafür gibts im Bearbeitungsformular auch Schaltflächen.

Den QReport hab ich nicht installiert, aber im Prinzip sollte es doch so funktionieren:

Delphi-Quellcode:

procedure TGridReport.MyDetailBeforePrint({...});
begin
  {...}
end;

// Ereignisbehandlung zuweisen
GridRep.Bands.DetailBand.BeforePrint := MyDetailBeforePrint;

[wendelin]

Hallo Omata,

ich meine damit: Tabellierpaper bedeutet das die ZEILEN im Report der besseren Lesbarkeit halber alternierend z.B. in weiss - grün - weiss -
grün u.s.w. dargestellt werden s.u. Natürlich kann auch eine andere
Farbkombination gewählt werden.

begin
If GridReport.DetailBandXXX.Color = clWhite THEN
GridReport.DetailBandXXX.Color := clMoneyGreen ELSE
GridReport.DetailBandXXX.Color := clWhite;
end;
Dennoch vielen Dank für die schnelle Bearbeitung

[wendelin]

Hallo FredlFesl

mag zwar ein guter Tipp sein, ist mir aber deutlich zu teuer!
599 - 1999 $ !!
Habe schon mit RaveReport gearbeitet, benötige ich nicht, da zu
komplex und für meine Anforderungen überdimensioniert.

Dennoch danke für die schnelle Bearbeitung.
P.S. Was bedeutet das : &%&$%"§$" ??

[wendelin]

Hallo Blup,

Vielen Dank für die schnelle Antwort, aber so geht es leider nicht.
Vielleicht stelle ich mich aber auch nur doof an.
Kannst Du Deinen Vorschlag etwas näher erläutern ?

[FredlFesl]

Hallo wendelin,

Ich implementiere alternierende Zeilen immer mit

Delphi-Quellcode:

If Odd (MyDataset.Recno) Then
  Band.Color := clWhite
else
  Band.Color := clGray;

[Blup]

Zitat von wendelin:

..., aber so geht es leider nicht.
Vielleicht stelle ich mich aber auch nur doof an.
Kannst Du Deinen Vorschlag etwas näher erläutern ?

Was genau geht nicht und warum nicht?

Ich versuchs mal etwas konkreter darzustellen:

Delphi-Quellcode:

type
  TGridReport = class(TForm)
    GridRep: TQuickRep;
    procedure GridRepPreview(Grid : TDBGrid);

    procedure GridRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);  // <- muss im Objektinspektor dem Ereignis des Reports "BeforePrint" zugewiesen sein

    procedure MyDetailBeforePrint({...}); // <- wird erst zur Laufzeit zugewiesen 

{...}
  end;

implementation

procedure TGridReport.GridRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  // dem DetailBand Ereignisbehandlung zuweisen
  GridRep.Bands.DetailBand.BeforePrint := MyDetailBeforePrint; 
end;

procedure TGridReport.MyDetailBeforePrint({...});
begin
  {...}
end;