Skin´s
-
- Lazarusforum e. V.
- Beiträge: 7180
- Registriert: So 19. Nov 2006, 12:06
- OS, Lazarus, FPC: Linux Mint 19.3
- CPU-Target: AMD
- Wohnort: Oldenburg(Oldenburg)
Re: Skin´s
Ich habe einen Weg gefunden, allerdings bei bestimmten RC-Dateien hängt sich die Procedure auf, aber auch nur beim zweiten Aufruf mit einer anderen Datei:
ach ja, ganz wichtig: Beim Demo müsst ihr die XP Datei Style ausschalten, sonst geht es nicht
Code: Alles auswählen
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenDialog2.Execute then begin
gtk_rc_init; // _X_ meint das hätte bei ihn geholfen, bei mir leider nicht
gtk_rc_parse(pchar(OpenDialog2.FileName));
end;
end;
ach ja, ganz wichtig: Beim Demo müsst ihr die XP Datei Style ausschalten, sonst geht es nicht
MFG
Michael Springwald
Michael Springwald