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

Industrial: Cleanup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8314 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-19 07:51:10 +00:00
parent d926e02845
commit e29501d0e7
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/industrialstuff/source/indlcddisplay.pas
View File

@@ -988,8 +988,6 @@ begin
end;
procedure TLCDDisplay.InitCharDefs(ACharDefs: TCharDefs; AHorDots, AVertDots: integer);
var
i: integer;
begin
ACharDefs.Clear;
if (AHorDots = DEFAULT_DOT_COL_COUNT) and (AVertDots = DEFAULT_DOT_ROW_COUNT) then
@@ -1099,7 +1097,7 @@ var
defs: TCharDefs;
i: Integer;
ch1, ch2: String;
dotRows1, dotRows2: TDotRows;
dotRows1: TDotRows;
begin
Result := true;
if (DotRowCount <> DEFAULT_DOT_ROW_COUNT) or (DotColCount <> DEFAULT_DOT_COL_COUNT) then
@@ -1126,6 +1124,7 @@ begin
defs.Free;
end;
end;
procedure TLCDDisplay.SetBoardColor(const Value: TColor);
begin
if Value = FBoardColor then