mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Easy way to test TColumnsFileViewVtv

Browse source
This commit is contained in:
Alexander Koblov 2015-12-16 19:47:47 +00:00
commit 444bc95e91
5 changed files with 23 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fileviews/ucolumnsfileviewvtv.pas
View file

@ -201,6 +201,8 @@ type
end;
TColumnsFileView = TColumnsFileViewVTV;
implementation
uses

8
src/fmain.pas
View file

@ -43,7 +43,7 @@ uses
Graphics, Forms, Menus, Controls, StdCtrls, ExtCtrls, ActnList, ShellCtrls,
Buttons, SysUtils, Classes, SynEdit, LCLType, ComCtrls, LResources,
KASToolBar, KASComboBox, uCmdBox, uFilePanelSelect, uBriefFileView,
uFileView, uColumnsFileView, uFileSource, uFileViewNotebook, uFile,
uFileView, uFileSource, uFileViewNotebook, uFile,
uOperationsManager, uFileSourceOperation, uDrivesList, uTerminal, DCClassesUtf8,
DCXmlConfig, uDrive, uDriveWatcher, uDCVersion, uMainCommands, uFormCommands,
uOperationsPanel, KASToolItems, uKASToolItemsExtended, uCmdLineParams
@ -776,6 +776,8 @@ uses
uHotDir, uFileSorting, DCBasicTypes, foptionsDirectoryHotlist, uConnectionManager
{$IFDEF COLUMNSFILEVIEW_VTV}
, uColumnsFileViewVtv
{$ELSE}
, uColumnsFileView
{$ENDIF}
;
@ -3952,11 +3954,7 @@ begin
if gDelayLoadingTabs then
FileViewFlags := [fvfDelayLoadingFiles];
if sType = 'columns' then
{$IFDEF COLUMNSFILEVIEW_VTV}
Result := TColumnsFileViewVTV.Create(Page, AConfig, ANode, FileViewFlags)
{$ELSE}
Result := TColumnsFileView.Create(Page, AConfig, ANode, FileViewFlags)
{$ENDIF}
else if sType = 'brief' then
Result := TBriefFileView.Create(Page, AConfig, ANode, FileViewFlags)
else if sType = 'thumbnails' then

8
src/frames/foptionscustomcolumns.pas
View file

@ -32,7 +32,13 @@ uses
ComCtrls, Controls, Classes, SysUtils, StdCtrls, ExtCtrls, Forms, ColorBox,
Buttons, Spin, Grids, Menus, Dialogs,
//DC
uColumns, uColumnsFileView, fOptionsFrame;
uColumns, fOptionsFrame
{$IFDEF COLUMNSFILEVIEW_VTV}
, uColumnsFileViewVtv
{$ELSE}
, uColumnsFileView
{$ENDIF}
;
type

9
src/frames/foptionsfilepanelscolors.pas
View file

@ -32,7 +32,14 @@ uses
DividerBevel,
//DC
uColumns, uColumnsFileView, fOptionsFrame;
uColumns, fOptionsFrame
{$IFDEF COLUMNSFILEVIEW_VTV}
, uColumnsFileViewVtv
{$ELSE}
, uColumnsFileView
{$ENDIF}
;
type
{ TfrmOptionsFilePanelsColors }
TfrmOptionsFilePanelsColors = class(TOptionsEditor)

16
src/umaincommands.pas
View file

@ -310,7 +310,7 @@ uses Forms, Controls, Dialogs, Clipbrd, strutils, LCLProc, HelpIntfs, StringHash
fExtractDlg, fAbout, fOptions, fDiffer, fFindDlg, fSymLink, fHardLink, fMultiRename,
fLinker, fSplitter, fDescrEdit, fCheckSumVerify, fCheckSumCalc, fSetFileProperties,
uLng, uLog, uShowMsg, uOSForms, uOSUtils, uDCUtils, uBriefFileView,
uShowForm, uShellExecute, uClipboard, uHash, uDisplayFile, uColumnsFileView,
uShowForm, uShellExecute, uClipboard, uHash, uDisplayFile,
uFilePanelSelect, uFile, uFileSystemFileSource, uQuickViewPanel,
uOperationsManager, uFileSourceOperationTypes, uWfxPluginFileSource,
uFileSystemDeleteOperation, uFileSourceExecuteOperation, uSearchResultFileSource,
@ -325,6 +325,8 @@ uses Forms, Controls, Dialogs, Clipbrd, strutils, LCLProc, HelpIntfs, StringHash
fOptionsToolbar, fMainCommandsDlg, uConnectionManager
{$IFDEF COLUMNSFILEVIEW_VTV}
, uColumnsFileViewVtv
{$ELSE}
, uColumnsFileView
{$ENDIF}
;
@ -1632,11 +1634,7 @@ var
begin
with frmMain do
begin
{$IFDEF COLUMNSFILEVIEW_VTV}
aFileView:= TColumnsFileViewVTV.Create(ActiveNotebook.ActivePage, ActiveFrame);
{$ELSE}
aFileView:= TColumnsFileView.Create(ActiveNotebook.ActivePage, ActiveFrame);
{$ENDIF}
ActiveNotebook.ActivePage.FileView:= aFileView;
ActiveFrame.SetFocus;
end;
@ -1648,11 +1646,7 @@ var
begin
with frmMain do
begin
{$IFDEF COLUMNSFILEVIEW_VTV}
aFileView:= TColumnsFileViewVTV.Create(ActiveNotebook.ActivePage, ActiveFrame);
{$ELSE}
aFileView:= TColumnsFileView.Create(LeftTabs.ActivePage, FrameLeft);
{$ENDIF}
LeftTabs.ActivePage.FileView:= aFileView;
end;
end;
@ -1663,11 +1657,7 @@ var
begin
with frmMain do
begin
{$IFDEF COLUMNSFILEVIEW_VTV}
aFileView:= TColumnsFileViewVTV.Create(ActiveNotebook.ActivePage, ActiveFrame);
{$ELSE}
aFileView:= TColumnsFileView.Create(RightTabs.ActivePage, FrameRight);
{$ENDIF}
RightTabs.ActivePage.FileView:= aFileView;
end;
end;