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

IDE: Don't allow editing Boolean ComboBoxes in Object-Inspector. Issue #23018

Browse Source 
git-svn-id: trunk@38913 -
This commit is contained in:
juha 2012-09-29 21:37:26 +00:00
parent e08a18840b
commit 44ef110df0
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/propedits.pp
View File

@ -446,6 +446,7 @@ type
TBoolPropertyEditor = class(TEnumPropertyEditor)
public
function OrdValueToVisualValue(OrdValue: longint): string; override;
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
procedure SetValue(const NewValue: ansistring); override;
{$IFDEF UseOICheckBox}
@ -2274,7 +2275,7 @@ begin
Result:=True;
end;
function TPropertyEditor.GetAttributes:TPropertyAttributes;
function TPropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result:=[paMultiSelect,paRevertable];
end;
@ -3084,6 +3085,11 @@ begin
Result := 'True';
end;
function TBoolPropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result:= Inherited GetAttributes + [paPickList];
end;
procedure TBoolPropertyEditor.GetValues(Proc: TGetStrProc);
begin
Proc('False');