0 0 serial 0 TGrid MakovaDrawTextCnts STRING 0 Default %Library.TMFormClass 0 %Library.TMBitmap 0 0 0 0 0 0 0 %Library.TMBitmap 0 0 0 0 0 0 0 %Library.TMPrinter 0 0 0 0 0 0 0 %Library.TMForm 0 0 "" 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 %TMStatusBar 0 0 "" 0 0 0 0 0 %Library.Float 0 0 1/10 0 0 0 0 0 %Library.Float 0 0 0 0 0 0 0 %Library.Float 0 0 0 0 0 0 0 %Library.Float 0 0 3/2 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMPaintBox 0 0 "" 0 0 0 0 0 %TMPanel 0 0 "" 0 0 0 0 0 %Library.Integer 0 0 200 0 0 0 0 0 %Library.Integer 0 0 200 0 0 0 0 0 %TMPrinterSetupDialog 0 0 "" 0 0 0 0 0 %TMScrollBox 0 0 "" 0 0 0 0 0 0 0 code initvalue:%String 0 %Status 0 0 0 code 0 %Library.Integer 0 0 0 code 0 %Library.Float 0 0 0 code 0 %Library.Float 0 0 0 code 0 0 ; SimplePanel = False ; end ; object psdChoose: CPrinterSetupDialog ; Left = 355 ; Top = 7 ; end ;end ]]> 0 0 code Args:%String 0 0 0 0 code 0 0 0 0 code initvalue:%String 0 0 0 0 code initvalue:%String 0 %Library.Status 0 0 0 code Value:%Integer 0 %Library.Status 0 ..ZoomMax) $$$OK If (Value/..ZoomStep)<..ZoomMin Do . Set ..btnZoomOut.Enabled="False" Else Do . Set ..btnZoomOut.Enabled="True" If (Value*..ZoomStep>..ZoomMax) Do . Set ..btnZoomIn.Enabled="False" Else Do . Set ..btnZoomIn.Enabled="True" Set i%ZoomFactor=Value Set ..PrintFactor=Value*8 Quit $$$OK ]]> 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Grid:UI.Lib.Ctrl.TGrid 0 0 0 0 code 0 0 ..FPrinter.PageHeight Do . Set ..ZoomMax=3000/..FPrinter.PageWidth . Set ..ZoomMin=100/..FPrinter.PageWidth Else Do . Set ..ZoomMax=3000/..FPrinter.PageHeight . Set ..ZoomMin=100/..FPrinter.PageHeight Set ..FBMPPreview.Canvas.Brush.Color=$$$clWhite Do ..FBMPPreview.Canvas.FillRect($LB(0,0,..FBMPPreview.Width,..FBMPPreview.Height)) Set ..FBMPContents.Canvas.Brush.Color=$$$clWhite Do ..FBMPContents.Canvas.FillRect($LB(0,0,..FBMPContents.Width,..FBMPContents.Height)) Set ..FBMPPreview.Canvas.Brush.Color=$$$clBlack Do ..FBMPPreview.Canvas.FrameRect($LB(0,0,..FBMPPreview.Width,..FBMPPreview.Height)) Set ..pbPreview.Left=0 Set ..pbPreview.Top=0 Set ..pbPreview.Width=..FBMPPreview.Width+50 Set ..pbPreview.Height=..FBMPPreview.Height+50 Do:(..OnDrawPreview'="") MApplication.HandleEvent($LI(..OnDrawPreview,1),$LI(..OnDrawPreview,2),"") Set MApplication.ScreenCursor=$$$crDefault Quit ]]> 0 0 code Args:%String 0 0 %Library.CacheSerialState listnode "%Library.TMFormClass" Address Form pnlNav sbPreview PaintBox1 pbPreview FBMPPreview FPrinter ZoomFactor btnZoomIn btnZoomOut FitPageWidthFactor btnFitPageWidth btnWholePage btnSetupPage psdChoose btnFitPageHeight ZoomMax ZoomMin ZoomStep chkMonochroom OnDrawPreview prLeftBorder prTopBorder FBMPContents PrintFactor pbProgress StatusBar1