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

LazLogger: IdeLogger

Browse Source 
git-svn-id: trunk@35340 -
This commit is contained in:
martin 2012-02-12 23:04:27 +00:00
parent 369017a0c5
commit af2af04d9d
2 changed files with 32 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
components/IdeLazLogger/idelogger.lfm
View File

@ -2,10 +2,10 @@ object IdeLoggerForm: TIdeLoggerForm
Left = 371
Height = 240
Top = 285
Width = 320
Width = 309
Caption = 'IdeLoggerForm'
ClientHeight = 240
ClientWidth = 320
ClientWidth = 309
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '0.9.31'
@ -13,7 +13,7 @@ object IdeLoggerForm: TIdeLoggerForm
Left = 0
Height = 194
Top = 0
Width = 320
Width = 309
ActivePage = TabSheet1
Align = alClient
ShowTabs = False
@ -22,31 +22,43 @@ object IdeLoggerForm: TIdeLoggerForm
object TabSheet1: TTabSheet
Caption = 'TabSheet1'
ClientHeight = 186
ClientWidth = 312
ClientWidth = 301
object CheckLogGroups: TCheckListBox
Left = 0
Height = 163
Top = 23
Width = 312
Height = 161
Top = 25
Width = 301
Align = alClient
ItemHeight = 0
OnClickCheck = CheckLogGroupsClickCheck
TabOrder = 0
end
object LogNameEdit: TFileNameEdit
object Panel1: TPanel
Left = 0
Height = 23
Height = 25
Top = 0
Width = 312
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 0
Width = 301
Align = alTop
MaxLength = 0
AutoSize = True
BevelOuter = bvSpace
ClientHeight = 25
ClientWidth = 301
TabOrder = 1
OnChange = LogNameEditChange
object LogNameEdit: TFileNameEdit
Left = 0
Height = 23
Top = 0
Width = 272
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 0
Anchors = [akTop, akLeft, akRight]
MaxLength = 0
TabOrder = 0
OnChange = LogNameEditChange
end
end
end
end
@ -54,7 +66,7 @@ object IdeLoggerForm: TIdeLoggerForm
Left = 6
Height = 34
Top = 200
Width = 308
Width = 297
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick

3
components/IdeLazLogger/idelogger.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, ButtonPanel,
Buttons, CheckLst, EditBtn, IDEIntf, MenuIntf, LazLogger;
Buttons, CheckLst, EditBtn, ExtCtrls, IDEIntf, MenuIntf, LazLogger;
type
@ -17,6 +17,7 @@ type
CheckLogGroups: TCheckListBox;
LogNameEdit: TFileNameEdit;
PageControl1: TPageControl;
Panel1: TPanel;
TabSheet1: TTabSheet;
procedure CancelButtonClick(Sender: TObject);
procedure CheckLogGroupsClickCheck(Sender: TObject);