serial %Library.TMFormClass %Library.TMForm %TMMenuItem %TMButton %TMButton %TMCheckBox %TMImage %TMOpenDialog %Library.String %Library.String %Library.Integer 0 %Library.Integer 0 %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMScrollBox initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal FileName:%String cache 0 %Library.Boolean document literal initvalue:%String cache 0 %Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal FitToWindow:%Boolean cache 0 document literal sbWidth) || (..pOrigHeight>sbHeight) Do . Set Ratio=(sbHeight/..pOrigHeight) . If (Ratio*..pOrigWidth)>sbWidth Do .. Set Ratio=(sbWidth/..pOrigWidth) .. Set CenterWidth=0,CenterHeight=1 . Else Do .. Set CenterWidth=1,CenterHeight=0 . If FitToWindow Do .. Set ..imImage.AutoSize="False" .. Set ..imImage.Height=(..pOrigHeight*Ratio)\1 .. Set ..imImage.Width=(..pOrigWidth*Ratio)\1 .. Set ..imImage.Stretch="True" . Else Do .. Set ..imImage.AutoSize="True" .. Set ..imImage.Height=..pOrigHeight .. Set ..imImage.Width=..pOrigWidth .. Set ..imImage.Stretch="False" .. Set CenterWidth=(..pOrigWidth'>sbWidth) .. Set CenterHeight=(..pOrigHeight'>sbHeight) Else Do . Set (CenterWidth,CenterHeight)=1 . Set ..imImage.Height=..pOrigHeight . Set ..imImage.Width=..pOrigWidth . Set ..imImage.Stretch="False" Set ..imImage.Left=$S(CenterWidth:(sbWidth-..imImage.Width)\2,1:0) Set ..imImage.Top=$S(CenterHeight:(sbHeight-..imImage.Height)\2,1:0) Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form btnClose btnOpen imImage sbImage pOrigHeight pOrigWidth CheckBox1 chkFitToWindow odOpen pFileName pmImage pmiCopyFileName pmiCopyPathAndFileName pOrigCaption MenuItem1 pmiOpen