Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
gfx	[ DIR ]	drwxrwxrwx
locale	[ DIR ]	drwxrwxrwx
VersInfo.pas	42.97 KB	-rw-rw-rw-
default.po	32.22 KB	-rw-rw-rw-
ggexclude.cfg	227 B	-rw-rw-rw-
gnugettext.pas	114.84 KB	-rw-rw-rw-
ignore.po	7.28 KB	-rw-rw-rw-
sonar-project.properties	464 B	-rw-rw-rw-
uApache.pas	15.79 KB	-rw-rw-rw-
uBaseModule.pas	2.25 KB	-rw-rw-rw-
uConfig.dfm	14.81 KB	-rw-rw-rw-
uConfig.pas	4.43 KB	-rw-rw-rw-
uConfigUserDefined.dfm	14.73 KB	-rw-rw-rw-
uConfigUserDefined.pas	3.36 KB	-rw-rw-rw-
uExceptionDialog.dcu	32.71 KB	-rw-rw-rw-
uExceptionDialog.dfm	2.08 KB	-rw-rw-rw-
uExceptionDialog.pas	27.37 KB	-rw-rw-rw-
uFileZilla.pas	14.85 KB	-rw-rw-rw-
uGetWinVersionInfo.dcu	8.09 KB	-rw-rw-rw-
uGetWinVersionInfo.pas	11.13 KB	-rw-rw-rw-
uHelp.dfm	3.18 KB	-rw-rw-rw-
uHelp.pas	1.81 KB	-rw-rw-rw-
uJclSysInfo.pas	22.05 KB	-rw-rw-rw-
uLanguage.dfm	12.95 KB	-rw-rw-rw-
uLanguage.pas	2 KB	-rw-rw-rw-
uLogOptions.dfm	6.42 KB	-rw-rw-rw-
uLogOptions.pas	2.1 KB	-rw-rw-rw-
uMain.dfm	217.14 KB	-rw-rw-rw-
uMain.pas	39.26 KB	-rw-rw-rw-
uMercury.pas	11.42 KB	-rw-rw-rw-
uMySQL.pas	13.95 KB	-rw-rw-rw-
uNetstat.dfm	3.53 KB	-rw-rw-rw-
uNetstat.pas	7.95 KB	-rw-rw-rw-
uNetstatTable.pas	7.58 KB	-rw-rw-rw-
uProcesses.pas	6.25 KB	-rw-rw-rw-
uProcesses_new.pas	2.14 KB	-rw-rw-rw-
uServiceSettings.dfm	16.89 KB	-rw-rw-rw-
uServiceSettings.pas	8.26 KB	-rw-rw-rw-
uServices.pas	6.14 KB	-rw-rw-rw-
uTomcat.pas	15.9 KB	-rw-rw-rw-
uTools.pas	26.61 KB	-rw-rw-rw-
xampp_control3.dpr	2.21 KB	-rw-rw-rw-
xampp_control3.dproj	30.02 KB	-rw-rw-rw-
xampp_control3.dproj.local	38.45 KB	-rw-rw-rw-
xampp_control3.drc	78.46 KB	-rw-rw-rw-
xampp_control3.dres	37.08 KB	-rw-rw-rw-
xampp_control3.identcache	1.29 KB	-rw-rw-rw-
xampp_control3.stat	170 B	-rw-rw-rw-
xampp_control3Resource.rc	341 B	-rw-rw-rw-
xampp_control3_project.tvsconf...	72 B	-rw-rw-rw-

Code Editor : uConfig.pas

unit uConfig;

interface

uses
  GnuGettext, Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms,
  Dialogs, StdCtrls, Buttons, uTools;

