Merkwürdiger TFontDialog

[MichaelT]

Geht. Allein wenn man dlg.Font:=nil setzt dann kommt bei mir eine Exception 'cannot assign nil to a TFont'

Ansonsten läuft das bei mir hier einwandfrei.

Ich gehe jetzt mal davon aus, dass du Tokyo nimmst. Arbeitest du mit Styles?

Zitat von Ghostwalker:

Servus,

ich hab folgende Funktion (abgespeckt):

Delphi-Quellcode:

function EditFont(AFont:TFont):boolean;
var
  dlg : TFontDialog;
begin
  result := false;
  dlg := VCL.Dialogs.TFontDialog.Create(NIL);
  if (dlg.Execute) then
    result := true;
  dlg.Free;
end;

Sobald ich das Teil aufrufe, semmelt mir das ganze mit einer Zugriffsverletzung beim dlg.execute.

Kann sich das einer erklären ????????

[Ghostwalker]

Sowohl mit also auch ohne Styles bekomme ich den Fehler.

Wie du siehst, weiße ich dlg.font nix zu, steht also auf dem Default-Wert des Dialogs beim erzeugen.

[EWeiss]

Zitat von Ghostwalker:

Sowohl mit also auch ohne Styles bekomme ich den Fehler.

Wie du siehst, weiße ich dlg.font nix zu, steht also auf dem Default-Wert des Dialogs beim erzeugen.

ka.. vielleicht geht das?

dlg := VCL.Dialogs.TFontDialog.Create(self);
eventuell holt er sich dann die Font Informationen aus der Main Class bzw. deiner Form.
Ist aber auch möglich das ich quatsch rede

Einen Font zuweisen bevor du den Dialog(Execute) ausführst?
dlg.Font := Form1.Font;

gruss

[Delphi.Narium]

Kann den Fehler hier nicht nachvollziehen.

Bau bitte mal ein Minimalprogramm mit reproduzierbarem Fehler und hänge die Exe hier an. (Und eventuell den Source, damit man, bei auftretendem Fehler in der Exe, es mal mit 'nem anderen Delphi kompilieren kann.)

Eventuell ist es ja kein Programmierfehler, sondern irgendwie systemabhängig. Das könnte man dann so mal testen.

Frei nach dem Motto: Kracht die Exe nur bei Dir oder bei allen, die sie mal starten.

Wer testet schreibt hier dann kurz:

Geht mit Windowsversion.

oder eben:

Geht nicht mit Windowsversion.

oder:

kompiliert mit Delphi xy, Windowsversion, Fehler tritt auf / tritt nicht auf

[MichaelT]

War allein ein Hinweis, wenn bei mir überhaupt eine Exception auftritt.

Dann brauchen wir ein Cut Down und eine Executable bei der das Problem auftritt.

Ich kann man nur erinnern, Forum Github. Es gibt einen Hinweis ganz unten auf 10.2.2.

Du sagst bei anderen Dialogen tritt das Problem nicht auf? Das kommt mir seltsam vor. Sonst würde ich auf die Registrierung der Hooks tippen.

High DPI?

Zitat von Ghostwalker:

Sowohl mit also auch ohne Styles bekomme ich den Fehler.

Wie du siehst, weiße ich dlg.font nix zu, steht also auf dem Default-Wert des Dialogs beim erzeugen.

[jaenicke]

An welcher Stelle kommt denn die Exception im Execute? Wie sieht der Stacktrace dazu aus?

[KodeZwerg]

Bevor ich wieder mit Kanonen auf Spatzen schieße, ich kenne TFontDialog noch nicht aber ich weiß wie ich alle registrierten Fonts in eine Auswahl-Box bekomme, falls das helfen kann pieps einmal.

[Ghostwalker]

Zitat von jaenicke:

An welcher Stelle kommt denn die Exception im Execute? Wie sieht der Stacktrace dazu aus?

An welcher Stelle im Execute kann ich nicht sagen, da in der Starter keine Sourcen da sind

Ich hab mal einige weitere Tests gemacht:

1. Extra Testprogrämmchen -> TFontDialog drauf -> Button drauf -> funktioniert
2. Extra Testprogrämmchen -> Button drauf -> funktion reinkopiert -> funktioniert.

Ok...das Problem tritt also nur im Haupprojekt auf. Also dacht ich, ok...vielleicht ein Resourcen/Speicherpropblem.

Hab dann das Programm außerhalb der IDE gestartet -> Der TFontdialog funktioniert !!!

Das problem tritt also nur im Projekt innerhalb der IDE auf. was das ganze noch merkwürdiger macht.

@MichaelT

Der Kommentar bezieht sich auf die zusätzlichen Style-Utils, die ich aber hier nicht verwende.

@KodeZwerg

Wenn alle Stricke reisen muss ich mir da wohl einen eigenen Font-Dialog bauen. Ich hatte eigentlich
gehofft, das vermeiden zu können.

[jaenicke]

Zitat von Ghostwalker:

An welcher Stelle im Execute kann ich nicht sagen, da in der Starter keine Sourcen da sind

Das nicht, aber wenn du dort anhältst, solltest du eine Fehlerposition im Assemblercode und mit aktivierten Debug-DCUs auch einen passablen Stacktrace bekommen.

[uligerhardt]

Ist's ein Konsolen-, VCL- oder sonst ein Projekt? Und wann im Ablauf wird die Funktion aufgerufen? Ich hatte mal das Problem, dass ich einen OpenDialog vorm Anzeigen der MainForm gebraucht habe. Da musste ich irgendwas mit CoInitialize oder uses ComObj rumtricksen. KA, wieweit das den FontDialog betrifft.