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: Show only message type code in LogProc

Browse source
This commit is contained in:
Alexander Koblov 2009-12-02 12:20:29 +00:00
commit ef49e02eb9
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/newdesign/uwfxpluginfilesource.pas
View file

@ -130,7 +130,7 @@ end;
procedure MainLogProc(PluginNr, MsgType: Integer; LogString: UTF8String);
var
sMsg: String;
sMsg: UTF8String;
LogMsgType: TLogMsgType = lmtInfo;
bLogFile: Boolean;
bLock: Boolean = True;
@ -140,25 +140,26 @@ Begin
case MsgType of
msgtype_connect:
begin
sMsg:= sMsg + 'msgtype_connect';
sMsg:= sMsg + '[' + IntToStr(MsgType) + ']';
ShowLogWindow(True, @bLock);
end;
msgtype_disconnect: sMsg:= sMsg + 'msgtype_disconnect';
msgtype_details: sMsg:= sMsg + 'msgtype_details';
msgtype_transfercomplete: sMsg:= sMsg + 'msgtype_transfercomplete';
msgtype_connectcomplete: sMsg:= sMsg + 'msgtype_connectcomplete';
msgtype_disconnect,
msgtype_details,
msgtype_operationcomplete,
msgtype_transfercomplete,
msgtype_connectcomplete:
sMsg:= sMsg + '[' + IntToStr(MsgType) + ']';
msgtype_importanterror:
begin
sMsg:= rsMsgLogError + 'msgtype_importanterror';
sMsg:= rsMsgLogError + '[' + IntToStr(MsgType) + ']';
LogMsgType:= lmtError;
bLogFile:= (log_vfs_op in gLogOptions) and (log_errors in gLogOptions);
end;
msgtype_operationcomplete: sMsg:= sMsg + 'msgtype_operationcomplete';
end;
// write log info
logWrite(sMsg + ', ' + logString, LogMsgType, False, bLogFile);
//DebugLN('MainLogProc ('+ sMsg + ',' + logString + ')');
//DebugLn('MainLogProc ('+ sMsg + ',' + logString + ')');
end;
procedure MainLogProcA(PluginNr, MsgType: Integer; LogString: PAnsiChar); stdcall;