paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 21:57:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: use cheaper TFPList instead of TList for SavedDCList.

Browse Source 
git-svn-id: trunk@24367 -
This commit is contained in:
zeljko 2010-04-02 09:30:53 +00:00
parent 2acd1a1c59
commit 88eea5b789
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtint.pp
View File

@ -58,7 +58,7 @@ type
private
App: QApplicationH;
FOverrideCursor: TObject;
SavedDCList: TList;
SavedDCList: TFPList;
CriticalSection: TRTLCriticalSection;
SavedHandlesList: TMap;
// global hooks

6
lcl/interfaces/qt/qtwinapi.inc
View File

@ -4201,8 +4201,8 @@ begin
exit;
end;
if SavedDC<0 then
SavedDC := SavedDC+SavedDCList.Count;
if SavedDC < 0 then
SavedDC := SavedDC + SavedDCList.Count;
// check index
Result := (SavedDC > 0) and (SavedDC < SavedDCList.Count);
@ -4266,7 +4266,7 @@ begin
if SavedDCList=nil then
begin
SavedDCList := TList.Create;
SavedDCList := TFPList.Create;
SavedDCList.Add(nil); // start at index 1, 0 is an invalid saved state
end;