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

*Remove unused vars

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

11
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -13284,7 +13284,7 @@ var
Size: TSize; Size: TSize;
{$ifdef ThemeSupport} {$ifdef ThemeSupport}
//Theme: HTHEME; //Theme: HTHEME;
R: TRect; //R: TRect;
const const
TVP_HOTGLYPH = 4; TVP_HOTGLYPH = 4;
@ -15374,8 +15374,10 @@ procedure TBaseVirtualTree.WMContextMenu(var Message: TLMContextMenu);
// This method is called when a popup menu is about to be displayed. // This method is called when a popup menu is about to be displayed.
// We have to cancel some pending states here to avoid interferences. // We have to cancel some pending states here to avoid interferences.
//lcl: handle mouse up here because MouseUp is not called when popup is show //lcl: handle mouse up here because MouseUp is not called when popup is show
{$ifdef ContextMenuBeforeMouseUp}
var var
HitInfo: THitInfo; HitInfo: THitInfo;
{$endif}
begin begin
{$ifdef DEBUG_VTV}Logger.EnterMethod([lcMessages],'WMContextMenu');{$endif} {$ifdef DEBUG_VTV}Logger.EnterMethod([lcMessages],'WMContextMenu');{$endif}
@ -15584,11 +15586,9 @@ var
ParentControl: TWinControl; ParentControl: TWinControl;
R: TRect; R: TRect;
NewCheckState: TCheckState; NewCheckState: TCheckState;
TempColumn,
NewColumn: TColumnIndex; NewColumn: TColumnIndex;
ActAsGrid: Boolean; ActAsGrid: Boolean;
ForceSelection: Boolean; ForceSelection: Boolean;
NewWidth,
NewHeight: Integer; NewHeight: Integer;
RTLFactor: Integer; RTLFactor: Integer;
@ -22725,7 +22725,7 @@ var
FocusRect, FocusRect,
InnerRect: TRect; InnerRect: TRect;
{$ifdef ThemeSupport} {$ifdef ThemeSupport}
RowRect: TRect; //RowRect: TRect;
//Theme: HTHEME; //Theme: HTHEME;
{$endif ThemeSupport} {$endif ThemeSupport}
@ -31808,7 +31808,6 @@ var
RenderColumns: Boolean; RenderColumns: Boolean;
Columns: TColumnsArray; Columns: TColumnsArray;
ColumnColors: array of String;
Index: Integer; Index: Integer;
IndentWidth, IndentWidth,
LineStyleText: String; LineStyleText: String;
@ -31888,12 +31887,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);