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 : uConfigUserDefined.pas

unit uConfigUserDefined;

interface

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

type
  TfConfigUserDefined = class(TForm)
    lblDescription1: TLabel;
    bSave: TBitBtn;
    bAbort: TBitBtn;
    lblDescription2: TLabel;
    pcUserDefConf: TPageControl;
    pApache: TTabSheet;
    pMySQL: TTabSheet;
    pFileZilla: TTabSheet;
    pMercury: TTabSheet;
    TabSheet5: TTabSheet;
    mConfigApache: TMemo;
    mLogsApache: TMemo;
    mConfigMySQL: TMemo;
    mLogsMySQL: TMemo;
    mConfigFilezilla: TMemo;
    mLogsFileZilla: TMemo;
    mLogsMercury: TMemo;
    mConfigMercury: TMemo;
    mConfigTomcat: TMemo;
    mLogsTomcat: TMemo;
    pnlApache: TPanel;
    lblApacheConf: TLabel;
    lblApacheLogs: TLabel;
    pnlMySQL: TPanel;
    lblMySQLConf: TLabel;
    lblMySQLLogs: TLabel;
    pnlFileZilla: TPanel;
    lblFileZillaConf: TLabel;
    lblFileZillaLogs: TLabel;
    pnlMercury: TPanel;
    lblMercuryConf: TLabel;
    lblMercuryLogs: TLabel;
    pnlTomcat: TPanel;
    lblTomcatConf: TLabel;
    lblTomcatLogs: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bAbortClick(Sender: TObject);
    procedure bSaveClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    procedure Memo2Config;
    procedure Config2Memo;
  public
    { Public-Deklarationen }
  end;

var
  fConfigUserDefined: TfConfigUserDefined;

implementation

{$R *.dfm}
{ TfConfigUserDefined }

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

procedure TfConfigUserDefined.bSaveClick(Sender: TObject);
begin
  Memo2Config;
  SaveSettings;
end;

procedure TfConfigUserDefined.Memo2Config;
begin
  Config.UserConfig.Apache.Text := mConfigApache.Text;
  Config.UserConfig.MySQL.Text := mConfigMySQL.Text;
  Config.UserConfig.FileZilla.Text := mConfigFilezilla.Text;
  Config.UserConfig.Mercury.Text := mConfigMercury.Text;
  Config.UserConfig.Tomcat.Text := mConfigTomcat.Text;

Config.UserLogs.Apache.Text := mLogsApache.Text;
  Config.UserLogs.MySQL.Text := mLogsMySQL.Text;
  Config.UserLogs.FileZilla.Text := mLogsFileZilla.Text;
  Config.UserLogs.Mercury.Text := mLogsMercury.Text;
  Config.UserLogs.Tomcat.Text := mLogsTomcat.Text;
end;

procedure TfConfigUserDefined.Config2Memo;
begin
  mConfigApache.Text := Config.UserConfig.Apache.Text;
  mConfigMySQL.Text := Config.UserConfig.MySQL.Text;
  mConfigFilezilla.Text := Config.UserConfig.FileZilla.Text;
  mConfigMercury.Text := Config.UserConfig.Mercury.Text;
  mConfigTomcat.Text := Config.UserConfig.Tomcat.Text;

mLogsApache.Text := Config.UserLogs.Apache.Text;
  mLogsMySQL.Text := Config.UserLogs.MySQL.Text;
  mLogsFileZilla.Text := Config.UserLogs.FileZilla.Text;
  mLogsMercury.Text := Config.UserLogs.Mercury.Text;
  mLogsTomcat.Text := Config.UserLogs.Tomcat.Text;
end;

procedure TfConfigUserDefined.FormCreate(Sender: TObject);
begin
  TranslateComponent(self);
end;

procedure TfConfigUserDefined.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
  begin
    Key := #0;
    Close;
    exit;
  end;
end;

procedure TfConfigUserDefined.FormShow(Sender: TObject);
begin
  Config2Memo;
end;

end.

${this.title}

Code Editor : uConfigUserDefined.pas