From 8745a5293bd4d0078efb84a3719a09604cf0eeea Mon Sep 17 00:00:00 2001 From: Jan Horacek Date: Tue, 8 Dec 2020 20:15:00 +0100 Subject: [PATCH] Zobrazovat 4 RUC na velkem panelu. Close #44. --- src/LokoRuc.pas | 6 +++--- src/hJOPpanel.dproj | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/LokoRuc.pas b/src/LokoRuc.pas index aa6a9b2..0098276 100644 --- 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 index 993cd33..ff9af44 100644 --- a/src/hJOPpanel.dproj +++ b/src/hJOPpanel.dproj @@ -184,7 +184,7 @@ True 1 14 - 8 + 9 0 False False @@ -197,7 +197,7 @@ Panel stanice hJOP - 1.14.8.0 + 1.14.9.0 hJOPpanel.exe Jan Horáček Jan Horáček