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 #4 from ngeor/instarepo_branch

Browse Source 
instarepo automatic PR
This commit is contained in:
Nikolaos Georgiou 2021-11-03 08:03:36 +01:00 committed by GitHub
commit cdc7f8b6d2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
DfmEngine.pas
View File

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

1
about1.pas
View File

@ -48,4 +48,3 @@ begin
end;
end.

9
frmMain.pas
View File

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