type
  TfConfig = class(TForm)
    bSelectEditor: TBitBtn;
    eEditor: TEdit;
    OpenDialog: TOpenDialog;
    lblEditor: TLabel;
    bSave: TBitBtn;
    bAbort: TBitBtn;
    lblBrowser: TLabel;
    bSelectBrowser: TBitBtn;
    eBrowser: TEdit;
    cbDebug: TCheckBox;
    cbDebugDetails: TComboBox;
    grpAutostart: TGroupBox;
    cbASApache: TCheckBox;
    cbASMySQL: TCheckBox;
    cbASFileZilla: TCheckBox;
    cbASMercury: TCheckBox;
    lblAutostart: TLabel;
    cbCheckDefaultPorts: TCheckBox;
    bLanguage: TBitBtn;
    bConfigUserdefined: TBitBtn;
    cbTomcatVisible: TCheckBox;
    bLogSettings: TButton;
    bServiceSettings: TButton;
    cbASTomcat: TCheckBox;
    cbMinimized: TCheckBox;
    procedure bAbortClick(Sender: TObject);
    procedure bSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bSelectEditorClick(Sender: TObject);
    procedure bSelectBrowserClick(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure bLanguageClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure bConfigUserdefinedClick(Sender: TObject);
    procedure bLogSettingsClick(Sender: TObject);
    procedure bServiceSettingsClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
  end;

var
  fConfig: TfConfig;

implementation

uses uMain, uLanguage, uConfigUserDefined, uLogOptions, uServiceSettings;

{$R *.dfm}

procedure TfConfig.bSelectBrowserClick(Sender: TObject);
var
  dp: string;
begin
  dp := ExtractFilePath(eBrowser.Text);
  if dp <> '' then
  begin
    OpenDialog.InitialDir := dp;
    OpenDialog.FileName := ExtractFileName(eBrowser.Text);
  end;
  if OpenDialog.Execute then
    eBrowser.Text := OpenDialog.FileName;
end;

procedure TfConfig.bSelectEditorClick(Sender: TObject);
var
  dp: string;
begin
  dp := ExtractFilePath(eEditor.Text);
  if dp <> '' then
  begin
    OpenDialog.InitialDir := dp;
    OpenDialog.FileName := ExtractFileName(eEditor.Text);
  end;
  if OpenDialog.Execute then
    eEditor.Text := OpenDialog.FileName;
end;

procedure TfConfig.bServiceSettingsClick(Sender: TObject);
begin
  fServiceSettings.ShowModal;
end;

procedure TfConfig.bLogSettingsClick(Sender: TObject);
begin
  fLogOptions.ShowModal;
end;

procedure TfConfig.cbDebugClick(Sender: TObject);
begin
  cbDebugDetails.Visible := cbDebug.Checked;
end;

procedure TfConfig.bLanguageClick(Sender: TObject);
begin
  fLanguage.ShowModal;
end;

procedure TfConfig.bConfigUserdefinedClick(Sender: TObject);
begin
  fConfigUserDefined.ShowModal;
end;

procedure TfConfig.bSaveClick(Sender: TObject);
begin
  Config.EditorApp := Trim(eEditor.Text);
  Config.BrowserApp := Trim(eBrowser.Text);
  Config.ShowDebug := cbDebug.Checked;
  Config.DebugLevel := cbDebugDetails.ItemIndex;
  Config.EnableChecks.CheckDefaultPorts := cbCheckDefaultPorts.Checked;
  Config.TomcatVisible := cbTomcatVisible.Checked;
  Config.Minimized := cbMinimized.Checked;

Config.ASApache := cbASApache.Checked;
  Config.ASMySQL := cbASMySQL.Checked;
  Config.ASFileZilla := cbASFileZilla.Checked;
  Config.ASMercury := cbASMercury.Checked;
  Config.ASTomcat := cbASTomcat.Checked;

SaveSettings;
  Close;
end;

procedure TfConfig.bAbortClick(Sender: TObject);
begin
  Close;
end;

procedure TfConfig.FormCreate(Sender: TObject);
begin
  TranslateComponent(Self);
end;

procedure TfConfig.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
  begin
    Key := #0;
    bAbort.Click;
  end;
end;

procedure TfConfig.FormShow(Sender: TObject);
begin
  eEditor.Text := Config.EditorApp;
  eBrowser.Text := Config.BrowserApp;
  cbDebug.Checked := Config.ShowDebug;
  cbDebugDetails.Visible := cbDebug.Checked;
  cbDebugDetails.ItemIndex := Config.DebugLevel;
  cbCheckDefaultPorts.Checked := Config.EnableChecks.CheckDefaultPorts;
  cbTomcatVisible.Checked := Config.TomcatVisible;
  cbMinimized.Checked := Config.Minimized;

cbASApache.Checked := Config.ASApache;
  cbASMySQL.Checked := Config.ASMySQL;
  cbASFileZilla.Checked := Config.ASFileZilla;
  cbASMercury.Checked := Config.ASMercury;
  cbASTomcat.Checked := Config.ASTomcat;
end;

end.

${this.title}

Code Editor : uConfig.pas