paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazLogger: IdeLogger

Browse Source 
git-svn-id: trunk@35334 -
This commit is contained in:
martin 2012-02-12 18:45:31 +00:00
parent 2d5748afd7
commit cb02facd7d
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/IdeLazLogger/idelogger.lfm
View File

@ -25,14 +25,29 @@ object IdeLoggerForm: TIdeLoggerForm
ClientWidth = 312
object CheckLogGroups: TCheckListBox
Left = 0
Height = 186
Top = 0
Height = 163
Top = 23
Width = 312
Align = alClient
ItemHeight = 0
OnClickCheck = CheckLogGroupsClickCheck
TabOrder = 0
end
object LogNameEdit: TFileNameEdit
Left = 0
Height = 23
Top = 0
Width = 312
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 0
Align = alTop
MaxLength = 0
TabOrder = 1
OnChange = LogNameEditChange
end
end
end
object ButtonPanel1: TButtonPanel

11
components/IdeLazLogger/idelogger.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, ButtonPanel,
Buttons, CheckLst, IDEIntf, MenuIntf, LazLogger;
Buttons, CheckLst, EditBtn, IDEIntf, MenuIntf, LazLogger;
type
@ -15,6 +15,7 @@ type
TIdeLoggerForm = class(TForm)
ButtonPanel1: TButtonPanel;
CheckLogGroups: TCheckListBox;
LogNameEdit: TFileNameEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
procedure CancelButtonClick(Sender: TObject);
@ -22,6 +23,7 @@ type
procedure CloseButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LogNameEditChange(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
private
{ private declarations }
@ -81,9 +83,15 @@ begin
j := CheckLogGroups.Items.Add(DebugLogger.LogGroupList[i]^.ConfigName);
CheckLogGroups.Checked[j] := e^.Enabled;
end;
LogNameEdit.FileName := DebugLogger.LogName;
ButtonPanel1.CloseButton.Enabled := False;
end;
procedure TIdeLoggerForm.LogNameEditChange(Sender: TObject);
begin
ButtonPanel1.CloseButton.Enabled := True;
end;
procedure TIdeLoggerForm.OKButtonClick(Sender: TObject);
begin
DoApply;
@ -102,6 +110,7 @@ begin
if (j >= 0) then
e^.Enabled := CheckLogGroups.Checked[j];
end;
DebugLogger.LogName := LogNameEdit.FileName;
end;
procedure IDELoggerMenuClicked(Sender: TObject);