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

Upgraded Chameleon

Browse Source
This commit is contained in:
Nikolaos Georgiou 2021-05-30 09:36:57 +02:00
parent a5cf23eda4
commit f06dc8b9cf
5 changed files with 154 additions and 165 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Chameleon.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags> <Flags>
@ -29,9 +29,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
<Item1> <Item1>

BIN
Chameleon.res
View File

Binary file not shown.

85
about1.lfm
View File

@ -1,91 +1,70 @@
object AboutBox: TAboutBox object AboutBox: TAboutBox
Left = 910 Left = 910
Height = 326 Height = 186
Top = 703 Top = 703
Width = 361 Width = 206
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'About' Caption = 'About'
ClientHeight = 326 ClientHeight = 186
ClientWidth = 361 ClientWidth = 206
DesignTimePPI = 168
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -24 Font.Height = -14
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.8.0.6' LCLVersion = '2.0.6.0'
object Panel1: TPanel object Panel1: TPanel
Left = 20 Left = 11
Height = 200 Height = 114
Top = 20 Top = 11
Width = 320 Width = 183
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 200 ClientHeight = 114
ClientWidth = 320 ClientWidth = 183
TabOrder = 0 TabOrder = 0
object ProductName: TLabel object ProductName: TLabel
Left = 20 Left = 11
Height = 29 Height = 17
Top = 20 Top = 11
Width = 117 Width = 68
Alignment = taCenter Alignment = taCenter
Caption = 'Chameleon' Caption = 'Chameleon'
Font.CharSet = GREEK_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Tahoma'
ParentColor = False ParentColor = False
ParentFont = False
end end
object Version: TLabel object Version: TLabel
Left = 20 Left = 11
Height = 29 Height = 17
Top = 60 Top = 34
Width = 139 Width = 80
Alignment = taCenter Alignment = taCenter
Caption = 'Version 0.0.2' Caption = 'Version 0.0.2'
Font.CharSet = GREEK_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Tahoma'
ParentColor = False ParentColor = False
ParentFont = False
end end
object Copyright: TLabel object Copyright: TLabel
Left = 20 Left = 11
Height = 29 Height = 17
Top = 100 Top = 57
Width = 231 Width = 131
Alignment = taCenter Alignment = taCenter
Caption = '(C) Nikolaos Georgiou' Caption = '(C) Nikolaos Georgiou'
Font.CharSet = GREEK_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Tahoma'
ParentColor = False ParentColor = False
ParentFont = False
end end
object Comments: TLabel object Comments: TLabel
Left = 20 Left = 11
Height = 29 Height = 17
Top = 140 Top = 80
Width = 128 Width = 70
Alignment = taCenter Alignment = taCenter
Caption = 'MIT License' Caption = 'MIT License'
Font.CharSet = GREEK_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Tahoma'
ParentColor = False ParentColor = False
ParentFont = False
WordWrap = True WordWrap = True
end end
end end
object OKButton: TButton object OKButton: TButton
Left = 110 Left = 63
Height = 65 Height = 37
Top = 240 Top = 137
Width = 140 Width = 80
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1

202
frmMain.lfm
View File

