how to start the window

ok,, not really maybe understandable routines...
but in sake of those.. who learn by looking at codes from others

(instead of a bunch technical bla bla)

NormalizeWindowR
Routine

DATA


LineHeightPixels        Byte

CurrentYPos             ULong
G                       ULong
LineHeight              ULong
MaxRows                 ULong
ImageWidth              Long
ImageHeight             Long
CurrentRow              Long






Code

LocalQFTree_YPos        = 1
?QFTree{Prop:YPos}      = 1


LocalXPos               = 3
LocalYPos               = CWY[14] + CWH[14]
LocalWidth              = CWX[10] - 3

CWX[3]                  = LocalXPos
CWY[3]                  = LocalYPos
CWW[3]                  = LocalWidth
LocalHeight             = CWY[17] - CWY[3]
If LocalHeight < 100
LocalHeight = 100
End
CWH[TWA]                = LocalHeight

ThisWin{Prop:XPos}      = LocalXPos
ThisWin{Prop:YPos}      = LocalYPos
ThisWin{Prop:Width}     = LocalWidth
ThisWin{Prop:Height}    = LocalHeight

CurrentRow              = 0
ImageWidth              = LocalQFTree_Width
LineHeight              = 16
Get(QFolders,1)
LastLevel# = QFolders:Level
LastIsExp# = QFolders:IsExp
G# = 0
Loop
G# = G# + 1
If G# > Records(QFolders)
Break
End
Get(QFolders,G#)
If LastLevel# < QFolders:Level And LastIsExp# = 0
Cycle
End
CurrentRow = CurrentRow + 1
LastLevel# = QFolders:Level
LastIsExp# = QFolders:IsExp
End
NewImageHeight = (CurrentRow * LineHeight) + (16 * 3)
If NewImageHeight < LocalHeight     !+ (16 * 3)
NewImageHeight = LocalHeight    !+ (16 * 3)
End
LocalScrollBar_Height   = LocalHeight
?QFTree{Prop:XPos}      = 1
If VScrollBar = 0
If ?QFTree{Prop:Width} <> LocalWidth
?QFTree{Prop:Width}     = LocalWidth
LocalQFTree_Width       = LocalWidth
End
Else
If ?QFTree{Prop:Width} <> LocalWidth - 18
?QFTree{Prop:Width} = LocalWidth - 18
LocalQFTree_Width   = LocalWidth - 18
End
End
!QFTreePropHeight
QFTreePropHeight = NewImageHeight
If ?QFTree{Prop:Height} <> QFTreePropHeight !NewImageHeight
?QFTree{Prop:Height} = QFTreePropHeight !NewImageHeight
End
ThumbYPos           = 16
?Thumb{Prop:YPos}   = 16
MDownYPos           = 16
MouseInThumbYPos    = 1
If NewImageHeight =< LocalHeight
?ScrollBar{Prop:Hide}   = 1
?Thumb{Prop:Hide}       = 1
VScrollbar = 0
If ?QFTree{Prop:Width} <> LocalWidth
?QFTree{Prop:Width} = LocalWidth
LocalQFTree_Width = LocalWidth
End
!ThumbYPos = 17
Else
If ?QFTree{Prop:Width} <> LocalWidth - 17
?QFTree{Prop:Width} = LocalWidth - 17
LocalQFTree_Width = LocalWidth - 17
End
If VScrollbar = 0
!ThumbYPos = 17
VScrollbar = 1
End

ThumbHeight             = (LocalScrollBar_Height - 32) /
(NewImageHeight / LocalScrollBar_Height)

?ScrollBar{Prop:XPos}   = LocalQFTree_Width + 1
?ScrollBar{Prop:YPos}   = 0
?ScrollBar{Prop:Height} = LocalScrollBar_Height
?ScrollBar{Prop:Width}  = 16

?Thumb{Prop:XPos}       = LocalQFTree_Width + 1
?Thumb{Prop:YPos}       = ThumbYPos
?Thumb{Prop:Height}     = ThumbHeight
?Thumb{Prop:Width}      = 16

Do PaintScrollBarR
Do PaintScrollBarThumbR

?ScrollBar{Prop:Hide}   = 0
?Thumb{Prop:Hide}       = 0

MoveSpace               = LocalScrollBar_Height -
ThumbHeight - 16

End

ThumbYPos           = 16
?Thumb{Prop:YPos}   = 16
MDownYPos           = 16
MouseInThumbYPos    = MouseY()

TotalVSpanHeight = LocalScrollBar_Height - 32

ThumbUnitPixels = (TotalVSpanHeight / NewImageHeight)

!        QFTreePropYPos          = ?QFTree{Prop:YPos}
!
!        TotalVSpanHeight        = ((LocalScrollBar_Height - 16) -
(ThumbYPos + ThumbHeight)) + (ThumbYPos - 16)
!
!        VScrollPercentagePos    = (100 / (TotalVSpanHeight /
(ThumbYPos-16)))
!
!        NextQFTreePropYPos      = QFTreePropHeight / 100
!
!        ?QFTree{Prop:YPos}      = (((NewImageHeight-LocalHeight)/100)
* VScrollPercentagePos) * -1
!
!        Display(?QFTree)
!