From db469cccb77405fe02206293c765c1cd6286d1ba Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 19 Jun 2022 21:30:03 +0000 Subject: [PATCH] Industrial/LCDDisplay: Remove integer helper from ClearEditorGrid git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8319 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../industrialstuff/source/indlcddisplay_editorform.pas | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/components/industrialstuff/source/indlcddisplay_editorform.pas b/components/industrialstuff/source/indlcddisplay_editorform.pas index f1ec71b80..864d756e0 100644 --- a/components/industrialstuff/source/indlcddisplay_editorform.pas +++ b/components/industrialstuff/source/indlcddisplay_editorform.pas @@ -355,11 +355,10 @@ end; procedure TLCDCharDefsEditor.ClearEditorGrid; var - i, j: integer; + i: integer; begin - for i := 0 to dgDotMatrix.ColCount - 1 do - for j := 0 to dgDotMatrix.RowCount - 1 do - FTmpDotRows[j].ClearBit(i); + for i := 0 to High(FTmpDotRows[i]) do + FTmpDotRows[i] := 0; end; { Reads the size of the dot matrix from FLCDDisplay and use it to define the