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 var
Fonts: TStringList; Fonts: TStringList;
Colors: TList; Colors: TFpList;
CurrentFontIndex, CurrentFontIndex,
CurrentFontColor, CurrentFontColor,
CurrentFontSize: Integer; CurrentFontSize: Integer;
@ -32808,7 +32808,7 @@ begin
RedirectFontChangeEvent(Canvas); RedirectFontChangeEvent(Canvas);
Fonts := TStringList.Create; Fonts := TStringList.Create;
Colors := TList.Create; Colors := TFpList.Create;
CurrentFontIndex := -1; CurrentFontIndex := -1;
CurrentFontColor := -1; CurrentFontColor := -1;
CurrentFontSize := -1; CurrentFontSize := -1;