From 2ed9211d89eca42f570d11b64e027798b1885c57 Mon Sep 17 00:00:00 2001
From: Nikolaos Georgiou <nikolaos.georgiou@gmail.com>
Date: Tue, 6 Sep 2022 07:45:05 +0200
Subject: [PATCH] fix: Missing style initialization in DfmEngine

---
 Chameleon.lpi |   2 +-
 Chameleon.res | Bin 2472 -> 2472 bytes
 DfmEngine.pas |   1 +
 frmMain.pas   |   2 +-
 4 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Chameleon.lpi b/Chameleon.lpi
index ea77117..c797f83 100644
--- a/Chameleon.lpi
+++ b/Chameleon.lpi
@@ -26,7 +26,7 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="1"/>
-      <BuildNr Value="2"/>
+      <BuildNr Value="3"/>
     </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
diff --git a/Chameleon.res b/Chameleon.res
index a0c2e16f2399e07a76336c19016a61a4959c4a7a..c8f7da276df96c5299503261931fe04465f60711 100644
GIT binary patch
delta 20
bcmZ1>yh3<G2|FY6<WlzEjK-S_Im{UWNDKx@

delta 20
bcmZ1>yh3<G2|FXx<WlzEj7FOaIm{UWNBRav

diff --git a/DfmEngine.pas b/DfmEngine.pas
index 544436c..856c214 100644
--- a/DfmEngine.pas
+++ b/DfmEngine.pas
@@ -159,6 +159,7 @@ begin
   childlist := TList.Create;
 
   dfm1.WriteLn('object ' + frmName + ': T' + frmName);
+  style := GetWindowLong(wnd, GWL_EXSTYLE);
   exstyle := GetWindowLong(wnd, GWL_EXSTYLE);
   dfm1.Ident := 2;
   dfm1.WritePlacement(wnd, 0);
diff --git a/frmMain.pas b/frmMain.pas
index 24638b5..13ddce5 100644
--- a/frmMain.pas
+++ b/frmMain.pas
@@ -5,7 +5,7 @@ unit frmMain;
 interface
 
 uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ExtCtrls, Spin, ComCtrls, Buttons;
 
 type