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

UPD: Some WLX plugins support expand

Browse source
This commit is contained in:
Alexander Koblov 2009-09-09 14:47:12 +00:00
commit 9fa03c1e2e
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fviewer.pas
View file

@ -32,7 +32,7 @@ uses
LResources,
SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, LCLProc, Menus,
viewercontrol, fFindView,uwlxmodule;
viewercontrol, fFindView, WLXPlugin, uWLXModule;
type
@ -720,13 +720,18 @@ end;
procedure TfrmViewer.miCopyToClipboardClick(Sender: TObject);
begin
ViewerControl.CopyToClipboard;
if bPlugin then
WlxPlugins.GetWLxModule(ActivePlugin).CallListSendCommand(lc_copy, 0)
else
ViewerControl.CopyToClipboard;
end;
procedure TfrmViewer.miSelectAllClick(Sender: TObject);
begin
inherited;
ViewerControl.SelectAll;
if bPlugin then
WlxPlugins.GetWLxModule(ActivePlugin).CallListSendCommand(lc_selectall, 0)
else
ViewerControl.SelectAll;
end;
procedure TfrmViewer.miChangeEncodingClick(Sender: TObject);