fix memory bar color

This commit is contained in:
April Ayres-Griffiths 2019-04-14 17:32:52 +10:00
parent 577227b552
commit 0979236198
4 changed files with 66 additions and 65 deletions

View File

@ -963,6 +963,7 @@ end;
procedure TGUIForm.miD1FileClick(Sender: TObject);
begin
odDiskImages.FilterIndex := 1;
RepaintWindow;
HideM8;
if odDiskImages.Execute then
@ -979,6 +980,7 @@ end;
procedure TGUIForm.miD2FileClick(Sender: TObject);
begin
odDiskImages.FilterIndex := 1;
RepaintWindow;
HideM8;
if odDiskImages.Execute then

View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="716"/>
<CursorPos X="6" Y="716"/>
<TopLine Value="878"/>
<CursorPos X="56" Y="906"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -67,123 +67,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="635" Column="54" TopLine="604"/>
<Caret Line="1280" Column="6" TopLine="1278"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="656" Column="22" TopLine="625"/>
<Caret Line="786" Column="46" TopLine="761"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="657" Column="15" TopLine="626"/>
<Caret Line="1280" Column="65" TopLine="1259"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="672" Column="6" TopLine="670"/>
<Caret Line="1324" Column="31" TopLine="1307"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="766" Column="45" TopLine="743"/>
<Caret Line="1685" Column="63" TopLine="1663"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1280" Column="6" TopLine="1278"/>
<Caret Line="2109" Column="33" TopLine="2099"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="786" Column="46" TopLine="761"/>
<Caret Line="2116" Column="33" TopLine="2106"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1280" Column="65" TopLine="1259"/>
<Caret Line="638" Column="15" TopLine="634"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="1324" Column="31" TopLine="1307"/>
<Caret Line="1206" TopLine="1203"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="1685" Column="63" TopLine="1663"/>
<Caret Line="2427" Column="3" TopLine="2424"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="2109" Column="33" TopLine="2099"/>
<Caret Line="2808" Column="26" TopLine="2798"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="2116" Column="33" TopLine="2106"/>
<Caret Line="535" Column="15" TopLine="530"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="638" Column="15" TopLine="634"/>
<Caret Line="2813" Column="13" TopLine="2805"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="1206" TopLine="1203"/>
<Caret Line="757" Column="53" TopLine="747"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="2427" Column="3" TopLine="2424"/>
<Caret Line="758" Column="53" TopLine="748"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="2808" Column="26" TopLine="2798"/>
<Caret Line="759" Column="53" TopLine="749"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="535" Column="15" TopLine="530"/>
<Caret Line="760" Column="53" TopLine="750"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="2813" Column="13" TopLine="2805"/>
<Caret Line="762" Column="53" TopLine="752"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="757" Column="53" TopLine="747"/>
<Caret Line="862" Column="52" TopLine="859"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="758" Column="53" TopLine="748"/>
<Caret Line="864" Column="82" TopLine="860"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="759" Column="53" TopLine="749"/>
<Caret Line="875" TopLine="861"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="760" Column="53" TopLine="750"/>
<Caret Line="871" Column="60" TopLine="861"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="762" Column="53" TopLine="752"/>
<Caret Line="883" Column="39" TopLine="859"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="862" Column="52" TopLine="859"/>
<Caret Line="714" Column="6" TopLine="777"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="864" Column="82" TopLine="860"/>
<Caret Line="715" Column="6" TopLine="715"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="875" TopLine="861"/>
<Caret Line="717" Column="6" TopLine="717"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="871" Column="60" TopLine="861"/>
<Caret Line="1353" Column="39" TopLine="1329"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="883" Column="39" TopLine="859"/>
<Caret Line="1354" Column="39" TopLine="1330"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="714" Column="6" TopLine="777"/>
<Caret Line="1361" Column="39" TopLine="1337"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="715" Column="6" TopLine="715"/>
<Caret Line="919" Column="39" TopLine="902"/>
</Position30>
</JumpHistory>
<RunParams>

View File

@ -329,7 +329,6 @@ object GUIForm: TGUIForm
BevelOuter = bvNone
ClientHeight = 589
ClientWidth = 1014
Color = clAqua
ParentColor = False
TabOrder = 2
object sidecarPanel: TPanel

64
poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="878"/>
<CursorPos X="56" Y="906"/>
<TopLine Value="2537"/>
<CursorPos X="3" Y="2539"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -67,123 +67,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="1280" Column="6" TopLine="1278"/>
<Caret Line="1324" Column="31" TopLine="1307"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="786" Column="46" TopLine="761"/>
<Caret Line="1685" Column="63" TopLine="1663"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="1280" Column="65" TopLine="1259"/>
<Caret Line="2109" Column="33" TopLine="2099"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="1324" Column="31" TopLine="1307"/>
<Caret Line="2116" Column="33" TopLine="2106"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="1685" Column="63" TopLine="1663"/>
<Caret Line="638" Column="15" TopLine="634"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="2109" Column="33" TopLine="2099"/>
<Caret Line="1206" TopLine="1203"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="2116" Column="33" TopLine="2106"/>
<Caret Line="2427" Column="3" TopLine="2424"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="638" Column="15" TopLine="634"/>
<Caret Line="2808" Column="26" TopLine="2798"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="1206" TopLine="1203"/>
<Caret Line="535" Column="15" TopLine="530"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="2427" Column="3" TopLine="2424"/>
<Caret Line="2813" Column="13" TopLine="2805"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="2808" Column="26" TopLine="2798"/>
<Caret Line="757" Column="53" TopLine="747"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="535" Column="15" TopLine="530"/>
<Caret Line="758" Column="53" TopLine="748"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="2813" Column="13" TopLine="2805"/>
<Caret Line="759" Column="53" TopLine="749"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="757" Column="53" TopLine="747"/>
<Caret Line="760" Column="53" TopLine="750"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="758" Column="53" TopLine="748"/>
<Caret Line="762" Column="53" TopLine="752"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="759" Column="53" TopLine="749"/>
<Caret Line="862" Column="52" TopLine="859"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="760" Column="53" TopLine="750"/>
<Caret Line="864" Column="82" TopLine="860"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="762" Column="53" TopLine="752"/>
<Caret Line="875" TopLine="861"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="862" Column="52" TopLine="859"/>
<Caret Line="871" Column="60" TopLine="861"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="864" Column="82" TopLine="860"/>
<Caret Line="883" Column="39" TopLine="859"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="875" TopLine="861"/>
<Caret Line="714" Column="6" TopLine="777"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="871" Column="60" TopLine="861"/>
<Caret Line="715" Column="6" TopLine="715"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="883" Column="39" TopLine="859"/>
<Caret Line="717" Column="6" TopLine="717"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="714" Column="6" TopLine="777"/>
<Caret Line="1353" Column="39" TopLine="1329"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="715" Column="6" TopLine="715"/>
<Caret Line="1354" Column="39" TopLine="1330"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="717" Column="6" TopLine="717"/>
<Caret Line="1361" Column="39" TopLine="1337"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="1353" Column="39" TopLine="1329"/>
<Caret Line="919" Column="39" TopLine="902"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="1354" Column="39" TopLine="1330"/>
<Caret Line="906" Column="71" TopLine="887"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="1361" Column="39" TopLine="1337"/>
<Caret Line="751" Column="53" TopLine="736"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="919" Column="39" TopLine="902"/>
<Caret Line="980" Column="56" TopLine="963"/>
</Position30>
</JumpHistory>
<RunParams>