window debug

This commit is contained in:
April Ayres-Griffiths 2019-04-13 18:19:26 +10:00
parent c8b17324af
commit 5c094eb4ad
10 changed files with 111 additions and 66 deletions

View File

@ -44,6 +44,8 @@ object GUIForm: TGUIForm
Caption = 'ToolBar1'
Images = ToolbarIcons
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
object tbTintMode: TToolButton
Left = 1
Hint = 'Tint mode'
@ -169,6 +171,8 @@ object GUIForm: TGUIForm
Top = 2
Caption = 'ToolButton10'
Enabled = False
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
end
object tbJoystickAxisSwitch: TToolButton
Left = 37
@ -5448,6 +5452,9 @@ object GUIForm: TGUIForm
ParentColor = False
ParentFont = False
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseMove = embedPanelMouseMove
OnMouseUp = FormMouseUp
object backdrop: TImage
Left = 0
Height = 589

View File

@ -303,6 +303,8 @@ type
procedure CheckTimerTimer(Sender: TObject);
procedure DiskMenuClose(Sender: TObject);
procedure DiskMenuPopup(Sender: TObject);
procedure embedPanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
// procedure FormActivate(Sender: TObject);
procedure FormChangeBounds(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@ -2344,6 +2346,12 @@ begin
end;
end;
procedure TGUIForm.embedPanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
end;
{$IFDEF WINDOWS}
const
EXENAME: string = 'microm8.exe';
@ -2357,6 +2365,8 @@ procedure TGUIForm.FormCreate(Sender: TObject);
begin
self.httpc := TFPHttpClient.Create(Nil);
//ShowMessage( ExtractFilePath(Application.ExeName) + EXENAME );
MicroM8Process.Executable := ExtractFilePath(Application.ExeName) + EXENAME;

View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="1750"/>
<CursorPos X="51" Y="1777"/>
<TopLine Value="2349"/>
<CursorPos X="15" Y="2368"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -43,7 +43,7 @@
<EditorIndex Value="-1"/>
<TopLine Value="576"/>
<CursorPos X="49" Y="591"/>
<UsageCount Value="114"/>
<UsageCount Value="110"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
@ -51,129 +51,129 @@
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos Y="654"/>
<UsageCount Value="10"/>
<UsageCount Value="6"/>
</Unit4>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
<Caret Line="2290" Column="18" TopLine="2282"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
<Caret Line="896" Column="3" TopLine="885"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
<Caret Line="903" Column="3" TopLine="892"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
<Caret Line="719" Column="92" TopLine="717"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
<Caret Line="904" Column="56" TopLine="902"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
<Caret Line="719" Column="3" TopLine="717"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="2440" TopLine="2437"/>
<Caret Line="721" Column="3" TopLine="719"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
<Caret Line="917" Column="3" TopLine="915"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
<Caret Line="727" Column="84" TopLine="725"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
<Caret Line="473" Column="58" TopLine="455"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
<Caret Line="9" Column="60"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
<Caret Line="557" Column="41" TopLine="533"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
<Caret Line="2046" Column="35" TopLine="1936"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
<Caret Line="503" Column="22" TopLine="479"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="902" Column="5" TopLine="900"/>
<Caret Line="309" Column="43" TopLine="293"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
<Caret Line="503" Column="5" TopLine="485"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
<Caret Line="508" Column="17" TopLine="486"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
<Caret Line="2362" Column="39" TopLine="2350"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
<Caret Line="2302" Column="47" TopLine="2289"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
<Caret Line="2362" Column="3" TopLine="2360"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
<Caret Line="2300" Column="44" TopLine="2289"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
<Caret Line="14" Column="42"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
<Caret Line="572" Column="37" TopLine="541"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
<Caret Line="562" Column="29" TopLine="550"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="480" Column="15" TopLine="465"/>
<Caret Line="590" Column="67" TopLine="662"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="1772" Column="51" TopLine="1745"/>
<Caret Line="2323" Column="34" TopLine="2297"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="1773" Column="51" TopLine="1746"/>
<Caret Line="2326" Column="34" TopLine="2300"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="1774" Column="51" TopLine="1747"/>
<Caret Line="2533" Column="3" TopLine="2530"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="1775" Column="51" TopLine="1748"/>
<Caret Line="2557" Column="68" TopLine="2538"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="1776" Column="51" TopLine="1749"/>
<Caret Line="2352" Column="3" TopLine="2349"/>
</Position30>
</JumpHistory>
<RunParams>

View File

@ -44,6 +44,8 @@ object GUIForm: TGUIForm
Caption = 'ToolBar1'
Images = ToolbarIcons
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
object tbTintMode: TToolButton
Left = 1
Hint = 'Tint mode'
@ -169,6 +171,8 @@ object GUIForm: TGUIForm
Top = 2
Caption = 'ToolButton10'
Enabled = False
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
end
object tbJoystickAxisSwitch: TToolButton
Left = 37
@ -5449,6 +5453,7 @@ object GUIForm: TGUIForm
ParentFont = False
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseMove = embedPanelMouseMove
OnMouseUp = FormMouseUp
object backdrop: TImage
Left = 0
@ -5457,6 +5462,8 @@ object GUIForm: TGUIForm
Width = 694
Align = alClient
OnClick = backdropClick
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
Stretch = True
end
end
@ -5469,6 +5476,8 @@ object GUIForm: TGUIForm
Lines.Strings = (
'log'
)
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
TabOrder = 2
end
end

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -44,6 +44,8 @@ object GUIForm: TGUIForm
Caption = 'ToolBar1'
Images = ToolbarIcons
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
object tbTintMode: TToolButton
Left = 1
Hint = 'Tint mode'
@ -169,6 +171,8 @@ object GUIForm: TGUIForm
Top = 2
Caption = 'ToolButton10'
Enabled = False
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
end
object tbJoystickAxisSwitch: TToolButton
Left = 37
@ -5449,6 +5453,7 @@ object GUIForm: TGUIForm
ParentFont = False
TabOrder = 1
OnMouseDown = FormMouseDown
OnMouseMove = embedPanelMouseMove
OnMouseUp = FormMouseUp
object backdrop: TImage
Left = 0
@ -5457,6 +5462,8 @@ object GUIForm: TGUIForm
Width = 694
Align = alClient
OnClick = backdropClick
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
Stretch = True
end
end
@ -5469,6 +5476,8 @@ object GUIForm: TGUIForm
Lines.Strings = (
'log'
)
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
TabOrder = 2
end
end

View File

@ -303,6 +303,8 @@ type
procedure CheckTimerTimer(Sender: TObject);
procedure DiskMenuClose(Sender: TObject);
procedure DiskMenuPopup(Sender: TObject);
procedure embedPanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
// procedure FormActivate(Sender: TObject);
procedure FormChangeBounds(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@ -2344,6 +2346,12 @@ begin
end;
end;
procedure TGUIForm.embedPanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
end;
{$IFDEF WINDOWS}
const
EXENAME: string = 'microm8.exe';
@ -2357,6 +2365,8 @@ procedure TGUIForm.FormCreate(Sender: TObject);
begin
self.httpc := TFPHttpClient.Create(Nil);
//ShowMessage( ExtractFilePath(Application.ExeName) + EXENAME );
MicroM8Process.Executable := ExtractFilePath(Application.ExeName) + EXENAME;

64
poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="2530"/>
<CursorPos X="68" Y="2549"/>
<TopLine Value="2349"/>
<CursorPos X="15" Y="2368"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -57,123 +57,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="2412" Column="30" TopLine="2393"/>
<Caret Line="2290" Column="18" TopLine="2282"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="44" TopLine="2394"/>
<Caret Line="896" Column="3" TopLine="885"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="2290" Column="18" TopLine="2282"/>
<Caret Line="903" Column="3" TopLine="892"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="896" Column="3" TopLine="885"/>
<Caret Line="719" Column="92" TopLine="717"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="903" Column="3" TopLine="892"/>
<Caret Line="904" Column="56" TopLine="902"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="719" Column="92" TopLine="717"/>
<Caret Line="719" Column="3" TopLine="717"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="904" Column="56" TopLine="902"/>
<Caret Line="721" Column="3" TopLine="719"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="719" Column="3" TopLine="717"/>
<Caret Line="917" Column="3" TopLine="915"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="721" Column="3" TopLine="719"/>
<Caret Line="727" Column="84" TopLine="725"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="917" Column="3" TopLine="915"/>
<Caret Line="473" Column="58" TopLine="455"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="727" Column="84" TopLine="725"/>
<Caret Line="9" Column="60"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="473" Column="58" TopLine="455"/>
<Caret Line="557" Column="41" TopLine="533"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="9" Column="60"/>
<Caret Line="2046" Column="35" TopLine="1936"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="557" Column="41" TopLine="533"/>
<Caret Line="503" Column="22" TopLine="479"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="2046" Column="35" TopLine="1936"/>
<Caret Line="309" Column="43" TopLine="293"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="503" Column="22" TopLine="479"/>
<Caret Line="503" Column="5" TopLine="485"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="309" Column="43" TopLine="293"/>
<Caret Line="508" Column="17" TopLine="486"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="503" Column="5" TopLine="485"/>
<Caret Line="2362" Column="39" TopLine="2350"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="508" Column="17" TopLine="486"/>
<Caret Line="2302" Column="47" TopLine="2289"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="2362" Column="39" TopLine="2350"/>
<Caret Line="2362" Column="3" TopLine="2360"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="2302" Column="47" TopLine="2289"/>
<Caret Line="2300" Column="44" TopLine="2289"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2362" Column="3" TopLine="2360"/>
<Caret Line="14" Column="42"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2300" Column="44" TopLine="2289"/>
<Caret Line="572" Column="37" TopLine="541"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="14" Column="42"/>
<Caret Line="562" Column="29" TopLine="550"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="572" Column="37" TopLine="541"/>
<Caret Line="590" Column="67" TopLine="662"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="562" Column="29" TopLine="550"/>
<Caret Line="2323" Column="34" TopLine="2297"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="590" Column="67" TopLine="662"/>
<Caret Line="2326" Column="34" TopLine="2300"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="2323" Column="34" TopLine="2297"/>
<Caret Line="2533" Column="3" TopLine="2530"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="2326" Column="34" TopLine="2300"/>
<Caret Line="2557" Column="68" TopLine="2538"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="2533" Column="3" TopLine="2530"/>
<Caret Line="2352" Column="3" TopLine="2349"/>
</Position30>
</JumpHistory>
<RunParams>