Deutsches Lazarusforum

Ich bin beim FindObject etwas vorsichtig geworden und prüfe immer ob das bekommene Objekt immer vom richtigen Typ ist. Besonders dann wenn die Reports auch geändert werden könnten. Da kann es dann zu komischen Effekten kommen, wenn wer die Namen nicht beachtet und die die "Memo1" und "Band1 ...

Mein Beispiel funktioniert:

procedure TForm1.Button1Click(Sender: TObject);
var aBand1: TfrBand;
aMemo1: TfrMemoView;
begin
aMemo1:=TfrMemoView(frReport1.FindObject('Memo1'));
if Assigned(aMemo1) then aMemo1.Memo.Text:=TimeToStr(now);

aBand1:=TfrBand(frReport1.FindObject('Band1'));
if ...

Ich glaube du kannst mit folgende Funktionen auf "Bands" und andere Objekte zugreifen:
- TFrReport.Pages[n].FindObjectByID(ID: Integer),
- TFrReport.Pages[n].FindObject(const aName: String): TfrObject;

Einer der größten Fehler bei LazReport ist, dass beim erstellen von Report automatisch ...

Ich habe mir das nochmal angeschaut, Height setzt ClientHeight, das sollte bei Formulare Titelzeile auch berücksichtigen, das ist ein Fehler das sollte man vielleicht melden.
Man kann MoveWindow von WinAPI bei OnShow verwenden. Windows 11 positioniert die Formulare nicht richtig, man hat auf der ...

Ich habe mit Deinem Code zwei weitere Fenster eingebaut.
Sieht nicht gut aus.
.
FormNew.png


FormNews sehen genauso wie bei mein Beispiel aus. Wie ich oben erwähnt habe, ist das LCL-Fehler, irgendjemand hat "ClientHeight" genommen anstatt "Height". Wir müssen jetzt Fehler suchen und korrigieren.

Ich habe oben geschrieben, nach dem ich Screen.WorkAreaHeight nach verschiedenen Situationen betrachtet habe (mit lazarus-programm) und davon ausging, dass es stimmen muss. Jetzt habe ich ein Beispiel gebaut und festgestellt dass es in LCL ein Fehler gibt. Die Titelzeile vom 2.Form wird vom 1 ...

PeterS hat geschrieben: Sa 21. Mär 2026, 12:33 Hast Du Deinen Code getestet ?

Ja, sonst hätte ich es nicht gepostet.

Hallo Leute,
hat jemand Erfahrung mit IBX und Firebird? Habe gelesen das IBX schneller wäre. Hat jemand Erfahrung mit IBX?
Grüße

IBX ist nicht schneller, genauso wie SQLDB. Ich hatte das Gefühl auch, bevor ich herausgefunden habe, dass ZEOS bei SQL-Abfrage alle Datenzeilen"fetched" holt während ...

Screen.WorkAreaHeight und Screen.WorkAreaWidth is doch was du möchtest.
Wenn du dein Fenster übereinander haben möchtest, dann muss du einfach das tun:
Fenster1.Top:=0;
Fenster1.Height:=Screen.WorkAreaHeight div 2;
Fenster2.Top:=(Screen.WorkAreaHeight div 2)+1
Fenster2.Height:=Screen ...

charlytango hat geschrieben: Sa 21. Mär 2026, 11:55 .. wie vor nicht kompilierbar.
..

Das ist nicht richtige Fehlermeldung, man muss schon richtige Fehlermeldung posten.
Ich habe noch nie ZEOS ohne Veränderungen installieren können, die Fehler waren meistens bei Felddefinitionen.
ich habe mir immer gefragt, welche fpc-Version die verwenden.

Die Zeit hat mit Dbgrid nichts zu tun, Dbgrid zeigt nur sichtbare Zeilen, meistens 10-30 Datenzeilen, also je nach Größe des Dbgrids. Es hat mit deine Sql-Abfrage zu tun, sind die wichtigen Felder in where oder on Klauseln indiziert?
SQL richtig aufbauen und Indizierung der wichtigen Felder bringt ...

Icb-User hat schon richtige Tipps gegeben. Du musst in deinem Programm nichts ändern, das alles kannst du in Report-Designer erledigen.
Am einfachsten ist es man erstellt ein PageFooter-Band und plaziert dort ein Textobject(Memo) und macht gleiche Farbe wie Hintergrund und gibt als Highlight ...

Silvios XMailer kann das, es verwendet Synapse. Du kannst schauen wie er das gemacht hat.

... Irgendwie passiert es doch das man auf die Andockflächen mal draufklickt. Kann man das vielleicht irgendwie abstellen?
...


Wenn es dir darum geht, dann "Drag treshold" hoch setzen z.B. 32-100 pixel oder Show Headers abwählen. Beides steht auf dem Bild was du gepostet hast. Ich mache es ...

Also wer das als Windows-Benutzer mal anschauen möchte, dann kann er das fertiges Programm in den Ordner "Inkscape/bin" verschieben und dort starten, natürlich wenn man Inkscape installiert hat. Dann braucht man keine Cairo- oder GTK-Libs zu suchen.