Deutsches Lazarusforum

Habe mal kurz den TEventLog getestet.
Funktioniert ganz einfach und wird auf Linux im Systemd-Journalbetrachter angezeigt.
Wenn man Logtype auf ltFile einstellt, kommt es im "Filename".

uses eventlog;
...
procedure TForm1.Button1Click(Sender: TObject);
var
lg: TEventLog;
begin
lg := TEventLog ...

Bisher hatte ich die da abgelegt wo meine Anwendung liegt, aber unter Mac und manchmal Linux scheint das keine Gute idee zu sein ...


Warum? Du musst ein bisschen genauer werden.
Installierst du die Anwendung ins System oder unter /home?
Willst du "privat" loggen oder soll es mit den ...

Willst du das System Logging verwenden oder einfach eine Datei?

Schon mal TEventLog angeschaut?
https://www.freepascal.org/docs-html/fc ... ntlog.html
https://www.freepascal.org/docs-html/fc ... gtype.html
https://forum.lazarus.freepascal.org/in ... ic=43352.0

Von mir auch ein schönes Weihnachtsfest!

Ich denke MIT ist ziemlich frei
https://de.wikipedia.org/wiki/MIT-Lizenz

Ja natürlich. Die Lizenz wäre sowas wie: "Mach damit, was Du möchtest". Gibt es da eine Vorlage, welche man kopieren kann?


Auf Github geht das automatisch.
Du kannst meine vom IDESearchPanel "klauen", wenn du LGPL möchtest.
Aber frag mich nicht, IANAL. :wink:
https://github.com/theo222/laz ...

Synaser ist Teil von Synapse:
https://wiki.freepascal.org/Hardware_Ac ... munication

Synapse ist im Online Package Manager als Synapse 40.1

Mit "Options" -> "dgAutoSizeColumns" schon probiert?

da ich aus zwei fPFUI Versionen Units benutze,

So hart würde ich es nicht ausdrücken. :lol:
Vielleicht könntest du trotzdem mal erklären, warum du auf fpGUI und nur darauf setzt.
Mich würden die Gründe dafür interessieren. Vielleicht lerne ich etwas dabei?
LCL Programmierung ist ja im Prinzip ...

Ich habe einen anderen mysteriösen Fehler beim Compilieren:

Error: Multiple defined symbol "$unwind$FPG_BASE$_$TFPGMIMEDATABASE_$__$$_CREATE$$TFPGMIMEDATABASE"

Warum tritt dieser Fehler auf?

Wo ist das Symbol überhaupt definiert? Der Compiler zeigt mir nämlich keine Codezeile an!


Das wird ...

Ohne Umweg über den String sollte es so gehen

procedure TForm1.Button1Click(Sender: TObject);
var
iter: integer;
XYColor: LongInt;
mdColor: TFPColor;
begin
iter:= 11;
XYColor := Iter*100000;
MdColor:= TColorToFPColor(TColor(XYColor));
end;



Den Typecast braucht es aber mMn nicht ...

So habe ich die Lösung gefunden:

MdColor:= TColorToFPColor(StringToColor(IntToStr(XYColor )));

Panel2.canvas.drawPixel(XS, YSH - YS, MdColor);


Diese komplizierte Mehrfachumwandlung sieht etwas unbeholfen aus.
Wenn du uns erklären würdest, was dein "Integerwert" genau bedutet, könnte man das ...

Mario Peters hat geschrieben: Mi 10. Dez 2025, 13:43

Code: Alles auswählen

  FClipBoard.Delete(DelIndex); // Auch das löst mein Problem nicht

Ich bin mir ziemlich sicher, dass dies dein Problem löst.
Vielleicht hast du noch ein zusätzliches Problem, aber kaum mit der selben Fehlermeldung an der selben Stelle.

TColorToFPColor() ?

https://wiki.freepascal.org/Colors

Es wäre ganz gut, wenn du die Deklaration von FClipBoard angeben würdest.
Dieses "Casting" macht auch keinen Sinn:

TStringList(FClipBoard.Delete[DelIndex]);

Aber hauptsächlich verwendest du eckige Klammern. Das ist falsch. Es ist eine Procedure. So geht's bestimmt:

FClipBoard.Delete(DelIndex ...