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

Debugger: Support Checkbox boolean property editor in debugger options.

Browse Source 
git-svn-id: trunk@47314 -
This commit is contained in:
juha 2015-01-06 14:21:27 +00:00
parent c1d3fa0cf4
commit 5148d091ff
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/frames/debugger_general_options.pas
View File

@ -62,6 +62,7 @@ type
function GetDebuggerClass: TDebuggerClass;
procedure SetDebuggerClass(const AClass: TDebuggerClass);
procedure ClearDbgProperties;
procedure HookGetCheckboxForBoolean(var Value: Boolean);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -254,11 +255,18 @@ begin
FCurrentDebPropertiesList.Clear;
end;
procedure TDebuggerGeneralOptionsFrame.HookGetCheckboxForBoolean(var Value: Boolean);
begin
Value := EnvironmentOptions.ObjectInspectorOptions.CheckboxForBoolean;
end;
constructor TDebuggerGeneralOptionsFrame.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
// create the PropertyEditorHook (the interface to the properties)
FPropertyEditorHook:=TPropertyEditorHook.Create(Self);
FPropertyEditorHook.AddHandlerGetCheckboxForBoolean(@HookGetCheckboxForBoolean);
FCurrentDebPropertiesList := TStringList.Create;
// create the PropertyGrid
PropertyGrid:=TOIPropertyGrid.CreateWithParams(Self,FPropertyEditorHook