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

LCL: TApplication: replaced TList with TFPList

Browse Source 
git-svn-id: trunk@24413 -
This commit is contained in:
mattias 2010-04-04 23:04:37 +00:00
parent 8e09f3c8dd
commit 3166de2bc2
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/forms.pp
View File

@ -893,14 +893,14 @@ type
FActiveForm: TForm;
FCursor: TCursor;
FCursorMap: TMap;
FCustomForms: TList;
FCustomFormsZOrdered: TList;
FCustomForms: TFPList;
FCustomFormsZOrdered: TFPList;
FDefaultCursor: HCURSOR;
FHintFont: TFont;
FFocusedForm: TCustomForm;
FFonts : TStrings;
FFormList: TList;
FDataModuleList: TList;
FFormList: TFPList;
FDataModuleList: TFPList;
FIconFont: TFont;
FMenuFont: TFont;
FScreenHandlers: array[TScreenNotification] of TMethodList;
@ -910,7 +910,7 @@ type
FOnActiveControlChange: TNotifyEvent;
FOnActiveFormChange: TNotifyEvent;
FPixelsPerInch : integer;
FSaveFocusedList: TList;
FSaveFocusedList: TFPList;
FSystemFont: TFont;
procedure DeleteCursor(AIndex: Integer);
procedure DestroyCursors;

10
lcl/include/screen.inc
View File

@ -71,12 +71,12 @@ begin
FCursorMap := TMap.Create(its4, SizeOf(HCursor));
FMonitors := TMonitorList.Create;
TStringlist(FFonts).Sorted := True;
FCustomForms := TList.Create;
FCustomFormsZOrdered := TList.Create;
FFormList := TList.Create;
FDataModuleList := TList.Create;
FCustomForms := TFPList.Create;
FCustomFormsZOrdered := TFPList.Create;
FFormList := TFPList.Create;
FDataModuleList := TFPList.Create;
FPixelsPerInch := ScreenInfo.PixelsPerInchX;
FSaveFocusedList := TList.Create;
FSaveFocusedList := TFPList.Create;
AddDataModule := @DoAddDataModule;
RemoveDataModule := @DoRemoveDataModule;