Keep boxup same size in each resulotion

[erezpaz]

Hi

I am using boxup to show a logo in the beginning of my script. If it distort if it run on any other screen with deferent resolution i got since it use relative coordinate 0 to 1000.
Is there a way to keep boxup size same size in any screen resolution? I do not want to use Dialog control since i am doing a lot of background processing and need to keep the box up until i finished it.

Thanks

[td]

The Consolidated WIL Help file BoxBitmap documentation contains a discussion and examples of how to maintain the aspect ratio of a bitmap on monitors of varying  dimensions.   Basically, you need to adjust the virtual coordinates you pass to the BoxBitmap function so that the bitmap's aspect ratio is maintained.   

And there is  no reason why you can't use a WIL dialog, if you choose to do so.  WIL dialogs do not prevent you from performing a lot of background processing while they are displayed.

[td]

A slightly enhanced version of one of the help file examples:

Code (winbatch) Select Expand

; Calculate the box's aspect ratio when converted to
; square pixels.
; Note: since the boxes client area is used for the bitmap
; coordinate space, the title bar height is removed.
; (600 = 800 - 200)
nPxBoxWidth   = (600*WinMetrics(0))/1000.0
nPxBoxHeight  = ((600*WinMetrics(1))/1000.0) - WinMetrics(4)
nBoxAspect    = nPxBoxHeight/nPxBoxWidth

; Convert bitmap size into virtual coordinates
; that maintain the aspect ratio. This is done
; by using the box's aspect ratio to calculate
; the virtual coordinates that correspond to
; square pixels.
nBitWidth      = 628
nBitHeight     = 424
nScalingConst  = 1.6 ; Size it.
nVirtualWidth  = nBitWidth * nBoxAspect * nScalingConst
nVirtualHeight = nBitHeight * nScalingConst

; Create a coordinate string.
nLeft = 2
nTop  = 2
nX    = Int(nLeft+nVirtualWidth)
nY    = Int(nLeft+nVirtualHeight)
strBitmapCoords = nLeft:',':nTop:',':nX:',':nY

nBoxID       = 1
nStretchMode = 3

BoxesUp('200,200,800,800', @NORMAL)     
BoxCaption(nBoxID, "Foobar Bitmap Example")
BoxBitMap(nBoxID, strBitmapCoords, DirScript():'628x424.bmp', nStretchMode)
TimeDelay(5)


[td]

Gilding the lily with more precise bitmap aspect ratio preservation.

Code (winbatch) Select Expand

;; Output is the width and height of the input
;; window's client area.
#DefineFunction GetClientWH(_hWnd, _pnW, _pnH)
   strRect = $"LONG::left;
  LONG::top;
  LONG::right;
  LONG::bottom;$"
   
   hRect = DllStructAlloc(strRect)
   DllCall("user32.dll",  long:"GetClientRect", long:_hWnd, lpstruct:hRect)     
   nLeft = DllStructPeek(hRect, 'left')
   nTop  = DllStructPeek(hRect, 'top')
   nRight = DllStructPeek(hRect, 'right')
   nBottom = DllStructPeek(hRect, 'bottom')
   DllStructFree(hRect)
   
   ; Calculate width and height.
   *_pnW = nRight - nLeft
   *_pnH = nBottom - nTop
   return 1
#EndFunction

; Bitmap dimensions and desired size.
nBitWidth      = 628
nBitHeight     = 424
nScalingConst  = 1.65 ; Sizing factor.

; Bitmap origin in box's client area.
nLeft = 2
nTop  = 2

; Boilerplate parameters
nBoxID       = 1
nStretchMode = 3

BoxesUp('200,200,800,800', @NORMAL)     

; Get aspect ratio of client area in square pixels.
GetClientWH(DllhWnd(''), &nClientW, &nClientH)
nBoxAspect = nClientH/(nClientW*1.0)

; Calculate bitmap width and height preserving its aspect ratio.
nVirtualWidth  = nBitWidth * nBoxAspect * nScalingConst
nVirtualHeight = nBitHeight * nScalingConst
nX    = Int(nLeft+nVirtualWidth)
nY    = Int(nLeft+nVirtualHeight)
strBitmapCoords = nLeft:',':nTop:',':nX:',':nY

BoxCaption(nBoxID, "Foobar Bitmap Example")
BoxBitMap(nBoxID, strBitmapCoords, DirScript():'628x424.bmp', nStretchMode)
TimeDelay(5)

[td]

Another example that fills a box's client area with a bitmap while maintaining the bitmaps aspect ratio and native size.

Code (winbatch) Select Expand

; Bitmap dimensions.
nBitWidth      = 628
nBitHeight     = 424

; Box coordinates
nBoxL = 200
nBoxT = 200
          ;; Assumes title bar and the regular sizing border.
nBoxW = (1000 * (nBitWidth + (WinMetrics(32) * 2)))/WinMetrics(0) + nBoxL
nBoxH = (1000 * (nBitHeight + WinMetrics(4) + (WinMetrics(33) * 2)))/WinMetrics(1) + nBoxT
strCoords = nBoxL:',':nBoxT:',':nBoxW:',':nBoxH

nBoxId = 1
nStretchMode = 3
BoxesUp(strCoords, @NORMAL)
BoxCaption(nBoxID, "Foobar Bitmap Example 3")
BoxBitMap(nBoxId, '0,0,1000,1000', DirScript():'628x424.bmp', nStretchMode)

TimeDelay(5)

[erezpaz]

The last code is perfect! Thanks!

[kdmoyers]

Nice examples here Tony, thanks!