Get rid of some rarely used class aliases, to avoid confusion when reading the code

This commit is contained in:
Ansgar Becker
2025-04-20 12:59:21 +02:00
parent 1af77ff8ce
commit 7052236c17
8 changed files with 22 additions and 24 deletions

View File

@ -56,7 +56,7 @@ type
var CellText: String);
procedure listParametersGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: TImageIndex);
var Ghosted: Boolean; var ImageIndex: Integer);
procedure btnClearParamsClick(Sender: TObject);
procedure btnRemoveParamClick(Sender: TObject);
procedure listParametersBeforePaint(Sender: TBaseVirtualTree;
@ -294,7 +294,7 @@ end;
procedure TfrmRoutineEditor.listParametersGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: TImageIndex);
var Ghosted: Boolean; var ImageIndex: Integer);
var
List: TLazVirtualStringTree;
Context: String;