Personale/Chameleon
1
0
Fork 0
mirror of https://github.com/ngeor/Chameleon.git synced 2025-12-19 09:53:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix: Missing style initialization in DfmEngine

Browse Source
This commit is contained in:
Nikolaos Georgiou 2022-09-06 07:45:05 +02:00
parent 3c412959b6
commit 2ed9211d89
4 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Chameleon.lpi
View File

@ -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"/>

BIN
Chameleon.res
View File

Binary file not shown.

1
DfmEngine.pas
View File

@ -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);

2
frmMain.pas
View File

@ -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