Zobrazovat 4 RUC na velkem panelu.

Close #44.
kmzbrnoI · Dec 8, 2020 · 8745a52 · 8745a52
1 parent 24eed31
commit 8745a52
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/LokoRuc.pas b/src/LokoRuc.pas
@@ -45,7 +45,7 @@   TRucList = class
 
 implementation
 
-uses TCPCLientPanel, Symbols, PanelPainter;
+uses TCPCLientPanel, Symbols, PanelPainter, BottomErrors;
 
 ////////////////////////////////////////////////////////////////////////////////
 
@@ -115,11 +115,11 @@ procedure TRucList.Show(obj:TDXDraw);
  left := (Self.Graphics.PanelWidth div 2)-5;
  top  := Self.Graphics.PanelHeight-1;
 
- for i := 0 to Min(Self.lokos.Count, 2)-1 do
+ for i := 0 to Min(Self.lokos.Count, Errors.ErrorShowCount)-1 do
   begin
    PanelPainter.TextOutput(Point(left, top), Self.lokos[i].str, clBlack, clWhite, obj);
    Dec(top);
-  end;//for i
+  end;
 end;
 
 ////////////////////////////////////////////////////////////////////////////////

diff --git a/src/hJOPpanel.dproj b/src/hJOPpanel.dproj
@@ -184,7 +184,7 @@
 						<VersionInfo Name="AutoIncBuild">True</VersionInfo>
 						<VersionInfo Name="MajorVer">1</VersionInfo>
 						<VersionInfo Name="MinorVer">14</VersionInfo>
-						<VersionInfo Name="Release">8</VersionInfo>
+						<VersionInfo Name="Release">9</VersionInfo>
 						<VersionInfo Name="Build">0</VersionInfo>
 						<VersionInfo Name="Debug">False</VersionInfo>
 						<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -197,7 +197,7 @@
 					<VersionInfoKeys>
 						<VersionInfoKeys Name="CompanyName"/>
 						<VersionInfoKeys Name="FileDescription">Panel stanice hJOP</VersionInfoKeys>
-						<VersionInfoKeys Name="FileVersion">1.14.8.0</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">1.14.9.0</VersionInfoKeys>
 						<VersionInfoKeys Name="InternalName">hJOPpanel.exe</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalCopyright">Jan Horáček</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalTrademarks">Jan Horáček</VersionInfoKeys>