mirror of
https://github.com/paleotronic/microm8-gui.git
synced 2024-11-29 14:50:09 +00:00
key and window size fixes
This commit is contained in:
April Ayres-Griffiths
parent
adcbb98b99
commit
3953bb42fd
@ -1,13 +1,13 @@
|
||||
object GUIForm: TGUIForm
|
||||
Left = 565
|
||||
Height = 668
|
||||
Top = 128
|
||||
Width = 1014
|
||||
Left = 320
|
||||
Height = 723
|
||||
Top = 76
|
||||
Width = 1113
|
||||
AlphaBlendValue = 128
|
||||
Caption = 'microM8 GUI'
|
||||
ClientHeight = 643
|
||||
ClientWidth = 1014
|
||||
Constraints.MinWidth = 1014
|
||||
ClientHeight = 698
|
||||
ClientWidth = 1113
|
||||
Constraints.MinWidth = 1078
|
||||
DoubleBuffered = False
|
||||
Menu = MainMenu1
|
||||
OnChangeBounds = FormChangeBounds
|
||||
@ -30,15 +30,15 @@ object GUIForm: TGUIForm
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Height = 19
|
||||
Top = 624
|
||||
Width = 1014
|
||||
Top = 679
|
||||
Width = 1113
|
||||
Panels = <>
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Height = 36
|
||||
Top = 0
|
||||
Width = 1014
|
||||
Width = 1113
|
||||
ButtonHeight = 32
|
||||
ButtonWidth = 32
|
||||
Caption = 'ToolBar1'
|
||||
@ -58,7 +58,7 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object tbRMVoxels: TToolButton
|
||||
Tag = 1
|
||||
Left = 549
|
||||
Left = 613
|
||||
Hint = 'Voxel Render'
|
||||
Top = 2
|
||||
Caption = 'Voxels'
|
||||
@ -72,7 +72,7 @@ object GUIForm: TGUIForm
|
||||
Style = tbsCheck
|
||||
end
|
||||
object tbRMDots: TToolButton
|
||||
Left = 585
|
||||
Left = 649
|
||||
Hint = 'Dot Render'
|
||||
Top = 2
|
||||
Caption = 'Dots'
|
||||
@ -85,7 +85,7 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object tbRMRaster: TToolButton
|
||||
Tag = 2
|
||||
Left = 621
|
||||
Left = 685
|
||||
Hint = 'Raster Render'
|
||||
Top = 2
|
||||
Caption = 'Raster'
|
||||
@ -97,7 +97,7 @@ object GUIForm: TGUIForm
|
||||
Style = tbsCheck
|
||||
end
|
||||
object tbRMColor: TToolButton
|
||||
Left = 657
|
||||
Left = 721
|
||||
Hint = 'Toggle Color/Mono'
|
||||
Top = 2
|
||||
Caption = 'tbRMColor'
|
||||
@ -107,7 +107,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object tbRECState: TToolButton
|
||||
Left = 725
|
||||
Left = 789
|
||||
Hint = 'Start Recording'
|
||||
Top = 2
|
||||
Caption = 'tbRECState'
|
||||
@ -117,7 +117,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 761
|
||||
Left = 825
|
||||
Hint = 'Rewind'
|
||||
Top = 2
|
||||
Caption = 'ToolButton5'
|
||||
@ -127,7 +127,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 797
|
||||
Left = 861
|
||||
Hint = 'Forwards'
|
||||
Top = 2
|
||||
Caption = 'ToolButton6'
|
||||
@ -137,7 +137,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 833
|
||||
Left = 897
|
||||
Hint = 'Resume'
|
||||
Top = 2
|
||||
Caption = 'ToolButton7'
|
||||
@ -147,7 +147,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 869
|
||||
Left = 933
|
||||
Hint = 'Stop Recording'
|
||||
Top = 2
|
||||
Caption = 'ToolButton8'
|
||||
@ -157,7 +157,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 905
|
||||
Left = 969
|
||||
Hint = 'Pause'
|
||||
Top = 2
|
||||
Caption = 'ToolButton9'
|
||||
@ -167,7 +167,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton10: TToolButton
|
||||
Left = 693
|
||||
Left = 757
|
||||
Top = 2
|
||||
Caption = 'ToolButton10'
|
||||
Enabled = False
|
||||
@ -234,7 +234,7 @@ object GUIForm: TGUIForm
|
||||
Left = 249
|
||||
Height = 38
|
||||
Top = 2
|
||||
Width = 64
|
||||
Width = 96
|
||||
OnChange = tbMasterVolumeChange
|
||||
Position = 0
|
||||
ScalePos = trBottom
|
||||
@ -249,7 +249,7 @@ object GUIForm: TGUIForm
|
||||
TabOrder = 0
|
||||
end
|
||||
object tbVolUp: TToolButton
|
||||
Left = 313
|
||||
Left = 345
|
||||
Hint = 'Volume Up'
|
||||
Top = 2
|
||||
Caption = 'tbVolUp'
|
||||
@ -259,13 +259,13 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 349
|
||||
Left = 381
|
||||
Top = 2
|
||||
Caption = 'ToolButton3'
|
||||
Enabled = False
|
||||
end
|
||||
object tbSpeedDown: TToolButton
|
||||
Left = 381
|
||||
Left = 413
|
||||
Hint = 'CPU Speed Down'
|
||||
Top = 2
|
||||
Caption = 'tbSpeedDown'
|
||||
@ -275,10 +275,10 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object TrackBar2: TTrackBar
|
||||
Left = 417
|
||||
Left = 449
|
||||
Height = 38
|
||||
Top = 2
|
||||
Width = 64
|
||||
Width = 96
|
||||
Max = 4
|
||||
OnChange = TrackBar2Change
|
||||
Position = 0
|
||||
@ -293,7 +293,7 @@ object GUIForm: TGUIForm
|
||||
TabOrder = 1
|
||||
end
|
||||
object tbSpeedUp: TToolButton
|
||||
Left = 481
|
||||
Left = 545
|
||||
Hint = 'CPU Speed Up'
|
||||
Top = 2
|
||||
Caption = 'tbSpeedUp'
|
||||
@ -303,19 +303,19 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton18: TToolButton
|
||||
Left = 517
|
||||
Left = 581
|
||||
Top = 2
|
||||
Caption = 'ToolButton18'
|
||||
Enabled = False
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 941
|
||||
Left = 1005
|
||||
Top = 2
|
||||
Caption = 'ToolButton1'
|
||||
Enabled = False
|
||||
end
|
||||
object tbFullscreen: TToolButton
|
||||
Left = 973
|
||||
Left = 1037
|
||||
Hint = 'Fullscreen'
|
||||
Top = 2
|
||||
Caption = 'tbFullscreen'
|
||||
@ -327,31 +327,31 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object pnlContainer: TPanel
|
||||
Left = 0
|
||||
Height = 588
|
||||
Height = 643
|
||||
Top = 36
|
||||
Width = 1014
|
||||
Width = 1113
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 588
|
||||
ClientWidth = 1014
|
||||
ClientHeight = 643
|
||||
ClientWidth = 1113
|
||||
ParentColor = False
|
||||
TabOrder = 2
|
||||
object sidecarPanel: TPanel
|
||||
Left = 844
|
||||
Height = 551
|
||||
Left = 943
|
||||
Height = 606
|
||||
Top = 0
|
||||
Width = 170
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
Caption = 'sidecarPanel'
|
||||
ClientHeight = 551
|
||||
ClientHeight = 606
|
||||
ClientWidth = 170
|
||||
Color = clBlack
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object Image1: TImage
|
||||
Left = 0
|
||||
Height = 551
|
||||
Height = 606
|
||||
Top = 0
|
||||
Width = 170
|
||||
Align = alClient
|
||||
@ -5444,13 +5444,13 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object embedPanel: TPanel
|
||||
Left = 0
|
||||
Height = 551
|
||||
Height = 606
|
||||
Top = 0
|
||||
Width = 844
|
||||
Width = 943
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 551
|
||||
ClientWidth = 844
|
||||
ClientHeight = 606
|
||||
ClientWidth = 943
|
||||
Color = clBlack
|
||||
Font.Color = clWhite
|
||||
ParentColor = False
|
||||
@ -5461,9 +5461,9 @@ object GUIForm: TGUIForm
|
||||
OnMouseUp = FormMouseUp
|
||||
object backdrop: TImage
|
||||
Left = 0
|
||||
Height = 551
|
||||
Height = 606
|
||||
Top = 0
|
||||
Width = 844
|
||||
Width = 943
|
||||
Align = alClient
|
||||
OnClick = backdropClick
|
||||
OnMouseDown = FormMouseDown
|
||||
@ -5474,11 +5474,11 @@ object GUIForm: TGUIForm
|
||||
object pnlMemory: TPanel
|
||||
Left = 0
|
||||
Height = 37
|
||||
Top = 551
|
||||
Width = 1014
|
||||
Top = 606
|
||||
Width = 1113
|
||||
Align = alBottom
|
||||
ClientHeight = 37
|
||||
ClientWidth = 1014
|
||||
ClientWidth = 1113
|
||||
ParentColor = False
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
@ -5520,7 +5520,7 @@ object GUIForm: TGUIForm
|
||||
Text = '$00'
|
||||
end
|
||||
object pnlMemButtons: TPanel
|
||||
Left = 760
|
||||
Left = 859
|
||||
Height = 35
|
||||
Top = 1
|
||||
Width = 253
|
||||
|
||||
@ -2870,13 +2870,26 @@ begin
|
||||
if isCaps then
|
||||
keydesc := 'CapsLock';
|
||||
|
||||
if isAlt or isMeta then
|
||||
if isAlt then
|
||||
begin
|
||||
result := OPEN_APPLE;
|
||||
//exit;
|
||||
end;
|
||||
|
||||
if isMeta then
|
||||
begin
|
||||
result := 0;
|
||||
exit;
|
||||
end;
|
||||
|
||||
case Key of
|
||||
VK_BACK:
|
||||
if isCtrl and isShift then
|
||||
Result := 0;
|
||||
13: begin
|
||||
if isAlt or isShift or isCtrl then
|
||||
Result := 0;
|
||||
end;
|
||||
VK_SHIFT: Result := 0;
|
||||
VK_CAPITAL: begin
|
||||
if KeyUp then
|
||||
@ -3049,9 +3062,9 @@ procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState)
|
||||
var
|
||||
code: integer;
|
||||
begin
|
||||
code := MapKeyCode(Key,Shift,true);
|
||||
if code <> 0 then
|
||||
SendKey( code, 0, 0, MapShiftState(Key, Shift) );
|
||||
//code := MapKeyCode(Key,Shift,true);
|
||||
//if code <> 0 then
|
||||
// SendKey( code, 0, 0, MapShiftState(Key, Shift) );
|
||||
//StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
|
||||
end;
|
||||
|
||||
|
||||
@ -21,8 +21,8 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="2446"/>
|
||||
<CursorPos X="20" Y="2459"/>
|
||||
<TopLine Value="2868"/>
|
||||
<CursorPos X="10" Y="2886"/>
|
||||
<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="106"/>
|
||||
<UsageCount Value="100"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
|
||||
@ -51,7 +51,7 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="636"/>
|
||||
<CursorPos Y="654"/>
|
||||
<UsageCount Value="1"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="images\memory.pas"/>
|
||||
@ -61,129 +61,129 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="40"/>
|
||||
<CursorPos X="17" Y="44"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="14"/>
|
||||
</Unit5>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2088" Column="42" TopLine="2060"/>
|
||||
<Caret Line="822" Column="15" TopLine="810"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2089" Column="43" TopLine="2061"/>
|
||||
<Caret Line="2816" Column="17" TopLine="2765"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2106" Column="41" TopLine="2078"/>
|
||||
<Caret Line="2969" Column="14" TopLine="2949"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2407" Column="33" TopLine="2378"/>
|
||||
<Caret Line="2978" Column="4" TopLine="2959"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2393" Column="13" TopLine="2391"/>
|
||||
<Caret Line="2814" Column="31" TopLine="2799"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2409" Column="37" TopLine="2393"/>
|
||||
<Caret Line="2788" Column="19" TopLine="2762"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2410" Column="36" TopLine="2393"/>
|
||||
<Caret Line="2855" Column="25" TopLine="2799"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="571" Column="32" TopLine="548"/>
|
||||
<Caret Line="740" Column="6" TopLine="745"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="1893" Column="4" TopLine="1890"/>
|
||||
<Caret Line="3151" Column="3" TopLine="3134"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="1913" Column="20" TopLine="1892"/>
|
||||
<Caret Line="998" Column="10" TopLine="978"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="1907" Column="19" TopLine="1892"/>
|
||||
<Caret Line="3151" Column="3" TopLine="3134"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2098" Column="43" TopLine="2093"/>
|
||||
<Caret Line="999" Column="10" TopLine="997"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2103" Column="11" TopLine="2088"/>
|
||||
<Caret Line="1110" Column="45" TopLine="1103"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2163" Column="20" TopLine="2160"/>
|
||||
<Caret Line="1109" Column="20" TopLine="1098"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2169" Column="21" TopLine="2160"/>
|
||||
<Caret Line="396" Column="15" TopLine="385"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2160" Column="20" TopLine="2149"/>
|
||||
<Caret Line="1109" Column="20" TopLine="1104"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2468" Column="27" TopLine="2446"/>
|
||||
<Caret Line="396" Column="29" TopLine="385"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2514" Column="35" TopLine="2492"/>
|
||||
<Caret Line="978" Column="38" TopLine="961"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2505" Column="43" TopLine="2484"/>
|
||||
<Caret Line="2868" Column="26" TopLine="2848"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="970" Column="48" TopLine="953"/>
|
||||
<Caret Line="593" Column="38" TopLine="572"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="1830" Column="44" TopLine="1802"/>
|
||||
<Caret Line="2987" Column="48" TopLine="2978"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2123" Column="46" TopLine="2116"/>
|
||||
<Caret Line="582" Column="20" TopLine="572"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2160" Column="47" TopLine="2129"/>
|
||||
<Caret Line="2809" Column="66" TopLine="2788"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2161" Column="47" TopLine="2133"/>
|
||||
<Caret Line="2998" Column="6" TopLine="2978"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2162" Column="47" TopLine="2134"/>
|
||||
<Caret Line="3039" Column="26" TopLine="3026"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2163" Column="47" TopLine="2135"/>
|
||||
<Caret Line="3035" Column="34" TopLine="3024"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2164" Column="47" TopLine="2136"/>
|
||||
<Caret Line="335" Column="59" TopLine="318"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2460" Column="43" TopLine="2432"/>
|
||||
<Caret Line="3046" Column="36" TopLine="3032"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2515" Column="18" TopLine="2496"/>
|
||||
<Caret Line="2882" Column="27" TopLine="2867"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2510" Column="24" TopLine="2495"/>
|
||||
<Caret Line="2888" Column="23" TopLine="2877"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
<RunParams>
|
||||
|
||||
98
main.lfm
98
main.lfm
@ -1,13 +1,13 @@
|
||||
object GUIForm: TGUIForm
|
||||
Left = 565
|
||||
Height = 668
|
||||
Top = 128
|
||||
Width = 1014
|
||||
Left = 371
|
||||
Height = 683
|
||||
Top = 112
|
||||
Width = 1078
|
||||
AlphaBlendValue = 128
|
||||
Caption = 'microM8 GUI'
|
||||
ClientHeight = 643
|
||||
ClientWidth = 1014
|
||||
Constraints.MinWidth = 1014
|
||||
ClientHeight = 658
|
||||
ClientWidth = 1078
|
||||
Constraints.MinWidth = 1078
|
||||
DoubleBuffered = False
|
||||
Menu = MainMenu1
|
||||
OnChangeBounds = FormChangeBounds
|
||||
@ -30,15 +30,15 @@ object GUIForm: TGUIForm
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Height = 19
|
||||
Top = 624
|
||||
Width = 1014
|
||||
Top = 639
|
||||
Width = 1078
|
||||
Panels = <>
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Height = 36
|
||||
Top = 0
|
||||
Width = 1014
|
||||
Width = 1078
|
||||
ButtonHeight = 32
|
||||
ButtonWidth = 32
|
||||
Caption = 'ToolBar1'
|
||||
@ -58,7 +58,7 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object tbRMVoxels: TToolButton
|
||||
Tag = 1
|
||||
Left = 549
|
||||
Left = 613
|
||||
Hint = 'Voxel Render'
|
||||
Top = 2
|
||||
Caption = 'Voxels'
|
||||
@ -72,7 +72,7 @@ object GUIForm: TGUIForm
|
||||
Style = tbsCheck
|
||||
end
|
||||
object tbRMDots: TToolButton
|
||||
Left = 585
|
||||
Left = 649
|
||||
Hint = 'Dot Render'
|
||||
Top = 2
|
||||
Caption = 'Dots'
|
||||
@ -85,7 +85,7 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object tbRMRaster: TToolButton
|
||||
Tag = 2
|
||||
Left = 621
|
||||
Left = 685
|
||||
Hint = 'Raster Render'
|
||||
Top = 2
|
||||
Caption = 'Raster'
|
||||
@ -97,7 +97,7 @@ object GUIForm: TGUIForm
|
||||
Style = tbsCheck
|
||||
end
|
||||
object tbRMColor: TToolButton
|
||||
Left = 657
|
||||
Left = 721
|
||||
Hint = 'Toggle Color/Mono'
|
||||
Top = 2
|
||||
Caption = 'tbRMColor'
|
||||
@ -107,7 +107,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object tbRECState: TToolButton
|
||||
Left = 725
|
||||
Left = 789
|
||||
Hint = 'Start Recording'
|
||||
Top = 2
|
||||
Caption = 'tbRECState'
|
||||
@ -117,7 +117,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 761
|
||||
Left = 825
|
||||
Hint = 'Rewind'
|
||||
Top = 2
|
||||
Caption = 'ToolButton5'
|
||||
@ -127,7 +127,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 797
|
||||
Left = 861
|
||||
Hint = 'Forwards'
|
||||
Top = 2
|
||||
Caption = 'ToolButton6'
|
||||
@ -137,7 +137,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 833
|
||||
Left = 897
|
||||
Hint = 'Resume'
|
||||
Top = 2
|
||||
Caption = 'ToolButton7'
|
||||
@ -147,7 +147,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 869
|
||||
Left = 933
|
||||
Hint = 'Stop Recording'
|
||||
Top = 2
|
||||
Caption = 'ToolButton8'
|
||||
@ -157,7 +157,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 905
|
||||
Left = 969
|
||||
Hint = 'Pause'
|
||||
Top = 2
|
||||
Caption = 'ToolButton9'
|
||||
@ -167,7 +167,7 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton10: TToolButton
|
||||
Left = 693
|
||||
Left = 757
|
||||
Top = 2
|
||||
Caption = 'ToolButton10'
|
||||
Enabled = False
|
||||
@ -234,7 +234,7 @@ object GUIForm: TGUIForm
|
||||
Left = 249
|
||||
Height = 38
|
||||
Top = 2
|
||||
Width = 64
|
||||
Width = 96
|
||||
OnChange = tbMasterVolumeChange
|
||||
Position = 0
|
||||
ScalePos = trBottom
|
||||
@ -249,7 +249,7 @@ object GUIForm: TGUIForm
|
||||
TabOrder = 0
|
||||
end
|
||||
object tbVolUp: TToolButton
|
||||
Left = 313
|
||||
Left = 345
|
||||
Hint = 'Volume Up'
|
||||
Top = 2
|
||||
Caption = 'tbVolUp'
|
||||
@ -259,13 +259,13 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 349
|
||||
Left = 381
|
||||
Top = 2
|
||||
Caption = 'ToolButton3'
|
||||
Enabled = False
|
||||
end
|
||||
object tbSpeedDown: TToolButton
|
||||
Left = 381
|
||||
Left = 413
|
||||
Hint = 'CPU Speed Down'
|
||||
Top = 2
|
||||
Caption = 'tbSpeedDown'
|
||||
@ -275,10 +275,10 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object TrackBar2: TTrackBar
|
||||
Left = 417
|
||||
Left = 449
|
||||
Height = 38
|
||||
Top = 2
|
||||
Width = 64
|
||||
Width = 96
|
||||
Max = 4
|
||||
OnChange = TrackBar2Change
|
||||
Position = 0
|
||||
@ -293,7 +293,7 @@ object GUIForm: TGUIForm
|
||||
TabOrder = 1
|
||||
end
|
||||
object tbSpeedUp: TToolButton
|
||||
Left = 481
|
||||
Left = 545
|
||||
Hint = 'CPU Speed Up'
|
||||
Top = 2
|
||||
Caption = 'tbSpeedUp'
|
||||
@ -303,19 +303,19 @@ object GUIForm: TGUIForm
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton18: TToolButton
|
||||
Left = 517
|
||||
Left = 581
|
||||
Top = 2
|
||||
Caption = 'ToolButton18'
|
||||
Enabled = False
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 941
|
||||
Left = 1005
|
||||
Top = 2
|
||||
Caption = 'ToolButton1'
|
||||
Enabled = False
|
||||
end
|
||||
object tbFullscreen: TToolButton
|
||||
Left = 973
|
||||
Left = 1037
|
||||
Hint = 'Fullscreen'
|
||||
Top = 2
|
||||
Caption = 'tbFullscreen'
|
||||
@ -327,31 +327,31 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object pnlContainer: TPanel
|
||||
Left = 0
|
||||
Height = 588
|
||||
Height = 603
|
||||
Top = 36
|
||||
Width = 1014
|
||||
Width = 1078
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 588
|
||||
ClientWidth = 1014
|
||||
ClientHeight = 603
|
||||
ClientWidth = 1078
|
||||
ParentColor = False
|
||||
TabOrder = 2
|
||||
object sidecarPanel: TPanel
|
||||
Left = 844
|
||||
Height = 551
|
||||
Left = 908
|
||||
Height = 566
|
||||
Top = 0
|
||||
Width = 170
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
Caption = 'sidecarPanel'
|
||||
ClientHeight = 551
|
||||
ClientHeight = 566
|
||||
ClientWidth = 170
|
||||
Color = clBlack
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object Image1: TImage
|
||||
Left = 0
|
||||
Height = 551
|
||||
Height = 566
|
||||
Top = 0
|
||||
Width = 170
|
||||
Align = alClient
|
||||
@ -5444,13 +5444,13 @@ object GUIForm: TGUIForm
|
||||
end
|
||||
object embedPanel: TPanel
|
||||
Left = 0
|
||||
Height = 551
|
||||
Height = 566
|
||||
Top = 0
|
||||
Width = 844
|
||||
Width = 908
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 551
|
||||
ClientWidth = 844
|
||||
ClientHeight = 566
|
||||
ClientWidth = 908
|
||||
Color = clBlack
|
||||
Font.Color = clWhite
|
||||
ParentColor = False
|
||||
@ -5461,9 +5461,9 @@ object GUIForm: TGUIForm
|
||||
OnMouseUp = FormMouseUp
|
||||
object backdrop: TImage
|
||||
Left = 0
|
||||
Height = 551
|
||||
Height = 566
|
||||
Top = 0
|
||||
Width = 844
|
||||
Width = 908
|
||||
Align = alClient
|
||||
OnClick = backdropClick
|
||||
OnMouseDown = FormMouseDown
|
||||
@ -5474,11 +5474,11 @@ object GUIForm: TGUIForm
|
||||
object pnlMemory: TPanel
|
||||
Left = 0
|
||||
Height = 37
|
||||
Top = 551
|
||||
Width = 1014
|
||||
Top = 566
|
||||
Width = 1078
|
||||
Align = alBottom
|
||||
ClientHeight = 37
|
||||
ClientWidth = 1014
|
||||
ClientWidth = 1078
|
||||
ParentColor = False
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
@ -5520,7 +5520,7 @@ object GUIForm: TGUIForm
|
||||
Text = '$00'
|
||||
end
|
||||
object pnlMemButtons: TPanel
|
||||
Left = 760
|
||||
Left = 824
|
||||
Height = 35
|
||||
Top = 1
|
||||
Width = 253
|
||||
|
||||
21
main.pas
21
main.pas
@ -2870,13 +2870,26 @@ begin
|
||||
if isCaps then
|
||||
keydesc := 'CapsLock';
|
||||
|
||||
if isAlt or isMeta then
|
||||
if isAlt then
|
||||
begin
|
||||
result := OPEN_APPLE;
|
||||
//exit;
|
||||
end;
|
||||
|
||||
if isMeta then
|
||||
begin
|
||||
result := 0;
|
||||
exit;
|
||||
end;
|
||||
|
||||
case Key of
|
||||
VK_BACK:
|
||||
if isCtrl and isShift then
|
||||
Result := 0;
|
||||
13: begin
|
||||
if isAlt or isShift or isCtrl then
|
||||
Result := 0;
|
||||
end;
|
||||
VK_SHIFT: Result := 0;
|
||||
VK_CAPITAL: begin
|
||||
if KeyUp then
|
||||
@ -3049,9 +3062,9 @@ procedure TGUIForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState)
|
||||
var
|
||||
code: integer;
|
||||
begin
|
||||
code := MapKeyCode(Key,Shift,true);
|
||||
if code <> 0 then
|
||||
SendKey( code, 0, 0, MapShiftState(Key, Shift) );
|
||||
//code := MapKeyCode(Key,Shift,true);
|
||||
//if code <> 0 then
|
||||
// SendKey( code, 0, 0, MapShiftState(Key, Shift) );
|
||||
//StatusBar1.SimpleText := 'keycode ' + IntToStr(Key);
|
||||
end;
|
||||
|
||||
|
||||
70
poc.lps
70
poc.lps
@ -21,8 +21,8 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="2762"/>
|
||||
<CursorPos X="19" Y="2788"/>
|
||||
<TopLine Value="2868"/>
|
||||
<CursorPos X="10" Y="2886"/>
|
||||
<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="105"/>
|
||||
<UsageCount Value="100"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
|
||||
@ -51,7 +51,7 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="636"/>
|
||||
<CursorPos Y="654"/>
|
||||
<UsageCount Value="0"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="images\memory.pas"/>
|
||||
@ -61,129 +61,129 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="40"/>
|
||||
<CursorPos X="17" Y="44"/>
|
||||
<UsageCount Value="19"/>
|
||||
<UsageCount Value="14"/>
|
||||
</Unit5>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2103" Column="11" TopLine="2088"/>
|
||||
<Caret Line="822" Column="15" TopLine="810"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2163" Column="20" TopLine="2160"/>
|
||||
<Caret Line="2816" Column="17" TopLine="2765"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2169" Column="21" TopLine="2160"/>
|
||||
<Caret Line="2969" Column="14" TopLine="2949"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2160" Column="20" TopLine="2149"/>
|
||||
<Caret Line="2978" Column="4" TopLine="2959"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2468" Column="27" TopLine="2446"/>
|
||||
<Caret Line="2814" Column="31" TopLine="2799"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2514" Column="35" TopLine="2492"/>
|
||||
<Caret Line="2788" Column="19" TopLine="2762"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2505" Column="43" TopLine="2484"/>
|
||||
<Caret Line="2855" Column="25" TopLine="2799"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="970" Column="48" TopLine="953"/>
|
||||
<Caret Line="740" Column="6" TopLine="745"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="1830" Column="44" TopLine="1802"/>
|
||||
<Caret Line="3151" Column="3" TopLine="3134"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2123" Column="46" TopLine="2116"/>
|
||||
<Caret Line="998" Column="10" TopLine="978"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2160" Column="47" TopLine="2129"/>
|
||||
<Caret Line="3151" Column="3" TopLine="3134"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2161" Column="47" TopLine="2133"/>
|
||||
<Caret Line="999" Column="10" TopLine="997"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2162" Column="47" TopLine="2134"/>
|
||||
<Caret Line="1110" Column="45" TopLine="1103"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2163" Column="47" TopLine="2135"/>
|
||||
<Caret Line="1109" Column="20" TopLine="1098"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2164" Column="47" TopLine="2136"/>
|
||||
<Caret Line="396" Column="15" TopLine="385"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2460" Column="43" TopLine="2432"/>
|
||||
<Caret Line="1109" Column="20" TopLine="1104"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2515" Column="18" TopLine="2496"/>
|
||||
<Caret Line="396" Column="29" TopLine="385"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2510" Column="24" TopLine="2495"/>
|
||||
<Caret Line="978" Column="38" TopLine="961"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2516" Column="42" TopLine="2484"/>
|
||||
<Caret Line="2868" Column="26" TopLine="2848"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2925" Column="39" TopLine="2907"/>
|
||||
<Caret Line="593" Column="38" TopLine="572"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2948" Column="64" TopLine="2929"/>
|
||||
<Caret Line="2987" Column="48" TopLine="2978"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2941" Column="33" TopLine="2931"/>
|
||||
<Caret Line="582" Column="20" TopLine="572"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2946" Column="17" TopLine="2931"/>
|
||||
<Caret Line="2809" Column="66" TopLine="2788"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2961" Column="17" TopLine="2933"/>
|
||||
<Caret Line="2998" Column="6" TopLine="2978"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2803" Column="35" TopLine="2803"/>
|
||||
<Caret Line="3039" Column="26" TopLine="3026"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="822" Column="15" TopLine="810"/>
|
||||
<Caret Line="3035" Column="34" TopLine="3024"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2816" Column="17" TopLine="2765"/>
|
||||
<Caret Line="335" Column="59" TopLine="318"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2969" Column="14" TopLine="2949"/>
|
||||
<Caret Line="3046" Column="36" TopLine="3032"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2978" Column="4" TopLine="2959"/>
|
||||
<Caret Line="2882" Column="27" TopLine="2867"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="main.pas"/>
|
||||
<Caret Line="2814" Column="31" TopLine="2799"/>
|
||||
<Caret Line="2888" Column="23" TopLine="2877"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
<RunParams>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user