Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

--- public:codetyphon [2023/12/10 11:36] – JM
+++ public:codetyphon [2023/12/10 12:08] (aktuell) – JM
@@ Zeile 1: / Zeile 1: @@
-====== CT Version 8.1 ======
+====== CodeTyphon / Freepascal ======
-Aktivierung der Unterstützung für Dark Mode unter Windows.
+===== Aktivierung der Unterstützung für Dark Mode (Windows) =====
+Funktioniert ab CT Version 8.1.
 In der IDE: mit dem Paketmanager das Paket pl_Win_Darkstyle hinzufügen und komplett neu kompilieren.
@@ Zeile 20: / Zeile 22: @@
 Zur Änderung des Modus ist immer ein Neustart der App erforderlich.
+===== Neustart zur Laufzeit auslösen (Windows)=====
+Dafür gibts die Unit jmrestart.pas.
+<code pascal>
+unit jmRestart;
+{
+Diese Unit als ERSTE in die Uses Klausel des Projektquelltextes einbinden.
+Soll die Anwendung sich selbst neu starten, so muss ReStartProgram := True gesetzt
+werden und anschließend die laufende Applikation beendet werden.
+}
+{$mode ObjFPC}{$H+}
+interface
+var
+  RestartProgram: boolean = false;
+implementation
+uses Windows;
+procedure DoReStart;
+var
+  StartupInfo: TStartupInfo;
+  ProcessInformation: TProcessInformation;
+begin
+  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
+  StartupInfo.cb := SizeOf(StartupInfo);
+  StartupInfo.wShowWindow := sw_ShowNormal;
+  CreateProcess(PChar(ParamStr(0)), '', nil, nil, False, 0, nil, nil, StartupInfo, ProcessInformation);
+end;
+initialization
+finalization
+if RestartProgram then DoReStart;
+end.
+</code>
+===== Versionsinformation auslesen (Windows) =====
+Gibt die Version (3 Ebenen) und den Build-Count zurück.
+<code pascal>
+uses windows;
+function GetCurrentVersion: String;
+var
+  VerInfoSize: DWORD;
+  VerInfo: Pointer;
+  VerValueSize: DWORD;
+  VerValue: PVSFixedFileInfo;
+  Dummy: DWORD;
+begin
+  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
+  GetMem(VerInfo, VerInfoSize);
+  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
+  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
+  with VerValue^ do begin
+    Result := 'Version '+IntToStr(dwFileVersionMS shr 16);
+    Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
+    Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
+    Result := Result + ' Build ' + IntToStr(dwFileVersionLS and $FFFF);
+  end;
+  FreeMem(VerInfo, VerInfoSize);
+end;
+</code>
-====== CT Version 7.7 ======
+===== CT Version 7.7 =====
-===== Öffnen eines alten Projektes mit TuLED-Komponenten =====
+==== Öffnen eines alten Projektes mit TuLED-Komponenten ====
-===== Konverter =====
+==== Konverter ====
 Download für Windows: {{ :public:konverter77.zip | Konverter77}}
@@ Zeile 31: / Zeile 108: @@
 Bedienung: Projektverzeichnis auswählen und updaten.
-===== Manuell =====
+==== Manuell ====
 Änderungen mit einem beliebigem Texteditor durchführen:
-==== In der Projektdatei .ctpr ====
+=== In der Projektdatei .ctpr ===
 Ersetze "pl_BGRAuecontrols" durch "pl_BGRAextra".
-==== In der Projektdatei .ppr ====
+=== In der Projektdatei .ppr ===
 Ersetze "pl_BGRAuecontrols" durch "pl_BGRAextra".
-==== In der Formulardatei unit1.frm (in allen Formularen mit LED-Komponenten) ====
+=== In der Formulardatei unit1.frm (in allen Formularen mit LED-Komponenten) ===
 Ersetze alle "TuELED" durch "TbgraLedEx".
-==== In der Formulardatei unit1.pas (in allen Formularen mit LED-Komponenten) ====
+=== In der Formulardatei unit1.pas (in allen Formularen mit LED-Komponenten) ===
 Im uses-Bereich: ersetze "ueled" durch "bgraExLed"

Area 53

Benutzer-Werkzeuge

Webseiten-Werkzeuge

Unterschiede

Seiten-Werkzeuge