Deutsches Lazarusforum

So wie ich das sehe, wird dort ein Fenster erzeugt und als Child vom Desktopwindow hinter den Desktop Icons gezeichnet. Das mit dem SendMessage dient dann nur der Kommunikation mit diesem Fenster, da das Desktopfenster nicht dafür ausgelegt ist, Children zu verwalten. Aus dem Grund kommen ansonsten ...

Also ich hab's mal getestet.
Das Programmelchen speichert ein Png mit dem Inhalt des Desktops in C:\users\user\pictures\test.png

Was genau ist jetzt Deine Frage?

Wenn man in den Projekteinstellungen unter Compilereinstellungen -> Hinzufügungen und Beeinflussungen -uconsole einträgt, dann passt es auch im Codeeditor.
Ich hätte halt gerne gewusst, wo console ursprünglich definiert wurde.

Ihr könnt es ja gerne mal selbst ausprobieren.

Ich hatte letztens ein Video über den minimax bzw. Alpha Beta Prune Algorithmus gesehen und wollte das mal in einem 4 Gewinnt Spiel umsetzen.
Es sieht zwar noch grauselich aus und der minimax Algorithmus ist bei einer maxTiefe von mehr als 6 quälend ...

Das?
https://www.freepascal.org/daily/doc/prog/progsu88.html


Ja, das hatte ich schon gelesen. Wenn ich in meiner Anwendung einen Button einbaue und darin:

procedure TViergewinntMainForm.btnisConsoleClick(Sender: TObject);
begin
if IsConsole then showmessage('console') else showmessage('gui ...

Hallo,

ich arbeite an einem kleinen Projekt, welches zwar als "Applikation" erzeugt wurde, aber zunächst als einfaches Konsolenprogramm arbeiten sollte.
Zu dem Zweck habe ich unter Projekteinstellungen -> Compilereinstellungen -> Konfiguration und Ziele -> Zielbetriebssystemspezifische ...

Du kannst das Projekt mi der Option -gw3 kompilieren. Dabei werden auch alle verwendeten Packages mit Debuggerinformationen übersetzt und du kannst nachvollziehen, wo genau das Problem auftritt.

Ich habe es getestet unter Win11 64. Compiliert und läuft einwandfrei.
Was mich zu Anfang etwas verwirrt hat, war, dass man "Würfeln" anklickt und nichts passiert.
Man muss zuerst ein neues Spiel starten.

Sehr gut gemacht!

OK, um das Thema dann abzuschließen, denke ich, sollte ich den Code aus meinem GitHub hier reinhängen, damit er im Forum verfügbar ist, falls es irgendwann das GitHub-Repo nicht mehr geben sollte.


Ja, das war die Ursache. Ich hatte mit der Version aus dem Thread hier gearbeitet. Nachdem ich nun ...

Ich habe ein kleines Dokument in Wordpad gemacht. Nach dem Zeilenumbruch nach 2 habe ich extra nochmal Enter gedrückt, um eine weitere leere Zeile zu bekommen.
Bei dem Export ohne das zusätzliche <br /> wird das ignoriert.


wordpad.png

htmlexport_ohne_br.png htmlexport_mit_br.png


Es geht ...

Wenn man nur mit der Entertaste eine neue Zeile einfügt, erscheint einfach ein leerer Paragraph \par in der rtf Datei. Bei Shift+Enter erscheint ein \line. Damit müsste doch was anzufangen sein.

Edit: Ich habe mal in urtf2html.pas in der Procedure DoSpecialChar im Case Block bei rtfPar vor dem ...

Hab da auch mal etwas mit rumgespielt.
Wenn man Leerzeilen nur mit der Entertaste im RTF Editor einträgt, erscheint kein RTFLine Token und wird somit auch nicht als <br /> exportiert.
Macht man es hingegen mit Shift+Entertaste, dann wird es eingefügt.

Cool, so funktioniert es auch mit Methoden, welche Parameter brauchen.
Hier ein Beispiel:

Die Direktive $M+ ist notwendig, damit einfache Klassen published Properties haben können.


unit Unit1;

{$mode objfpc}{$H+}{$M+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs ...

Zvoni hat geschrieben: Do 9. Okt 2025, 12:01 FormActivate zündet jedesmal, wenn deine Form den Fokus zurückerhält.
...

Wobei das zwar einen Memoryleak erzeugen würde aber keine Access Violation.
Meine Vermutung ist eher, dass Info bereits zuvor freigegeben wurde und nicht auf nil gesetzt.

So geht's

type
TBoolMethod = function : boolean of Object;
var
p : Pointer;
BoolMethod : TBoolMethod absolute p;

procedure TForm1.Button1Click(Sender: TObject);
var b : boolean;
begin
p := Form2.MethodAddress('BoolHallo');
TMethod(BoolMethod).code:= p;
TMethod(BoolMethod).data:=form2 ...