Dank Dir für die schnelle Antwort Mr Spock,
aber das wars leider nicht. Das Band wird schon dargestellt. Sind auch noch ein paar andere Dinge mit drauf.
Hab die Sache noch ein bischen erweitert:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| procedure TRepArbeitsfolgeplan.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); var frame : TQRShape; begin frame := TQRShape.Create(self); frame.ParentReport := self; frame.Left := 1; frame.Top:=1; frame.Height := 20; frame.Width := 200; frame.Brush.Color := clBlue; frame.Enabled := true; frame.Visible := true; PrintBand := True; end; |
Hat aber nichts gebracht
Hast vielleicht noch 'ne Idee?
Gruß Buggi