Painting in RealBasic?

[Telstar5]

Redd? Mike? Anyone?

How would I go about producing a basic paint-type program in RB?

None of the tutorials on the net seem to apply to the newer versions of RB, and the examples provided with RB aren't much help either.

[Redd]

This is what I did:

First, set properties dX and dY as Integers and cardPic as Picture.

Following is all in the canvas methods:

Make sure cardPic is as big as the canvas:
Open

Code: [Select]

cardPic = NewPicture( Me.Width, Me.Height, 32 )

To avoid flickering under other platforms:
Paint

Code: [Select]

g.DrawPicture( cardPic, 0, 0 )

For the paint brush:
MouseDown

Code: [Select]

dX = X
dY = Y
Return True

MouseDrag

Code: [Select]

cardPic.Graphics.DrawLine dX, dY, X, Y
dX = X
dY = Y
Refresh

Paint bucket is fairly simple:
MouseDown

Code: [Select]

cardPic.RGBSurface.FloodFill( X, Y, color )

That's the simple stuff I can come up with right now.

[Telstar5]

Oh lord, thanks Redd. That was suprisingly easy...

Thanks again

[Tireas Dragon]

who woulda thought making a drawing program could take just a few lines of code.

[Redd]

who woulda thought making a drawing program could take just a few lines of code.

Usually it doesn't take much effort at all.