-
Notifications
You must be signed in to change notification settings - Fork 19
/
LogViewer.CallStack.Settings.View.pas
72 lines (55 loc) · 1.77 KB
/
LogViewer.CallStack.Settings.View.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
{
Copyright (C) 2013-2022 Tim Sinaeve [email protected]
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
}
unit LogViewer.CallStack.Settings.View;
interface
uses
Winapi.Windows, Winapi.Messages,
System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
LogViewer.CallStack.Settings;
type
TfrmCallStackSettings = class(TForm)
chkHideColumnHeaders : TCheckBox;
procedure chkHideColumnHeadersClick(Sender: TObject);
private
FSettings : TCallStackSettings;
public
constructor Create(
AOwner : TComponent;
ASettings : TCallStackSettings
); reintroduce;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
{$REGION 'construction and destruction'}
constructor TfrmCallStackSettings.Create(AOwner: TComponent;
ASettings: TCallStackSettings);
begin
inherited Create(AOwner);
FSettings := ASettings;
chkHideColumnHeaders.Checked := not FSettings.ColumnHeadersVisible;
end;
destructor TfrmCallStackSettings.Destroy;
begin
FSettings := nil;
inherited Destroy;
end;
{$ENDREGION}
{$REGION 'event handlers'}
procedure TfrmCallStackSettings.chkHideColumnHeadersClick(Sender: TObject);
begin
FSettings.ColumnHeadersVisible := not (Sender as TCheckBox).Checked;
end;
{$ENDREGION}
end.