' Rapid-Q by William Yu (c)1999-2000 . ' ================================================================================ ' Upload_il_tuo_script_su_Rapidq.it ' Qsplitter ****** QSPLITTER Component ****** QSplitter sits between a control aligned to one of the edges of the form and the controls that fill up the rest of the client area. It is used to resize the controls at runtime. QSplitter Properties Field Type R/W Default =================== =================== =================== =================== Align INTEGER RW alLeft Align determines how the control aligns within its parent control. Beveled INTEGER RW True Beveled determines whether the splitter looks beveled along the edge that moves. ClientHeight INTEGER RW ClientWidth INTEGER RW Color INTEGER RW Cursor INTEGER RW crHSplit Enabled INTEGER RW True Height INTEGER RW Hint STRING RW Left INTEGER RW MinSize INTEGER RW 30 MinSize is the minimum size, in pixels, of the client area the splitter must leave on the form. Parent QFORM/QPANEL/ W QTABCONTROL ShowHint INTEGER RW False Tag INTEGER RW Top INTEGER RW Visible INTEGER RW True Width INTEGER RW QSplitter Methods Method Type Description Params =================== =================== =================== =================== QSplitter Events Event Type Occurs when... Params =================== =================== =================== =================== OnMoved VOID Splitter Moved 0 QSplitter Examples $INCLUDE "RAPIDQ.INC" CREATE Form AS QFORM Height = 400 Caption = "QSplitter example" Center Visible = 1 '-- Required Visible = 0 '-- trick CREATE Panel AS QPANEL Align = alTop '-- Fill top portion of form Height = 100 Caption = "PANEL" END CREATE CREATE Splitter AS QSPLITTER '-- Note position Align = alTop '-- Fill middle Cursor = crVSplit Height = 10 END CREATE CREATE RichEdit AS QRICHEDIT Align = alClient '-- Fill rest of form AddStrings "RICHEDIT" END CREATE ShowModal END CREATE ' =============================================================================== ' 2003 Holyguard.net - 2007_Abruzzoweb