Hi DAW
Would DAW consider modifying the LoadThumbnail procedure to make it more modular to allow developers to have custom sizing for thumbnails ?
Basically, changing it to:
Code:
// Thumbnail_Dimensions allows developers to overwrite/augment thumbnail sizing
Procedure Thumbnail_Dimensions Integer ByRef iImageWidth Integer ByRef iImageHeight
Decimal decThumbnailFactor
Handle hoImage
Get phoImage to hoImage
If (hoImage <> 0) Begin
Get ImageWidth of hoImage to iImageWidth
Get ImageHeight of hoImage to iImageHeight
Get pdecThumbnailFactor to decThumbnailFactor
Move (iImageWidth * decThumbnailFactor) to iImageWidth
Move (iImageHeight * decThumbnailFactor) to iImageHeight
End
End_Procedure
Procedure LoadThumbnail
Integer iImageWidth iImageHeight
Handle hoImage hoImageThumbnail
Boolean bAutoTooltip
Get phoImage to hoImage
If (hoImage <> 0) Begin
Move 0 to iImageWidth
Move 0 to iImageHeight
Send Thumbnail_Dimensions (&iImageWidth) (&iImageHeight)
Get CreateThumbnail of hoImage iImageWidth iImageHeight to hoImageThumbnail
If (hoImageThumbnail <> 0) Begin
Send RemoveBitmap
Set phoImage to hoImageThumbnail
Send Destroy of hoImage
Get pbAutoTooltip to bAutoTooltip
If (bAutoTooltip) Begin
Send AssignTooltip
End
End
End
End_Procedure