diff options
| -rw-r--r-- | src/gui/fpg_colorwheel.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gui/fpg_colorwheel.pas b/src/gui/fpg_colorwheel.pas index c2282e95..57494818 100644 --- a/src/gui/fpg_colorwheel.pas +++ b/src/gui/fpg_colorwheel.pas @@ -103,8 +103,8 @@ type property Enabled; property Value: double Read FValue Write SetValue; property SelectedColor: TfpgColor Read GetSelectedColor; - property MarginWidth: longint Read FMarginWidth Write SetMarginWidth; - property CursorHeight: longint Read FCursorHeight Write SetCursorHeight; + property MarginWidth: longint Read FMarginWidth Write SetMarginWidth default 5; + property CursorHeight: longint Read FCursorHeight Write SetCursorHeight default 10; property OnChange: TNotifyEvent Read FOnChange Write FOnChange; end; @@ -506,7 +506,7 @@ begin inherited Create(AOwner); FMarginWidth := 5; FValue := 1.0; - Width := 100; + Width := 80; Height := 100; Name := 'ValueBar'; FCursorHeight := 10; |