// Read: Copyright © Thomas Schulz, all rights reserved.
// Contact: Primary: thomas#microsystools.com. Secondary: dk_sz#hotmail.com.
// Can only be used when making modules for "Micro-Sys MultiBatcher".
//------------------------------------------------------------------------------
unit LUmsCommonAllSharedDeclarsOO;
{$I AImsCoreDefines.inc}
interface
uses
LUmsCommonAllSharedDeclars;
//------------------------------------------------------------------------------
{
A shared (where most methods have empty stubs) class to wrap-up a plugin.
}
//------------------------------------------------------------------------------
type
TPluginSharedComm = class(TObject)
protected
//-> shared helper
procedure CallErrorCommon(const AError: string); virtual;
procedure CallErrorMethodNotImplemented(const AMethodName: string); virtual;
public
//-> plugin special
function PluginReturnInfo: PPluginInfo; virtual;
procedure PluginSetupInit; virtual;
procedure PluginSetupPreEdit; virtual;
procedure PluginSetupEdit; virtual;
procedure PluginSetupWorkStart; virtual;
procedure PluginSetupWorkStartDone; virtual;
procedure PluginSetupWorkEnd; virtual;
//-> general/all (work)
procedure PluginWorkPath(PluginPassedReadInProps: PPluginPassedReadInProps; PluginPassedWriteOutProps: PPluginPassedWriteOutProps); virtual;
//-> choice:: (work)
procedure PluginSetPropChoiceValueCount(const PropName: string; PropValueCount: Integer); virtual; // multiple
procedure PluginSetPropChoiceValue(const PropName: string; const ChoiceID: string); virtual; // single + multiple
//-> textboxes (edit)
procedure PluginVerifyPropTextBoxValue(const PropName: string; const TextBoxID: string; const PropValue: string; ExeCallBack: TProcExeHandleEditPropTextBoxErrorMsg); virtual;
//-> textboxes (work)
procedure PluginSetPropTextBoxValue(const PropName: string; const TextBoxID: string; const PropValue: string); virtual;
//-> grid (edit)
procedure PluginPrepareVerifyGridRow(const PropName: string); virtual;
procedure PluginAddVerifyPropGridValue(const PropName: string; const PropValue: string); virtual;
procedure PluginEndVerifyGridRow(const PropName: string; ExeCallBack: TProcExeHandleEditPropGridErrorMsg); virtual;
//-> grid (work)
procedure PluginSetPropGridRowCount(const PropName: string; RowCount: Integer); virtual;
procedure PluginSetPropGridValue(const PropName: string; const ColID: string; RowIdx: Integer; const FieldValue: string); virtual;
//-> file (edit)
procedure PluginVerifyPropFileValue(const PropName: string; const FullFilePathName: string; ExeCallBack: TProcExeHandleEditPropFileErrorMsg); virtual;
//-> file (work)
procedure PluginSetPropFileValue(const PropName: string; const FullFilePathName: string); virtual;
end;
TPluginSharedCommClass = class of TPluginSharedComm;
//==============================================================================
implementation
//==============================================================================
//------------------------------------------------------------------------------
procedure TPluginSharedComm.CallErrorCommon(const AError: string);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.CallErrorMethodNotImplemented(const AMethodName: string);
begin
CallErrorCommon('Method: "' + AMethodName + '"');
end;
//------------------------------------------------------------------------------
function TPluginSharedComm.PluginReturnInfo: PPluginInfo;
begin
Result := nil;
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetupInit;
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetupPreEdit;
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetupEdit;
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetupWorkStart;
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetupWorkStartDone;
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetupWorkEnd;
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginWorkPath(PluginPassedReadInProps: PPluginPassedReadInProps; PluginPassedWriteOutProps: PPluginPassedWriteOutProps);
begin
// CallErrorMethodNotImplemented('PluginWorkPath');
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetPropChoiceValue(const PropName: string; const ChoiceID: string);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetPropChoiceValueCount(const PropName: string; PropValueCount: Integer);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginVerifyPropTextBoxValue(const PropName: string; const TextBoxID: string; const PropValue: string; ExeCallBack: TProcExeHandleEditPropTextBoxErrorMsg);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetPropTextBoxValue(const PropName: string; const TextBoxID: string; const PropValue: string);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginPrepareVerifyGridRow(const PropName: string);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginAddVerifyPropGridValue(const PropName: string; const PropValue: string);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginEndVerifyGridRow(const PropName: string; ExeCallBack: TProcExeHandleEditPropGridErrorMsg);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetPropGridRowCount(const PropName: string; RowCount: Integer);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetPropGridValue(const PropName: string; const ColID: string; RowIdx: Integer; const FieldValue: string);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginVerifyPropFileValue(const PropName: string; const FullFilePathName: string; ExeCallBack: TProcExeHandleEditPropFileErrorMsg);
begin
end;
//------------------------------------------------------------------------------
procedure TPluginSharedComm.PluginSetPropFileValue(const PropName: string; const FullFilePathName: string);
begin
end;
//==============================================================================
end.

Automation Batch Tools is a automation software tool that can automate repetitive tasks