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

chore: Auto-formatted Pascal files: DfmEngine.pas, frmMain.pas

Browse Source
This commit is contained in:
Nikolaos Georgiou 2022-02-06 07:28:09 +01:00
parent 3b49da1ce2
commit 3ea8370213
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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;