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

Merge pull request #8 from ngeor/instarepo_branch

Browse Source 
instarepo automatic PR
This commit is contained in:
Nikolaos Georgiou 2022-02-06 07:49:28 +01:00 committed by GitHub
commit 196462f11c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -7,5 +7,6 @@ All notable changes to this project will be documented in this file.
- Updated copyright year in LICENSE - Updated copyright year in LICENSE
- Adding cliff.toml - Adding cliff.toml
- Auto-formatted Pascal files: DfmEngine.pas, frmMain.pas
<!-- generated by git-cliff --> <!-- generated by git-cliff -->

12
DfmEngine.pas
View File

@ -67,8 +67,10 @@ const
function BitTest(Value, Mask: integer): boolean; function BitTest(Value, Mask: integer): boolean;
function GetWndText(wnd: HWND): string; function GetWndText(wnd: HWND): string;
function EnumChildrenProc(wnd: HWND; lp: LPARAM): BOOL; stdcall; function EnumChildrenProc(wnd: HWND; lp: LPARAM): BOOL; stdcall;
procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP; BelongsToPicture: boolean; const Name: string); procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP;
procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean; const Name: string); BelongsToPicture: boolean; const Name: string);
procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean;
const Name: string);
implementation implementation
@ -300,7 +302,8 @@ procedure TDfmBuilder.HandleTreeView(wnd: HWND; style: integer);
begin begin
end; end;
procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP; BelongsToPicture: boolean; const Name: string); procedure WriteBitmapData(dfm1: TDfmWriter; bmp: HBITMAP;
BelongsToPicture: boolean; const Name: string);
var var
b: TBitmap; b: TBitmap;
Memory: TTextWriter; Memory: TTextWriter;
@ -334,7 +337,8 @@ begin
end; end;
end; end;
procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean; const Name: string); procedure WriteIconData(dfm1: TDfmWriter; icon: HICON; BelongsToPicture: boolean;
const Name: string);
var var
i: TIcon; i: TIcon;
k: TTextWriter; k: TTextWriter;

9
frmMain.pas
View File

@ -48,7 +48,8 @@ type
procedure btnAboutClick(Sender: TObject); procedure btnAboutClick(Sender: TObject);
procedure SaveRCClick(Sender: TObject); procedure SaveRCClick(Sender: TObject);
private private
procedure GenerateDfmFile(const filename, frmname: string; wnd: HWND; PasList: TStrings); procedure GenerateDfmFile(const filename, frmname: string; wnd: HWND;
PasList: TStrings);
procedure GeneratePasFile(const filename, frmname: string; PasList: TStrings); procedure GeneratePasFile(const filename, frmname: string; PasList: TStrings);
procedure GetWinInfo(wnd: HWND; ParentNode: TTreeNode); procedure GetWinInfo(wnd: HWND; ParentNode: TTreeNode);
procedure EnableSavePas; procedure EnableSavePas;
@ -131,7 +132,8 @@ begin
SendMessage(wnd, CB_GETLBTEXT, i - 1, longint(@itemtext)); SendMessage(wnd, CB_GETLBTEXT, i - 1, longint(@itemtext));
node2 := AddChild(node1, 'Item #' + IntToStr(i)); node2 := AddChild(node1, 'Item #' + IntToStr(i));
AddChild(node2, 'Text = ' + itemtext); AddChild(node2, 'Text = ' + itemtext);
AddChild(node2, 'Data = ' + IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0))); AddChild(node2, 'Data = ' +
IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0)));
end; end;
end; end;
if childlist.Count > 0 then if childlist.Count > 0 then
@ -201,7 +203,8 @@ begin
end; end;
procedure TMainForm.GenerateDfmFile(const filename, frmName: string; wnd: HWND; PasList: TStrings); procedure TMainForm.GenerateDfmFile(const filename, frmName: string;
wnd: HWND; PasList: TStrings);
var var
OutStream: TFileStream; OutStream: TFileStream;
b1: TDfmBuilder; b1: TDfmBuilder;