paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeConfig: Remove LCL dependency from RecentListProcs.

Browse Source
This commit is contained in:
Juha 2023-05-31 12:33:42 +03:00
parent 97c198b599
commit a71517e5d2
2 changed files with 19 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/cleandirdlg.pas
View File

@ -101,6 +101,25 @@ begin
CleanDirectoryDialog.Free;
end;
function AddComboTextToRecentList(cb: TCombobox; aMax: integer;
ListType: TRecentListType): boolean;
var
List: TStringList;
begin
List:=TStringList.Create;
try
List.Assign(cb.Items);
Result:=AddToRecentList(cb.Text,List,aMax,ListType);
if Result then
begin
cb.Items.Assign(List);
cb.ItemIndex:=0;
end;
finally
List.Free;
end;
end;
{ TCleanDirectoryDialog }
procedure TCleanDirectoryDialog.OkButtonClick(Sender: TObject);

21
ide/packages/ideconfig/recentlistprocs.pas
View File

@ -33,8 +33,6 @@ procedure SaveRecentList(XMLConfig: TXMLConfig; List: TStrings;
const Path: string; aMax: Integer); overload;
function AddToRecentList(const s: string; List: TStrings; aMax: integer;
ListType: TRecentListType): boolean;
function AddComboTextToRecentList(cb: TComboBox; aMax: integer;
ListType: TRecentListType): boolean;
procedure RemoveFromRecentList(const s: string; List: TStrings;
ListType: TRecentListType);
procedure CleanUpRecentList(List: TStrings; ListType: TRecentListType);
@ -112,25 +110,6 @@ begin
List.Delete(List.Count-1);
end;
function AddComboTextToRecentList(cb: TCombobox; aMax: integer;
ListType: TRecentListType): boolean;
var
List: TStringList;
begin
List:=TStringList.Create;
try
List.Assign(cb.Items);
Result:=AddToRecentList(cb.Text,List,aMax,ListType);
if Result then
begin
cb.Items.Assign(List);
cb.ItemIndex:=0;
end;
finally
List.Free;
end;
end;
procedure RemoveFromRecentList(const s: string; List: TStrings;
ListType: TRecentListType);
var