Analog of IsDefaultPropertyValue in Free Pascal.

[dmitryb]

Hi All

What is the analog of Delphi function IsDefaultPropertyValue in Free Pascal?

[Blaazen]

Hi, quick observation:

in objectinspector.pp is nested method

Code: Pascal  [Select][+][-]

1. procedure DrawValue(DrawState: TPropEditDrawState);
2.   var
3.     OldFont: TFont;
4.   begin
5.     if ARow<>ItemIndex then
6.     begin
7.       OldFont:=Canvas.Font;
8.       if CurRow.Editor.ValueIsStreamed then
9.         Canvas.Font:=FValueFont
10.       else
11.         Canvas.Font:=FDefaultValueFont;
12.       CurRow.Editor.PropDrawValue(Canvas,ValueRect,DrawState);
13.       Canvas.Font:=OldFont;
14.     end;
15.     CurRow.LastPaintedValue:=CurRow.Editor.GetVisualValue;
16.   end;

important is method Editor.ValueIsStreamed which decides whether to paint value in OI with clMaroon or clWindowText color.

propedits.pp line 3447:

Code: Pascal  [Select][+][-]

1. function TPropertyEditor.ValueIsStreamed: boolean;
2. begin
3.   if HasStoredFunction then
4.     Result := CallStoredFunction
5.   else
6.     Result := True;
7.   if Result and HasDefaultValue then
8.     Result := GetDefaultValue<>GetVisualValue;
9. end;

I hope it will help you.

[dmitryb]

Thank you.
I see, it is necessary to pull out pieces of code from the TPropertyEditor class.