Deutsches Lazarusforum

@theo
Es hat geklappt, vielen Dank.

Falls jemand gleiche Frage hat, ich habe das gemacht:

procedure TTestHTTPServer.HandleRequest(var ARequest: TFPHTTPConnectionRequest; var AResponse: TFPHTTPConnectionResponse);
begin
//..dein code
AResponse.SetFieldByName('Content-Disposition','attachment ...

Ich habe eine TFPHttpServer, damit kann man von einer Datenbank PDF-Dateien herunterladen. Der Link sieht so aus:
http://localhost/redownld?renr=1234567.

Der Browser speichert es immer als redownld.pdf. Ich möchte es aber anders benennen, mit Rechnungsnummer usw., kann der Browser bei Response es ...

fpvectorial sieht gut aus, schau mal lazarus\components\fpvectorial\examples\fpvtextwritetest2 an, man muss bei fpvtextwritetest2.pas oben {$define pdf_test} deaktivieren, dann sieht man weitere Möglichkeiten, man kann auch Tabellen erstellen. Die fehlenden Sachen kann man hinzufügen, in dem man ein ...

Dann würde ich den von Jörg vorgeschlagenen Weg gehen, allerdings würde ich jetzt nicht ODT-Format lernen. Ich würde ein ODT-Dokument mit allen möglichen vorkommenden Möglichkeiten, Checkboxen, Bilder, Texte usw., erstellen, dann hast du alle Styles in "styles.xml"-Datei und diese Datei als ...

...
Es geht um Betriebsanweisungen gem. §14 GefStoffV.
...

Es ist kein Antwort auf deine Frage, aber falls die Zielpersonen es nicht bearbeiten sollen, warum erzeugst du keine PDF-Datei, z.B. mit LazReport. Inzwischen kann jeder mit PDF-Dateien umgehen.
Falls man die PDF-Datei bearbeiten möchte ...

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.