pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Industrial/LCDDisplay: Remove integer helper from ClearEditorGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8319 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-19 21:30:03 +00:00
parent 1c1d9e2c9f
commit db469cccb7
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/industrialstuff/source/indlcddisplay_editorform.pas
View File

@ -355,11 +355,10 @@ end;
procedure TLCDCharDefsEditor.ClearEditorGrid; procedure TLCDCharDefsEditor.ClearEditorGrid;
var var
i, j: integer; i: integer;
begin begin
for i := 0 to dgDotMatrix.ColCount - 1 do for i := 0 to High(FTmpDotRows[i]) do
for j := 0 to dgDotMatrix.RowCount - 1 do FTmpDotRows[i] := 0;
FTmpDotRows[j].ClearBit(i);
end; end;
{ Reads the size of the dot matrix from FLCDDisplay and use it to define the { Reads the size of the dot matrix from FLCDDisplay and use it to define the