@ -1,87 +1,89 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 645 Left = 645
Height = 522 Height = 298
Top = 560 Top = 560
Width = 750 Width = 429
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'Chameleon' Caption = 'Chameleon'
ClientHeight = 522 ClientHeight = 298
ClientWidth = 750 ClientWidth = 429
Color = clBtnFace
DesignTimePPI = 168
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -24 Font.Height = -14
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
LCLVersion = '1.8.0.6' LCLVersion = '2.0.6.0'
object lblDelayTime: TLabel object lblDelayTime: TLabel
Left = 36 Left = 21
Height = 29 Height = 17
Top = 20 Top = 11
Width = 294 Width = 168
Caption = 'Time until restoring control:' Caption = 'Time until restoring control:'
ParentColor = False ParentColor = False
end end
object Label1: TLabel object Label1: TLabel
Left = 478 Left = 273
Height = 29 Height = 17
Top = 20 Top = 11
Width = 55 Width = 32
Caption = 'msec' Caption = 'msec'
ParentColor = False ParentColor = False
end end
object DelayTime: TSpinEdit object DelayTime: TSpinEdit
Left = 360 Left = 206
Height = 37 Height = 25
Top = 20 Top = 11
Width = 111 Width = 63
MaxValue = 0 MaxValue = 0
TabOrder = 0 TabOrder = 0
Value = 3000 Value = 3000
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 36 Left = 21
Height = 396 Height = 226
Top = 100 Top = 57
Width = 692 Width = 395
ActivePage = InformationSheet ActivePage = InformationSheet
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 1
object InformationSheet: TTabSheet object InformationSheet: TTabSheet
Caption = 'Get information' Caption = 'Get information'
ClientHeight = 354 ClientHeight = 196
ClientWidth = 684 ClientWidth = 387
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
ParentFont = False
object lblWndValue: TLabel object lblWndValue: TLabel
Left = 56 Left = 32
Height = 29 Height = 17
Top = 160 Top = 91
Width = 134 Width = 78
Caption = 'HWND value' Caption = 'HWND value'
Enabled = False Enabled = False
ParentColor = False ParentColor = False
end end
object Information: TButton object Information: TButton
Left = 36 Left = 21
Height = 72 Height = 41
Top = 240 Top = 137
Width = 504 Width = 288
Caption = 'Get information' Caption = 'Get information'
OnClick = InformationClick OnClick = InformationClick
TabOrder = 3 TabOrder = 3
end end
object WndValue: TEdit object WndValue: TEdit
Left = 223 Left = 127
Height = 37 Height = 25
Top = 160 Top = 91
Width = 121 Width = 69
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object optAutomatic: TRadioButton object optAutomatic: TRadioButton
Left = 24 Left = 14
Height = 33 Height = 21
Top = 20 Top = 11
Width = 185 Width = 106
Caption = 'Select window' Caption = 'Select window'
Checked = True Checked = True
OnClick = optAutomaticClick OnClick = optAutomaticClick
@ -89,10 +91,10 @@ object MainForm: TMainForm
TabStop = True TabStop = True
end end
object optManual: TRadioButton object optManual: TRadioButton
Left = 24 Left = 14
Height = 33 Height = 21
Top = 100 Top = 57
Width = 320 Width = 183
Caption = 'Type in the window handle' Caption = 'Type in the window handle'
OnClick = optManualClick OnClick = optManualClick
TabOrder = 1 TabOrder = 1
@ -100,54 +102,58 @@ object MainForm: TMainForm
end end
object DelphiFormSheet: TTabSheet object DelphiFormSheet: TTabSheet
Caption = 'Create Delphi form' Caption = 'Create Delphi form'
ClientHeight = 354 ClientHeight = 196
ClientWidth = 684 ClientWidth = 387
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
ParentFont = False
object Label3: TLabel object Label3: TLabel
Left = 36 Left = 21
Height = 29 Height = 17
Top = 20 Top = 11
Width = 148 Width = 81
Caption = 'Unit file name' Caption = 'Unit file name'
ParentColor = False ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
Left = 36 Left = 21
Height = 29 Height = 17
Top = 140 Top = 80
Width = 122 Width = 70
Caption = 'Form name' Caption = 'Form name'
ParentColor = False ParentColor = False
end end
object PasFileName: TEdit object PasFileName: TEdit
Left = 36 Left = 21
Height = 37 Height = 25
Top = 60 Top = 34
Width = 324 Width = 185
OnChange = PasEditChange OnChange = PasEditChange
TabOrder = 0 TabOrder = 0
end end
object BrowsePas: TButton object BrowsePas: TButton
Left = 360 Left = 206
Height = 37 Height = 21
Top = 60 Top = 34
Width = 144 Width = 82
Caption = 'Browse...' Caption = 'Browse...'
OnClick = BrowsePasClick OnClick = BrowsePasClick
TabOrder = 1 TabOrder = 1
end end
object FormName: TEdit object FormName: TEdit
Left = 36 Left = 21
Height = 37 Height = 25
Top = 180 Top = 103
Width = 468 Width = 267
OnChange = PasEditChange OnChange = PasEditChange
TabOrder = 2 TabOrder = 2
end end
object SavePas: TButton object SavePas: TButton
Left = 36 Left = 21
Height = 72 Height = 41
Top = 240 Top = 137
Width = 468 Width = 267
Caption = 'Select window and save it' Caption = 'Select window and save it'
Enabled = False Enabled = False
OnClick = SavePasClick OnClick = SavePasClick
@ -156,38 +162,42 @@ object MainForm: TMainForm
end end
object RCSheet: TTabSheet object RCSheet: TTabSheet
Caption = 'Create resource script' Caption = 'Create resource script'
ClientHeight = 354 ClientHeight = 196
ClientWidth = 684 ClientWidth = 387
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
ParentFont = False
object Label2: TLabel object Label2: TLabel
Left = 36 Left = 21
Height = 29 Height = 17
Top = 20 Top = 11
Width = 135 Width = 75
Caption = 'RC file name' Caption = 'RC file name'
ParentColor = False ParentColor = False
end end
object RCFileName: TEdit object RCFileName: TEdit
Left = 36 Left = 21
Height = 37 Height = 25
Top = 60 Top = 34
Width = 293 Width = 167
OnChange = RCFileNameChange OnChange = RCFileNameChange
TabOrder = 0 TabOrder = 0
end end
object BrowseRC: TButton object BrowseRC: TButton
Left = 324 Left = 185
Height = 37 Height = 21
Top = 60 Top = 34
Width = 144 Width = 82
Caption = 'Browse...' Caption = 'Browse...'
OnClick = BrowseRCClick OnClick = BrowseRCClick
TabOrder = 1 TabOrder = 1
end end
object SaveRC: TButton object SaveRC: TButton
Left = 36 Left = 21
Height = 72 Height = 41
Top = 180 Top = 103
Width = 432 Width = 247
Caption = 'Select window and save it' Caption = 'Select window and save it'
Enabled = False Enabled = False
OnClick = SaveRCClick OnClick = SaveRCClick
@ -196,10 +206,10 @@ object MainForm: TMainForm
end end
end end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 565 Left = 323
Height = 64 Height = 37
Top = 20 Top = 11
Width = 163 Width = 93
Caption = 'About...' Caption = 'About...'
Glyph.Data = { Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100 76010000424D7601000000000000760000002800000020000000100000000100
@ -222,7 +232,7 @@ object MainForm: TMainForm
end end
object SaveDialog1: TSaveDialog object SaveDialog1: TSaveDialog
Options = [ofOverwritePrompt, ofHideReadOnly] Options = [ofOverwritePrompt, ofHideReadOnly]
left = 640 left = 366
top = 420 top = 240
end end
end end

23
frmResults.lfm
View File

@ -1,29 +1,28 @@
object Results: TResults object Results: TResults
Left = 197 Left = 197
Height = 395 Height = 226
Top = 144 Top = 144
Width = 390 Width = 223
Caption = 'Chameleon Information' Caption = 'Chameleon Information'
ClientHeight = 395 ClientHeight = 226
ClientWidth = 390 ClientWidth = 223
Color = clBtnFace Color = clBtnFace
DesignTimePPI = 168
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -24 Font.Height = -14
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
LCLVersion = '1.8.0.6' LCLVersion = '2.0.6.0'
object TreeView1: TTreeView object TreeView1: TTreeView
Left = 0 Left = 0
Height = 395 Height = 226
Top = 0 Top = 0
Width = 390 Width = 223
Align = alClient Align = alClient
Indent = 19 Indent = 11
TabOrder = 0 TabOrder = 0
end end
object popListData: TPopupMenu object popListData: TPopupMenu
left = 101 left = 58
top = 15 top = 9
object Savelistdata1: TMenuItem object Savelistdata1: TMenuItem
Caption = 'Save list data...' Caption = 'Save list data...'
OnClick = Savelistdata1Click OnClick = Savelistdata1Click