Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

--- public:codetyphon [2023/12/10 11:41] – 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 22: / Zeile 23: @@
 Zur Änderung des Modus ist immer ein Neustart der App erforderlich.
-===== Neustart zur Laufzeit auslösen =====
+===== Neustart zur Laufzeit auslösen (Windows)=====
 Dafür gibts die Unit jmrestart.pas.
 <code pascal>
@@ Zeile 28: / Zeile 29: @@
 {
-Diese Unit als ERSTE in die Uses Klausel des Project Quelltextes einbinden.
+Diese Unit als ERSTE in die Uses Klausel des Projektquelltextes einbinden.
-Soll die Anwednung sich selbst neu startet so muß ReStartProgram := True gesetzt
+Soll die Anwendung sich selbst neu starten, so muss ReStartProgram := True gesetzt
-werden und anschließend die laufende Applikation einfach beendet werden.
+werden und anschließend die laufende Applikation beendet werden.
 }
@@ Zeile 61: / Zeile 62: @@
 </code>
-====== CT Version 7.7 ======
-===== Öffnen eines alten Projektes mit TuLED-Komponenten =====
-===== Konverter =====
+===== 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 =====
+==== Öffnen eines alten Projektes mit TuLED-Komponenten ====
+==== Konverter ====
 Download für Windows: {{ :public:konverter77.zip | Konverter77}}
@@ Zeile 70: / 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