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-

Name

Size

Permission

Action

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

unit uLogOptions;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, GnuGettext, uTools, uMain,
  Vcl.Buttons;

type
  TfLogOptions = class(TForm)
    FontDialog: TFontDialog;
    lblLogFont: TLabel;
    tLogFont: TEdit;
    lblLogFontSize: TLabel;
    bSelect: TButton;
    tLogFontSize: TEdit;
    bSave: TBitBtn;
    bCancel: TBitBtn;
    procedure bSelectClick(Sender: TObject);
    procedure FontDialogApply(Sender: TObject; Wnd: HWND);
    procedure FontDialogClose(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bCancelClick(Sender: TObject);
    procedure bSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fLogOptions: TfLogOptions;

implementation

{$R *.dfm}

procedure TfLogOptions.bCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfLogOptions.bSaveClick(Sender: TObject);
begin
  Config.LogSettings.Font := FontDialog.Font.Name;
  Config.LogSettings.FontSize := FontDialog.Font.Size;
  fMain.AdjustLogFont(FontDialog.Font.Name, FontDialog.Font.Size);
  SaveSettings;
  Close;
end;

procedure TfLogOptions.bSelectClick(Sender: TObject);
begin
  FontDialog.Execute();
end;

procedure TfLogOptions.FontDialogApply(Sender: TObject; Wnd: HWND);
begin
  tLogFont.Text := FontDialog.Font.Name;
  tLogFontSize.Text := IntToStr(FontDialog.Font.Size);
end;

procedure TfLogOptions.FontDialogClose(Sender: TObject);
begin
  tLogFont.Text := FontDialog.Font.Name;
  tLogFontSize.Text := IntToStr(FontDialog.Font.Size);
end;

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

procedure TfLogOptions.FormShow(Sender: TObject);
begin
  tLogFont.Text := Config.LogSettings.Font;
  tLogFontSize.Text := IntToStr(Config.LogSettings.FontSize);
  FontDialog.Font.Name := Config.LogSettings.Font;
  FontDialog.Font.Size := Config.LogSettings.FontSize;
end;

end.

${this.title}

Code Editor : uLogOptions.pas