diff --git a/docs/xml/lcl/extctrls.xml b/docs/xml/lcl/extctrls.xml index 58b4f67b1a..3560cccd03 100644 --- a/docs/xml/lcl/extctrls.xml +++ b/docs/xml/lcl/extctrls.xml @@ -2242,7 +2242,11 @@ TResizeStyle - enumerated type for style of resizing using splitters - + + rsLine - draw a line, don't update splitter position during moving +rsNone - draw nothing and don't update splitter position during moving +rsPattern - draw a dot pattern, don't update splitter position during moving +rsUpdate - draw nothing, update splitter position during moving diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp index cce9491f75..f028795e75 100644 --- a/lcl/extctrls.pp +++ b/lcl/extctrls.pp @@ -444,7 +444,12 @@ type { TCustomSplitter } - TResizeStyle = (rsLine,rsNone,rsPattern,rsUpdate); + TResizeStyle = ( + rsLine, // draw a line, don't update splitter position during moving + rsNone, // draw nothing and don't update splitter position during moving + rsPattern, // draw a dot pattern, don't update splitter position during moving + rsUpdate // draw nothing, update splitter position during moving + ); TCanResizeEvent = procedure(Sender: TObject; var NewSize: Integer; var Accept: Boolean) of object;