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

* Replace TList by TFpList

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1065 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-16 00:52:39 +00:00
parent 346578917e
commit e73f1b4ea9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -32667,7 +32667,7 @@ function TCustomVirtualStringTree.ContentToRTF(Source: TVSTTextSourceType): Ansi
var
Fonts: TStringList;
Colors: TList;
Colors: TFpList;
CurrentFontIndex,
CurrentFontColor,
CurrentFontSize: Integer;
@ -32808,7 +32808,7 @@ begin
RedirectFontChangeEvent(Canvas);
Fonts := TStringList.Create;
Colors := TList.Create;
Colors := TFpList.Create;
CurrentFontIndex := -1;
CurrentFontColor := -1;
CurrentFontSize := -1;