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

Industrial: Declare TLCLDisplay.Lines as TStrings rather than TStringList.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8781 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-29 14:27:26 +00:00
parent 0cd9c62629
commit e67b015e3f
1 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -95,7 +95,7 @@ type
FLenText: integer;
FDisplayLineCount: integer;
FDisplayCharCount: integer;
FLines: TStringList;
FLines: TStrings;
FCharSpace: boolean;
FColorScheme: TColorScheme;
FCountOn: integer;
@ -123,7 +123,7 @@ type
function GetGlobalDotColsCount: longint;
procedure SetDisplayLineCount(const Value: integer);
procedure SetDisplayCharCount(const Value: integer);
procedure SetLines(const Value: TStringList);
procedure SetLines(const Value: TStrings);
procedure SetDotColorOff(const Value: TColor);
procedure SetDotColorOn(const Value: TColor);
procedure SetBoardColor(const Value: TColor);
@ -217,7 +217,7 @@ type
// The text to display
// It will be truncated according
// to ScreenRowCount and ScreenColCount
property Lines: TStringList read FLines write SetLines;
property Lines: TStrings read FLines write SetLines;
// Insert one-dot space between chars
property CharSpace: boolean read FCharSpace write SetCharSpace default False;
// Pre-defined color schemes
@ -623,6 +623,17 @@ begin
end;
{ TLCDDisplayStrings }
type
TLCDDisplayStrings = class(TStrings)
private
FOnChange: TNotifyEvent;
public
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
{ TLCDDisplay}
constructor TLCDDisplay.Create(AOwner: TComponent);
@ -655,7 +666,7 @@ begin
FCountOn := 255;
FLines := TStringList.Create;
FLines.OnChange := @LinesChanged;
TStringList(FLines).OnChange := @LinesChanged;
AutoSize := true;
end;
@ -1312,7 +1323,7 @@ begin
UpdateSize;
end;
procedure TLCDDisplay.SetLines(const Value: TStringList);
procedure TLCDDisplay.SetLines(const Value: TStrings);
var
i: integer;
begin