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

* Remove / comment unused vars

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4664 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2016-05-22 21:50:41 +00:00
parent c3def8796b
commit b12d6bba10
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24004,7 +24004,7 @@ var
FocusRect, FocusRect,
InnerRect: TRect; InnerRect: TRect;
{$ifdef ThemeSupport} {$ifdef ThemeSupport}
RowRect: TRect; //RowRect: TRect;
//Theme: HTHEME; //Theme: HTHEME;
{$endif ThemeSupport} {$endif ThemeSupport}
@ -33862,7 +33862,6 @@ var
RenderColumns: Boolean; RenderColumns: Boolean;
Columns: TColumnsArray; Columns: TColumnsArray;
ColumnColors: array of String;
Index: Integer; Index: Integer;
IndentWidth, IndentWidth,
LineStyleText: String; LineStyleText: String;
@ -33944,12 +33943,10 @@ begin
Buffer.AddNewLine; Buffer.AddNewLine;
Columns := nil; Columns := nil;
ColumnColors := nil;
RenderColumns := FHeader.UseColumns; RenderColumns := FHeader.UseColumns;
if RenderColumns then if RenderColumns then
begin begin
Columns := FHeader.FColumns.GetVisibleColumns; Columns := FHeader.FColumns.GetVisibleColumns;
SetLength(ColumnColors, Length(Columns));
end; end;
GetRenderStartValues(Source, Run, GetNextNode); GetRenderStartValues(Source, Run, GetNextNode);