[Gambas-devel] Transparent DrawingArea
deep_sky at ...761...
Wed Dec 21 03:08:27 CET 2016
Thanks for your advice. Still having problems.
I've changed my code to what you gave me:
Private $hImage As Image
Public Sub btnImage_Click()
Dialog.Path = "/ home / gambas / projects / images"
Dialog.Filter = ["Image files (* .jpg; * .jpeg; * .png; * .bmp)", "All
files( * . * )"]
If Dialog.OpenFile() Then Return
$hImage = New Image
Message.Warning(Error.Text & "!")
Public Sub dwgImage_Draw()
Draw.Fillcolor = Color.Gray
Draw.FillStyle = Fill.Solid
Draw.Rect(0, 0, $hImage.Width, $hImage.Height)
Draw.Image($hImage, 0, 0)
Public Sub btnDraw_Click()
Running the code will allow me to open the dialog and select a jpg.
Stopping the code after executing the "$hImage.Load(Dialog.Path)" line shows
me that the value of Pixels for $hImage is "Out of bounds" and that the
height and width are both 0, so something is causing the image load to fail.
The Dialog.Path is correct, showing the correct path and filename. The
Cached property for dwgImage is True. What am I missing?
View this message in context: http://gambas.8142.n7.nabble.com/Transparent-DrawingArea-tp58023p58052.html
Sent from the gambas-devel mailing list archive at Nabble.com.
More information about the Devel