Viewing file: uBaseModule.pas (2.25 KB) -rw-rw-rw- Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
unit uBaseModule;
interface
uses GnuGettext, Classes, ExtCtrls, StdCtrls, Buttons, SysUtils, uTools,
uServices;
type
tBaseModule = class
public
bbService: TBitBtn;
pStatus: tPanel;
lPID: tLabel;
lPort: tLabel;
bStartStop: TBitBtn;
bAdmin: TBitBtn;
AutoStart: boolean;
oldIsRunningByte: byte;
isRunning: boolean;
isService: boolean;
PIDList: tList;
ModuleName: string;
procedure Start; virtual; abstract;
procedure Stop; virtual; abstract;
procedure Admin; virtual; abstract;
procedure UpdateStatus; virtual; abstract;
procedure ServiceInstall; virtual; abstract;
procedure ServiceUnInstall; virtual; abstract;
procedure SetServiceButton(isActive: boolean);
procedure CheckIsService(ServiceName: string);
procedure AddLog(module, log: string; LogType: tLogType);
constructor Create(pbbService: TBitBtn; pStatusPanel: tPanel; pPIDLabel, pPortLabel: tLabel; pStartStopButton, pAdminButton: TBitBtn);
destructor Destroy; override;
end;
implementation
uses uMain;
{ tBaseModule }
procedure tBaseModule.AddLog(module, log: string; LogType: tLogType);
begin
fMain.AddLog(module, log, LogType);
end;
procedure tBaseModule.CheckIsService(ServiceName: string);
var
ServiceStatus: TServiceStatus;
begin
ServiceStatus := GetServiceStatus(ServiceName);
isService := ServiceStatus in [ssRunning, ssStopped];
SetServiceButton(isService);
end;
constructor tBaseModule.Create(pbbService: TBitBtn; pStatusPanel: tPanel; pPIDLabel, pPortLabel: tLabel; pStartStopButton, pAdminButton: TBitBtn);
begin
PIDList := tList.Create;
isRunning := false;
isService := false;
bbService := pbbService;
pStatus := pStatusPanel;
lPID := pPIDLabel;
lPort := pPortLabel;
bStartStop := pStartStopButton;
bAdmin := pAdminButton;
oldIsRunningByte := 2;
AutoStart := false;
end;
destructor tBaseModule.Destroy;
begin
PIDList.Free;
inherited;
end;
procedure tBaseModule.SetServiceButton(isActive: boolean);
begin
bbService.Glyph := nil;
if isActive then
fMain.ImageList.GetBitmap(11, bbService.Glyph);
if not isActive then
fMain.ImageList.GetBitmap(10, bbService.Glyph);
end;
end.
|