Deutsches Lazarusforum

Ich habe in meinem Programm bisher über OLE Worddateien mit Tabellen erstellt. Die Tabellen sind schon vorhanden und formatiert, deren Zeilenanzahl variert aber, so dass die Zeilenanzahl immer erst vorm Füllen angepasst wird. Dabei habe ich die Tabellen immer nacheinander gefüllt.
Bisher ...

Gibt es eine Möglichkeit, das Auslösen von Ereignissen für alle Komponenten zu unterbinden, ohne dass man für jede Komponente die festgelegte Ereignisprozedur zurück- und neusetzen muss?

Der Ausdruck
varWdApp.ActiveDocument.PrintOut(false);
druckt das im Programm erstellte Worddokument als Ganzes aus.

Wie sieht der Ausdruck aus, wenn ich nur die 1. Seite, die aber mehrfach, drucken will?

Ich habe leider nichts dazu gefunden, wie der VBA-Code in Lazarus umzusetzen wäre ...

Das Feld war ein Memo (in der DB Datentyp "Langer Text"). Wurde auch richtig erkannt, weil mit FillRect die Zelle überzeichnet wurde ("(Memo)" war weg)

Die Lösung mit TextOut funktioniert aber so wie es sein soll.

Vielen Dank

Ich stehe auch gerade vor dem Problem, dass ich in einer Access-DB Memos / Langer Text habe und diese in einem DBGrid anzeigen lassen möchte.

Ich habe die Prozedur "...OnDrawColumnCell..." aus "dbgrid_wordbreak.zip" eingebaut und sie läuft auch ohne Fehlermeldung durch. (Memo) erscheint nicht mehr ...

Scheint kein Problem mit der FileListbox sondern ein Projektproblem zu sein (hab da an der eingestellten Zeichen-Kodierung rumgespielt). Bei nem neuen Projekt ist alles wie es soll: Umlaute werden angezeigt.

@wp_xyz: Was meinst du mit Leute, warum quält ihr euch mit so uralten Lazarus- und FPC ...

Ich wollte einfach nur die Dateien eines Verzeichnisses in einer Listbox anzeigen, bei Umlauten gibt es nur Fragezeichen.

Ich weiß, es hängt mit der Codierung der Zeichen zusammen, aber wie kann ich die Anzeige in der Listbox korrigieren?
(Wahrscheinlich habe ich gerade ein Brett vor dem Kopf, aber ...

Nicht getestet, aber kann man nicht den BorderStyle vor dem Parent setzen? Ohne Parent kann das Memo nicht dargestellt werden, daher sollte es auch kein Aufblitzen des Rahmens geben.

var
memo: TMemo;
begin
memo := TMemo.Create(self);
memo.BorderStyle := bsNone;
memo.Parent := self ...

Danke, ich werde es mal ausprobieren

Ist es möglich, die Eigenschaften von Standardkomponenten in der IDE zu ändern?

Mein Beispiel:

Ich erzeuge dynamisch mehrere Memo-Felder, deren Borderstyle ja standardmäßig auf bssingle steht. Ich möchte diesen Rand
aber nicht haben und setzte die Eigenschaft direkt nach dem Erzeugen auf bsnone ...

Danke, das hab ich mir schon gedacht...

Ich hab hier eine kleines Programm mit Haupt- und "Unter"fenstern, die alle auf Full-HD Auflösung angepasst sind.

Jetzt sollte ich "schnell" das Programm bei jemanden einrichten, der mit einem Bildschirm 1280x1024 arbeitet. Jetzt könnte man
natürlich programmintern die Formulargröße anpassen und ...

Vielen Dank für die Hilfe. Wie es scheint, wurde der Fehler nicht an der Stelle "produziert". Ich habe den Code der Unit noch einmal komplett neu/umgeschrieben,
weil ich ihn selbst nicht mehr verstanden habe. Teilweise wurde Prozeduren wiederholt (auch mit DB-Zugriff) ausgeführt, weil ich ...

Wenn ich mit


SQLQuery1.SQL.Text:=UTF8ToCP1252('SELECT * FROM T_Verlauf where ([Prüfnrr] like :Pruefnr) and ([Vorgang] like :Vorgang)');

Datasource1.dataset:=SQLQuery1;
try SQLQuery1.params.ParamByName('Pruefnr').AsString:='%'+UTF8ToWinCP(Pruef_Nr_Label.caption)+'%'; ;except;end;
try ...

Die Vorlage *.dot existiert im Ordner XY


try
varWdApp := CreateOleObject('Word.Application'); // erstellt das Wordobjekt
except
WriteLn('MS Word kann nicht gestartet werden.'); // Fehlerbehandlung
end;


varWdApp.Visible := True; // macht Word sichtbar
varDokument := varWdApp.Documents.add ...