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

docs, lcl: document and comment TResizeStyle

Browse Source 
git-svn-id: trunk@26469 -
This commit is contained in:
paul 2010-07-05 11:36:17 +00:00
parent 60ab9873f3
commit 5256e13804
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
docs/xml/lcl/extctrls.xml
View File

@ -2242,7 +2242,11 @@
<element name="TResizeStyle">
<short>
<var>TResizeStyle</var> - enumerated type for style of resizing using splitters</short>
<descr/>
<descr>
<var>rsLine</var> - draw a line, don't update splitter position during moving
<var>rsNone</var> - draw nothing and don't update splitter position during moving
<var>rsPattern</var> - draw a dot pattern, don't update splitter position during moving
<var>rsUpdate</var> - draw nothing, update splitter position during moving </descr>
<seealso/>
</element>
<!-- enumeration value Visibility: default -->

7
lcl/extctrls.pp
View File

@ -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;