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"/> <UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="1"/> <MinorVersionNr Value="1"/>
<BuildNr Value="2"/> <BuildNr Value="3"/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <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; childlist := TList.Create;
dfm1.WriteLn('object ' + frmName + ': T' + frmName); dfm1.WriteLn('object ' + frmName + ': T' + frmName);
style := GetWindowLong(wnd, GWL_EXSTYLE);
exstyle := GetWindowLong(wnd, GWL_EXSTYLE); exstyle := GetWindowLong(wnd, GWL_EXSTYLE);
dfm1.Ident := 2; dfm1.Ident := 2;
dfm1.WritePlacement(wnd, 0); dfm1.WritePlacement(wnd, 0);

2
frmMain.pas
View File

@ -5,7 +5,7 @@ unit frmMain;
interface interface
uses uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Spin, ComCtrls, Buttons; StdCtrls, ExtCtrls, Spin, ComCtrls, Buttons;
type type