on mouseUp
palette "ResizeTestStack"
end mouseUp
Geometry Manager a 3 Re cREVGeometry Master,expectedRect 51,82,549,406Master,scalebottomDistance -61Master,movevDistance false Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scalerightDistance Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,cardRanking 1Master,scaleBottom trueMaster,scaleleftDistance Master,scaletopDistance cREVGeneral revUniqueID 1120382101025 Geometry Manager p 8on linkClicked pLink revGoUrl pLink end linkClicked 7 V< cREVGeometry Master,expectedRect 55,86,545,402Master,scalebottomDistance -98Master,movevDistance false Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scalerightDistance Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,cardRanking 1Master,scaleBottom trueMaster,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum )֜B3(=@ revUniqueID 1120382125754 bookmarks handlerList linkClicked tempScript prevHandler scriptSelection char 38 to 37scripton linkClicked pLink
revGoUrl pLink
end linkClicked
/Using the Geometry Manager to Set the Geometry . The best way to learn how to use the Geometry Manager is to go to http://www.altuit.com/webs/altuit2/RunRev/VideoTutorials.htm where you will find four nice video tutorials brought to you by Chipp Walters from Altuit. B B < ~ [ 'Nevertheless here are some principles: [To set the geometry of any control, you use the Geometry pane of the properties inspector. 0 0 8 " A control can be positioned or scaled (but not both), in relation to one or more window edges or to one or more another objects. @ 1600 ! ' [ /Geometry by scaling is used mainly for fields. For instance, you can scale a field in relation to the right and bottom edges of the window: when the window will be resized, the field dimensions will increase or decrease according to the new dimensions of the window. OGeometry by position is used mainly for all other controls, label fields, etc. : For instance, you can position a group of buttons in relation to the right and bottom edges of the window: when the window will be resized, the buttons owned by the group will be always positioned at the same place according to the new dimensions of the window. & In both cases, the relation can be: @ 1600 $ 1. Fixed @ 2356 When scaling in the fixed mode, this means for instance that the top and the left of a field will not change and the distance between the right or the bottom of the field and the right or the bottom edge of the window will be invariant. When positionning (buttons, groups, etc.) in the fixed mode, this means that the dimensions of the controls will not change but only their position relative to the card's edges. 2. Proportional @ 2355 2When scaling in the proportional mode, this means for instance that the top and the left of a field will not change and the distance between the right or the bottom of the field and the right or the bottom edge of the window will vary proportionaly according to the current width and height of the window. % fThis mode is useful to scale multiple fields by increasing/decreasing all fields dimensions together. e When positionning (buttons, groups, etc.) in the proportional mode, this means that the dimensions of the controls will not change but only their position relative to the card's edges will vary proportionaly according to the current width and height of the window. ` W : Geometry Manager Epon mouseUp lock screen select btn ID 1036 put "MenuPick Geometry" into tMessage send "revBuildPropertyPalette" to stack "revTemplatePalette" put the defaultStack into tDefaultStack set the defaultStack to line 1 of the windows send tMessage to btn "Section" set the label of btn "Section" to "Geometry" set the menuHistory of btn "Section" to lineOffset("Geometry",btn "Section") unlock screen set the defaultStack to tDefaultStack end mouseUp cREVGeometry Master,expectedRect 230,412,370,435Master,scalebottomDistance Master,movevDistance -77Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,scalerightDistance Master,moveVObjectRef cardMaster,moveVAbsolute trueMaster,cardRanking 1 Master,moveV trueMaster,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum \ |b@F bookmarks revUniqueID 1120484405770 handlerList mouseUpscriptSelection char 46 to 45 prevHandler mouseUp tempScript scripton mouseUp
lock screen
select btn ID 1036
put "MenuPick Geometry" into tMessage
send "revBuildPropertyPalette" to stack "revTemplatePalette"
put the defaultStack into tDefaultStack
set the defaultStack to line 1 of the windows
send tMessage to btn "Section"
set the label of btn "Section" to "Geometry"
set the menuHistory of btn "Section" to lineOffset("Geometry",btn "Section")
unlock screen
set the defaultStack to tDefaultStack
end mouseUp
4 GeometryFixed.jpg @ B JFIF d d Ducky < Adobe d B u &A2r$6 4 ? ,. U¬S ", Oɧ} |SJsH0@ Ð>RɳGȶtrikEbvi6+o+'p w ;t `w4 cREVGeneral revUniqueID 1120384507106 3 GeometryScaled.jpg @ v B T JFIF d d Ducky < Adobe d B !"1A2a#QB$ !1A"Qaq2 ? f>k+x[l{)Ĩ3+*`~l⏲j'Y8c1 x JwܣxMx%am qRXZuon mouseUp
revPrintField the name of field (the hilitedText of btn tabs)
end mouseUp
SSS.png Hon mouseDown revGoUrl "http://www.sosmartsoftware.com" end mouseDown " -PNG IHDR " . pHYs .# .#x?v 9iCCPPhotoshop ICC profile xڝwTTϽwz0z.0. Qf Ml@DEHb!(`HPb0dFJ|yyǽgs{. $O ./ 'z8WGб x 0Y驾A@$/7z HeOOҬT _lN:K"N3"$F/JPrb[䥟}Qd [Sl1x{#bG\NoX3I[ql2 $ 8xtr p/8 pCfq.Knjm͠{r28?.)ɩL^6 g,qm"[Z[Z~Q7%" 3R `̊j[~ : w! $E}kyhyRm333 : }=#vʉe tqX)I)B>== <8Xȉ9on mouseDown
revGoUrl "http://www.sosmartsoftware.com"
end mouseDown
Scripting a 3 Re cREVGeometry Master,movevDistance falseMaster,scalebottomDistance -94Master,expectedRect 51,82,549,406 Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1120467059925 Scripting )p 7on linkClicked pLink revGoUrl pLink end linkClicked @ 7 V< cREVGeometry Master,movevDistance falseMaster,scalebottomDistance -98Master,expectedRect 55,86,545,402 Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum xg-"ů handlerList linkClicked breakPoints scriptSelection char 54 to 53 bookmarks revUniqueID 1120467061145 prevHandler linkClicked tempScript scripton linkClicked pLink
revGoUrl pLink
end linkClicked
$Using Scripting to Set the Geometry # |Even if the Geometry Manager makes geometry settings easy, all what it does can be done by scripting with more reliability. |In most cases, the geometry features you will need are simple: positionning a set of buttons and/or scaling a field or two. ^Fot these simple purposes, you will have a better control by scripting the geometry features. # Trapping the resizeStack message @ 1600 ^When the stack window is resized, the engine sends a resizeStack message to the current card. glossary/stack_window.xml 5 @ ySo you can write a resizeStack handler to set the geometry according to the 4 parameters which are passed by the engine: Z - new width - new height - old width - old height @ black end resizeStack @ brown How to position a control? @ 1600 There are many ways relating to any coordonate of the control position: top, bottom, left or right (using the loc does not appear handy for this purpose). 1But right and bottom appear the more convenient. For instance: $on resizeStack pNewWidth,pNewHeight @ brown @ black 6 set the right of grp "My Buttons" to pNewWidth - 20 @ black @ blue @ red % ; -- 20 pixels from the new right edge of the stack window @ hh"" DarkOrchid4 8 8 set the bottom of grp "My Buttons" to pNewHeight - 30 @ black @ blue @ red & < -- 30 pixels from the new bottom edge of the stack window @ hh"" DarkOrchid4 9 end resizeStack @ brown Or with a one-liner: M set the bottomRight of grp "My Buttons" to pNewWidth - 20, pNewHeight - 30 @ @ & @ ; < How to scale a control? @ 1600 @To resize a control you will calculate its new rect and set it: / / 3 $on resizeStack pNewWidth,pNewHeight @ brown @ black local tRect @ black @ blue ----- @ hh"" DarkOrchid4 , put the rect of fld "My Field" into tRect @ black @ blue @ red , put (pNewWidth - 20) into item 3 of tRect @ blue @ black @ black ; -- 20 pixels from the new right edge of the stack window @ hh"" DarkOrchid4 @ hh"" DarkOrchid4 5 - put (pNewHeight - 30) into item 4 of tRect @ blue @ black @ black < -- 30 pixels from the new bottom edge of the stack window @ hh"" DarkOrchid4 9 + set the rect of fld "My Field" to tRect @ blue @ red end resizeStack @ brown =Note that the top and the left of the field are not changed. Going further @ 1600 Once you have got the idea, you can script very complex geometry features, scaling objects, positioning them in relation to the others or scripting proportional features. ` W : Script Example Ep 5on mouseUp edit script of btn ID 1036 end mouseUp cREVGeometry Master,expectedRect 230,412,370,435Master,scalebottomDistance Master,movevDistance -77Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,scalerightDistance Master,moveVObjectRef cardMaster,moveVAbsolute trueMaster,cardRanking 1 Master,moveV trueMaster,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum h7i* bookmarks revUniqueID 1120485972618 handlerList mouseUpscriptSelection char 41 to 40 prevHandler mouseUp tempScript scripton mouseUp
edit script of btn ID 1036
end mouseUp
Tips and Tricks a 4 Re cREVGeometry Master,movevDistance falseMaster,scalebottomDistance -61Master,expectedRect 51,82,549,406 Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1120467127702 Tips and Tricks )p 8on linkClicked pLink revGoUrl pLink end linkClicked @ 8 V< cREVGeometry Master,movevDistance falseMaster,scalebottomDistance -98Master,expectedRect 55,86,545,402 Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum )֜B3(=@ bookmarks revUniqueID 1120467129536 handlerList linkClickedscriptSelection char 38 to 37 prevHandler tempScript scripton linkClicked pLink
revGoUrl pLink
end linkClicked
Tips and Tricks #Is setting groups geometry useful? " 9Why, when scaling, an object owned by a group disappear? 8 How to force a geometry update? ?Have I to lock the screen when setting the geometry by script? > PWhat can I do when all geometry settings seem to have been completely garbaged? O @How to allow window resizing when the stack has no decorations? ? EMay I combine geometry set by script and using the Geometry Manager? D +How to set the relative width of 2 fields? * % Is setting groups geometry useful? @ 1600 " Yes. Imagine you have a set of butttons you want to position: it's easier to group them and set the group geometry instead of setting the geometry for each object. ; Why, when scaling, an object owned by a group disappear? @ 1600 8 You set the geometry for each object in the group but not for the group itself. So the group is not resized and some objects can be placed out of the group boundaries. " How to force a geometry update? @ 1600 If you have scripted a resizeStack handler to set the objects geometry, you can force a geometry update by sending the resizeStack message. " U w If you have used the Geometry Manager to set objects geometry, you can force a geometry update by using the revUpdateGeometry command. l l } hFor instance you will find below the complete script of a stack resizer button which uses this command: local lMoving, lDistance @ blue ------------------------------ @ hh"" DarkOrchid4 on mouseDown @ brown put true into lMoving @ blue @ put the right of this stack - item 1 of the screenMouseloc, \ @ blue @ red @ red . @ black < = M the bottom of this stack - item 2 of the screenMouseLoc into lDistance @ red @ red / = end mouseDown @ brown ------------------------------ @ hh"" DarkOrchid4 on mouseUp @ brown put false into lMoving @ blue end mouseUp @ brown ------------------------------ @ hh"" DarkOrchid4 on mouseRelease @ brown put false into lMoving @ blue end mouseRelease @ brown ------------------------------ @ hh"" DarkOrchid4 on mouseMove @ brown local tRect @ blue ----- @ hh"" DarkOrchid4 if lMoving then @ brown @ brown T put item 1 to 2 of the rect of this stack,item 1 of the screenMouseloc+item 1 \ @ blue @ red @ red < J Q of lDistance,item 2 of the screenMouseloc+item 2 of lDistance into tRect # @ red # 1 R if item 3 of tRect < (the minWidth of this stack+the left of this stack) then @ brown @ red & @ red 9 = @ brown M S put (the minWidth of this stack+the left of this stack) into item 3 of tRect @ blue @ red @ red * . $ end if @ brown @ brown R if item 4 of tRect < (the minHeight of this stack+the top of this stack) then @ brown @ red ' @ red : = @ brown M S put (the minHeight of this stack+the top of this stack) into item 4 of tRect @ blue @ red @ red + . $ end if @ brown @ brown R if item 3 of tRect > (the maxWidth of this stack+the left of this stack) then @ brown @ red & @ red 9 = @ brown M S put (the maxWidth of this stack+the left of this stack) into item 3 of tRect @ blue @ red @ red * . $ end if @ brown @ brown R if item 4 of tRect > (the maxHeight of this stack+the top of this stack) then @ brown @ red ' @ red : = @ brown M S put (the maxHeight of this stack+the top of this stack) into item 4 of tRect @ blue @ red @ red + . $ end if @ brown @ brown lock screen @ blue ( set the rect of this stack to tRect @ blue @ red Z set the bottomRight of me to the width of this stack - 3,the height of this stack - 3 @ blue @ red @ darkorange @ red % * @ black < = @ red A G revUpdateGeometry unlock screen @ blue end if @ brown @ brown end mouseMove @ brown Note that this script assumes that all objects geometry have been set using the Geometry Manager except.. the resizer button itself. GDisplay an example stack by clicking on the "Scripted Resizer" button. F A Have I to lock the screen when setting the geometry by script? @ 1600 > #No, the engine does it for you :-) s What can I do when all geometry settings (set using the Geometry Manager) seem to have been completely garbaged? @ 1600 p Sometimes, all of a sudden, you resize a window where all objects geometry have been set using the Geometry Manager and... some objects (all) move to wrong locations, appear with bad dimensions, disappear from the card window boundaries, etc. and you are very, very worried :-( [Chipp Walters gives some cluses, using the revCacheGeometry command at the end of the page + + ; =http://www.altuit.com/webs/altuit2/RunRev/VideoTutorials.htm < bBut more often, as you have resized the window first or displayed another card, it does not work. >Then the only solution is to start geometry settings again... oIn order to clear all geometry settings in all objects in the current card, you can use the following handler: on ClearGeometry @ brown local tCount,tCustomPropSets @ blue @ black ----- @ hh"" DarkOrchid4 3 repeat with tCount = 1 to the number of controls @ brown @ brown @ red & 3 put the customPropertySets of control tCount \ @ blue @ red into tCustomPropSets = delete line lineOffset("cREVGeometry",tCustomPropSets) \ @ blue @ darkorange @ black : of tCustomPropSets D set the customPropertySets of control tCount to tCustomPropSets @ blue @ red % end repeat @ brown @ brown end ClearGeometry @ brown B How to allow window resizing when the stack has no decorations? @ 1600 ? aIf you set a stack decorations to empty, neither the titlebar nor the resizer will be displayed. VIf you need the window to be resized, you have to script a resizer button: see above. GDisplay an example stack by clicking on the "Scripted Resizer" button. F T May I combine geometry set by script and geometry set using the Geometry Manager? @ 1600 Q Yes. QAnd that is often useful to add some "cosmetic" enhancements like the following: cYou scale a field and want to show or hide its vertical scrollbar according to its new dimensions: on resizeStack @ brown < revUpdateGeometry -- lets the Geometry Manager do its job @ black @ hh"" DarkOrchid4 ' . SetVScrollBar the long ID of fld "My field" @ red ) -- show or hide a scrollbar: see below @ hh"" DarkOrchid4 & end resizeStack @ brown .--------------------------------------------- @ hh"" - on SetVScrollBar pFld @ brown Q set the vScrollbar of pFld to the formattedHeight of pFld > the height of pFld @ blue @ red @ red $ 3 @ red B H end SetVScrollBar @ - How to set the relative width of 2 fields? @ 1600 * JDisplay an example stack by clicking on the "Two Fields Together" button. I I Some geometry effects can't be obtained by using the Geometry Manager (they may occur without having to resize the stack window) but can be scripted easily. KFor instance, you want to set the relative width of 2 fields between them. J wThen the user, according to the contents, will be able to set the width of both fields together to suit his/her needs. v DYou will find below the complete script of a "Move Columns" button: - - B local lAllowDrag @ blue *----------------------------------------- @ hh"" ) on mouseEnter @ 1 set the cursor to 202805 -- move column cursor @ blue @ red @ hh"" DarkOrchid4 lock cursor @ @ end mouseEnter @ *----------------------------------------- @ hh"" ) on mouseLeave @ unlock cursor @ @ end mouseLeave @ *----------------------------------------- @ hh"" ) on mouseDown @ put true into lAllowDrag @ end mouseDown @ brown *----------------------------------------- @ hh"" ) on mouseUp @ put false into lAllowDrag @ end mouseUp @ brown *----------------------------------------- @ hh"" ) on mouseRelease @ mouseUp -- @ hh"" DarkOrchid4 @ hh"" DarkOrchid4 end mouseRelease @ *----------------------------------------- @ hh"" ) on mouseMove x,y @ @ > local tLeftFldName,tRightFldName,tLeftFldRect,tRightFldRect @ @ @ ) ----- @ @ hh"" ( if not lAllowDrag then exit mousemove @ @ @ ----- @ hh"" + put the uLeftFld of me into tLeftFldName @ hh"" @ @ hh"" @ hh"" @ hh"" @ hh"" @ @ hh"" @ hh"" - put the uRightFld of me into tRightFldName @ @ C if (x < the left of fld tLeftFldName + the uMinWidth of me) or \ @ @ brown @ black @ red @ ' @ darkorange : @ black < = S (x > the left of fld tLeftFldName + the uMaxWidth of me) then exit mousemove @ black @ red @ ' @ darkorange ; @ black = > @ brown ? C @ blue D H ----- @ hh"" 5 put the rect of fld tLeftFldName into tLeftFldRect @ @ & 7 put the rect of fld tRightFldName into tRightFldRect @ @ ( ----- @ hh"" J put (x - (the uSpaceBetweenFlds of me / 2)) into item 3 of tLeftFldRect @ @ @ @ @ % ( @ + - K put (x + (the uSpaceBetweenFlds of me / 2)) into item 1 of tRightFldRect @ @ @ @ @ % ( @ + - ----- @ hh"" lock screen @ 3 set the rect of fld tLeftFldName to tLeftFldRect @ blue @ red $ 5 set the rect of fld tRightFldName to tRightFldRect @ @ & 2 set the loc of me to x, item 2 of the loc of me @ @ blue @ red @ darkorange @ black @ red ( + @ darkorange / unlock screen @ blue end mouseMove @ =Note that the "Move Columns" button has 5 custom properties: < -- uLeftFld: the short name of the left field , /- uRightFld: the short name of the right field . /- uMinWidth: the minimum width for both fields . /- uMaxWidth: the maximum width for both fields . >- uSpaceBetweenFlds : the space between both fields in pixels = ` W : Scripted Resizer Ep 7on mouseUp topLevel stack "ResizerOnly" end mouseUp cREVGeometry Master,movevDistance -77Master,scalebottomDistance Master,expectedRect 163,412,293,435Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum N8WAh bookmarks revUniqueID 1120473820291 handlerList mouseUpscriptSelection char 22 to 21 prevHandler mouseUp tempScript scripton mouseUp
topLevel stack "ResizerOnly"
end mouseUp
Two Fields Together Ep 5on mouseUp toplevel stack "TwoFields" end mouseUp 1 cREVGeometry Master,movevDistance -77Master,scalebottomDistance Master,expectedRect 305,412,435,435Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum D0:Ն@Pp revUniqueID 1120474683501 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 22 to 21scripton mouseUp
toplevel stack "TwoFields"
end mouseUp
$ Resize Alu.png @ 0 xPNG IHDR ;֕J pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb?9?@ ͛7d`.]@L $ {ax˗ ,Y 4^xe D˗/ Bʕ+WX 2 ҈T`@_t)@x5^zF d#@8aɒ%(6.^@8r hddv8 _j@x4BJlذņuu@ F"o"R IENDB` cREVGeneral revUniqueID 1120474869454 Button Ex ## This script does not make sense by itself: ## I extracted it from my Rev Encoded Text Picker plugin ## only to show that you can set numerous and various statements ## inside a resizeStack handler on resizeStack pNewHeight,pNewWidth local tRect,tLoc ----- set the right of img "TitleBarRight.png" to pNewHeight ----- put the rect of img "TitleBarMain.png" into tRect put pNewHeight into item 3 of tRect set the rect of img "TitleBarMain.png" to tRect ----- put the rect of img "AluBg.png" into tRect put pNewHeight into item 3 of tRect set the rect of img "AluBg.png" to tRect ----- set the loc of grp "Tabs" to pNewWidth / 2,item 2 of the loc of grp "Tabs" ----- put the rect of fld "input" into tRect put (pNewHeight - 2) into item 3 of tRect put (pNewWidth - 22) into item 4 of tRect set the rect of fld "input" to tRect set the vScrollBar of fld "input" to \ the formattedHeight of fld "input" > the height of fld "input" if the dontWrap of fld "Input" then set the hScrollBar of fld "input" to \ the formattedWidth of fld "input" > the width of fld "input" end if ----- put the loc of fld "Title" into tLoc put pNewHeight / 2 into item 1 of tLoc set the loc of fld "Title" to tLoc ----- set the right of grp "Copy" to the right of grp "Tabs" + 1 set the right of grp "Help" to pNewHeight - 10 ----- set the bottom of grp "Replace" to pNewWidth + 6 ----- put the rect of img "AluBgBottom.png" into tRect put pNewHeight into item 3 of tRect set the rect of img "AluBgBottom.png" to tRect set the bottom of img "AluBgBottom.png" to pNewWidth set the top of grc "Line" to pNewWidth - 1 ----- set the bottomRight of btn "Resizer" to pNewHeight - 3, pNewWidth - 3 end resizeStack 6 R cREVGeneral scriptChecksum mj̱#!+^ revUniqueID 1120484445070 bookmarks handlerList resizeStack tempScript prevHandler resizeStackscriptSelection char 201 to 200script## This script does not make sense by itself:
## I extracted it from my Rev Encoded Text Picker plugin
## only to show that you can set numerous and various statements
## inside a resizeStack handler
on resizeStack pNewHeight,pNewWidth
local tRect,tLoc
-----
set the right of img "TitleBarRight.png" to pNewHeight
-----
put the rect of img "TitleBarMain.png" into tRect
put pNewHeight into item 3 of tRect
set the rect of img "TitleBarMain.png" to tRect
-----
put the rect of img "AluBg.png" into tRect
put pNewHeight into item 3 of tRect
set the rect of img "AluBg.png" to tRect
-----
set the loc of grp "Tabs" to pNewWidth / 2,item 2 of the loc of grp "Tabs"
-----
put the rect of fld "input" into tRect
put (pNewHeight - 2) into item 3 of tRect
put (pNewWidth - 22) into item 4 of tRect
set the rect of fld "input" to tRect
set the vScrollBar of fld "input" to \
the formattedHeight of fld "input" > the height of fld "input"
if the dontWrap of fld "Input" then
set the hScrollBar of fld "input" to \
the formattedWidth of fld "input" > the width of fld "input"
end if
-----
put the loc of fld "Title" into tLoc
put pNewHeight / 2 into item 1 of tLoc
set the loc of fld "Title" to tLoc
-----
set the right of grp "Copy" to the right of grp "Tabs" + 1
set the right of grp "Help" to pNewHeight - 10
-----
set the bottom of grp "Replace" to pNewWidth + 6
-----
put the rect of img "AluBgBottom.png" into tRect
put pNewHeight into item 3 of tRect
set the rect of img "AluBgBottom.png" to tRect
set the bottom of img "AluBgBottom.png" to pNewWidth
set the top of grc "Line" to pNewWidth - 1
-----
set the bottomRight of btn "Resizer" to pNewHeight - 3, pNewWidth - 3
end resizeStack
ResizeTestStack 3 |9\ Test Stack 9 9 U Lucida Grande W Lucida Grande cREVGeometryCache stackID 1012 P qon preOpenStack set the loc of this stack to the loc of stack (the mainStack of this stack) end preOpenStack 9\ cREVGeneral scriptChecksum yu bookmarks handlerList preOpenStack tempScript prevHandler scriptSelection char 94 to 93script {on preOpenStack
set the loc of this stack to the loc of stack (the mainStack of this stack)
end preOpenStack
cREVGeometryCacheIDs 1120385714090 10041120385730416 10071120463327956 1012 cREVGeometrycache total 3order 1120385714090 Test ` 9 ScaleProp Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottom Master,scaleBottomscaleBottom trueMaster,movehDistance -0.488818 Master,scaleRightscaleBottom trueMaster true Master,scaleBottomObjectRef cardMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute falseMaster,moveVAbsolute falseMaster,scaleBottom true Master,moveV falseMaster,movevDistance -0.4Master,scalebottomDistance -0.173333Master,expectedRect 32,57,288,124Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight trueMaster,scalerightDistance -0.079872 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance Master,moveHAbsolute false Master,moveH false ScaleFix Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottom Master,scaleBottomscaleBottom trueMaster,movehDistance -0.488818 Master,scaleRightscaleBottom trueMaster true Master,scaleBottomObjectRef cardMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute trueMaster,moveVAbsolute falseMaster,scaleBottom true Master,moveV falseMaster,movevDistance -0.4Master,scalebottomDistance -26Master,expectedRect 32,57,288,124Master,moveHObjectSide rightMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -25 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance Master,moveHAbsolute false Master,moveH false PosFix Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottom Master,scaleBottomscaleBottom trueMaster,movehDistance -153 Master,scaleRightscaleBottom trueMaster true Master,scaleBottomObjectRef cardMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute falseMaster,moveVAbsolute trueMaster,scaleBottom false Master,moveV trueMaster,movevDistance -60Master,scalebottomDistance -0.173333Master,expectedRect 32,57,288,124Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.079872 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance Master,moveHAbsolute true Master,moveH true PosProp Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottom Master,scaleBottomscaleBottom trueMaster,movehDistance -0.488818 Master,scaleRightscaleBottom trueMaster true Master,scaleBottomObjectRef cardMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute falseMaster,moveVAbsolute falseMaster,scaleBottom false Master,moveV trueMaster,movevDistance -0.4Master,scalebottomDistance -0.173333Master,expectedRect 32,57,288,124Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.079872 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance Master,moveHAbsolute false Master,moveH true cREVGeometry Master,moveVObjectSide bottom Master,scaleBottomObjectSide BottomMaster,movehDistance -0.488818 Master,scaleBottomscaleBottom true Master,scaleRightscaleBottom trueMaster trueMaster,moveVObjectRef card Master,scaleBottomObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute falseMaster,scaleBottomAbsolute true Master,moveV falseMaster,scaleBottom trueMaster,expectedRect 32,57,288,124Master,scalebottomDistance -26Master,movevDistance -0.4Master,moveHObjectSide rightMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -25Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,moveHAbsolute falseMaster,scaleleftDistance Master,scaletopDistance Master,moveH false cREVGeneral revUniqueID 1120385714090 @ 2356 Resize this window ` : Option Menu uon menuPick pItem local tRect,tImg,tPrompt ----- put the rect of this stack into tRect put item 1 of tRect + the minWidth of this stack into item 3 of tRect put item 2 of tRect + the minHeight of this stack into item 4 of tRect set the rect of this stack to tRect ----- switch lineOffset(pItem,me) case 1 put "" & cr & "Resize this window
" into tPrompt set the htmlText of fld "Test" to tImg & tPrompt end menuPick { Scale Only DPosition Only Position Proportionaly Scale Only Scale Proportionaly cREVGeneral scriptChecksum tJM9=!D@4B revUniqueID 1120385730416 bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 276 to 275script zon menuPick pItem
local tRect,tImg,tPrompt
-----
put the rect of this stack into tRect
put item 1 of tRect + the minWidth of this stack into item 3 of tRect
put item 2 of tRect + the minHeight of this stack into item 4 of tRect
set the rect of this stack to tRect
-----
switch lineOffset(pItem,me)
case 1
put "<p></p>" & cr & "<p><img src=" & quote & "2356" & quote & "></p>" into tImg
set the customProperties["cRevGeometry"] of fld "Test" to the customProperties["PosFix"] of fld "Test"
break
case 2
put "<p></p>" & cr & "<p><img src=" & quote & "2355" & quote & "></p>" into tImg
set the customProperties["cRevGeometry"] of fld "Test" to the customProperties["PosProp"] of fld "Test"
break
case 3
put "<p></p>" & cr & "<p><img src=" & quote & "2356" & quote & "></p>" into tImg
set the customProperties["cRevGeometry"] of fld "Test" to the customProperties["ScaleFix"] of fld "Test"
break
case 4
put "<p></p>" & cr & "<p><img src=" & quote & "2355" & quote & "></p>" into tImg
set the customProperties["cRevGeometry"] of fld "Test" to the customProperties["ScaleProp"] of fld "Test"
end switch
put "<p><b>Resize this window</b></p>" into tPrompt
set the htmlText of fld "Test" to tImg & tPrompt
end menuPick
Label Field d cREVGeneral revUniqueID 1120463327956 Resizing Style: TwoFields 3 m+C )Two Fields Together in a Resizable Stack T x cREVGeometryCache stackID 1008 P qon preOpenStack set the loc of this stack to the loc of stack (the mainStack of this stack) end preOpenStack C cREVGeneral scriptChecksum yu bookmarks handlerList preOpenStackscriptSelection char 94 to 93 prevHandler preOpenStack tempScript script {on preOpenStack
set the loc of this stack to the loc of stack (the mainStack of this stack)
end preOpenStack
cREVGeometryCacheIDs 1120472408743 10061129975892132 10081120472655047 12881120472334217 10051120472204277 1004 cREVGeometrycache total 5order *1120472334217 1120472204277 1120472408743 Left ` b cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance -0.841014 Master,scaleRightscaleBottom trueMaster true Master,scaleBottomObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 21,20,119,100Master,scalebottomDistance -22Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.730415Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,moveHAbsolute falseMaster,scaleleftDistance Master,scaletopDistance Master,moveH false cREVGeneral revUniqueID 1120472204277 Right ` cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -22Master,expectedRect 125,20,394,224Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -20Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1120472334217 ResizeFields B local lAllowDrag,lHilitedLine ----------------------------------------- on mouseEnter set cursor to 1008 -- move column cursor lock cursor end mouseEnter ----------------------------------------- on mouseLeave unlock cursor end mouseLeave ----------------------------------------- on mouseDown put true into lAllowDrag put the hilitedLine of fld (the the uLeftFld of me) into lHilitedLine end mouseDown ----------------------------------------- on mouseUp put false into lAllowDrag set the hilitedLine of fld (the the uLeftFld of me) to lHilitedLine end mouseUp ----------------------------------------- on mouseRelease mouseUp end mouseRelease ----------------------------------------- on mouseMove x,y local tLeftFldName,tRightFldName,tLeftFldRect,tRightFldRect ----- if not lAllowDrag then exit mousemove ----- put the uLeftFld of me into tLeftFldName put the uRightFld of me into tRightFldName if (x < the left of fld tLeftFldName + the uMinWidth of me) or (x > the left of fld tLeftFldName + the uMaxWidth of me) then exit mousemove ----- put the rect of fld tLeftFldName into tLeftFldRect put the rect of fld tRightFldName into tRightFldRect ----- put (x - (the uSpaceBetweenFlds of me / 2)) into item 3 of tLeftFldRect put (x + (the uSpaceBetweenFlds of me / 2)) into item 1 of tRightFldRect ----- lock screen set the rect of fld tLeftFldName to tLeftFldRect set the rect of fld tRightFldName to tRightFldRect set the loc of me to x, item 2 of the loc of me unlock screen end mouseMove @ v uRightFld Right uMinWidth 100 uMaxWidth 260uSpaceBetweenFlds 8 uLeftFld Left cREVGeometry Master,movevDistance falseMaster,scalebottomDistance -22Master,expectedRect 116,20,126,224 Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum zsl eDZӚb breakPoints handlerList >mouseEnter mouseLeave mouseDown mouseUp mouseRelease mouseMovescriptSelection char 107 to 106 bookmarks revUniqueID 1120472408743 prevHandler mouseDown tempScript scriptlocal lAllowDrag,lHilitedLine
-----------------------------------------
on mouseEnter
set cursor to 1008 -- move column cursor
lock cursor
end mouseEnter
-----------------------------------------
on mouseLeave
unlock cursor
end mouseLeave
-----------------------------------------
on mouseDown
put true into lAllowDrag
put the hilitedLine of fld (the the uLeftFld of me) into lHilitedLine
end mouseDown
-----------------------------------------
on mouseUp
put false into lAllowDrag
set the hilitedLine of fld (the the uLeftFld of me) to lHilitedLine
end mouseUp
-----------------------------------------
on mouseRelease
mouseUp
end mouseRelease
-----------------------------------------
on mouseMove x,y
local tLeftFldName,tRightFldName,tLeftFldRect,tRightFldRect
-----
if not lAllowDrag then exit mousemove
-----
put the uLeftFld of me into tLeftFldName
put the uRightFld of me into tRightFldName
if (x < the left of fld tLeftFldName + the uMinWidth of me) or (x > the left of fld tLeftFldName + the uMaxWidth of me) then exit mousemove
-----
put the rect of fld tLeftFldName into tLeftFldRect
put the rect of fld tRightFldName into tRightFldRect
-----
put (x - (the uSpaceBetweenFlds of me / 2)) into item 3 of tLeftFldRect
put (x + (the uSpaceBetweenFlds of me / 2)) into item 1 of tRightFldRect
-----
lock screen
set the rect of fld tLeftFldName to tLeftFldRect
set the rect of fld tRightFldName to tRightFldRect
set the loc of me to x, item 2 of the loc of me
unlock screen
end mouseMove
Petit rond entre champs.png @ PNG IHDR o& pHYs gAMA |Q cHRM z% u0 ` : o_F wIDATxb\r{2ڵݝٙ EEE.^ ($3 ?~0 HKKcScxÑ#G aÆ @4@L ?bǏ@| x5AN IENDB` cREVGeneral revUniqueID 1120472655047 move column D 81 H 1 1 H 1 1 cREVGeneral revUniqueID 1129975892132 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script ResizerOnly 1 cREVGeometryCache stackID 1005 P pon preOpenStack set the loc of this stack to the loc of stack (the mainStack of this stack) end preOpenStack cREVGeneral scriptChecksum ,xo1Z s bookmarks handlerList preOpenStackscriptSelection char 111 to 110 prevHandler tempScript script kon preOpenStack
set the loc of this stack to the loc of stack (the mainStack of this stack)
end preOpenStack
cREVGeometryCacheIDs 1108038189799 10031120474510071 1005 cREVGeometrycache total 2order 1108038189799 1120474510071 Resizer *Blocal lMoving,lDistance ------------------------------------- on mouseDown put true into lMoving put the right of this stack - item 1 of the screenMouseloc,the bottom of this stack - item 2 of the screenMouseLoc into lDistance end mouseDown ------------------------------------- on mouseUp put false into lMoving unlock cursor end mouseUp ------------------------------------- on mouseRelease put false into lMoving unlock Cursor end mouseRelease ------------------------------------- on mouseMove if lMoving then put item 1 to 2 of the rect of this stack,item 1 of the screenMouseloc+item 1 of lDistance,item 2 of the screenMouseloc+item 2 of lDistance into tRect if item 3 of tRect < (the minWidth of this stack+the left of this stack) then put (the minWidth of this stack+the left of this stack) into item 3 of tRect if item 4 of tRect < (the minHeight of this stack+the top of this stack) then put (the minHeight of this stack+the top of this stack) into item 4 of tRect if item 3 of tRect > (the maxWidth of this stack+the left of this stack) then put (the maxWidth of this stack+the left of this stack) into item 3 of tRect if item 4 of tRect > (the maxHeight of this stack+the top of this stack) then put (the maxHeight of this stack+the top of this stack) into item 4 of tRect lock screen set the rect of this stack to tRect set the bottomRight of me to the width of this stack - 3, the height of this stack - 3 unlock screen end if end mouseMove Resize this window $ cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -10Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -9Master,scalebottomDistance Master,expectedRect 507,482,522,497Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum \x9FaS revUniqueID 1108038189799 bookmarks handlerList (mouseDown mouseUp mouseRelease mouseMove tempScript prevHandler mouseDownscriptSelection char 1376 to 1476scriptlocal lMoving,lDistance
-------------------------------------
on mouseDown
put true into lMoving
put the right of this stack - item 1 of the screenMouseloc,the bottom of this stack - item 2 of the screenMouseLoc into lDistance
end mouseDown
-------------------------------------
on mouseUp
put false into lMoving
unlock cursor
end mouseUp
-------------------------------------
on mouseRelease
put false into lMoving
unlock Cursor
end mouseRelease
-------------------------------------
on mouseMove
if lMoving then
put item 1 to 2 of the rect of this stack,item 1 of the screenMouseloc+item 1 of lDistance,item 2 of the screenMouseloc+item 2 of lDistance into tRect
if item 3 of tRect < (the minWidth of this stack+the left of this stack) then put (the minWidth of this stack+the left of this stack) into item 3 of tRect
if item 4 of tRect < (the minHeight of this stack+the top of this stack) then put (the minHeight of this stack+the top of this stack) into item 4 of tRect
if item 3 of tRect > (the maxWidth of this stack+the left of this stack) then put (the maxWidth of this stack+the left of this stack) into item 3 of tRect
if item 4 of tRect > (the maxHeight of this stack+the top of this stack) then put (the maxHeight of this stack+the top of this stack) into item 4 of tRect
lock screen
set the rect of this stack to tRect
set the bottomRight of me to the width of this stack - 3, the height of this stack - 3
unlock screen
end if
end mouseMove
Close Ep +on mouseUp close this stack end mouseUp X H R cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -0.5Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute false Master,moveV trueMaster,movevDistance -0.5Master,scalebottomDistance Master,expectedRect 151,171,233,194Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute falseMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum e0e-+ Pb bookmarks revUniqueID 1120474510071 handlerList mouseUpscriptSelection char 30 to 29 prevHandler tempScript scripton mouseUp
close this stack
end mouseUp