[lazarus] Progressbar control fix

[Micha Nelissen]

Hi,

Continuing with the progressbar example till it works :).

Attached is a fix to correctly set the min and max position, and some code
to specify the correct flags when the control is created (smooth, vertical
style).

The 'Smooth' property does not work yet, it needs to be set when the control
is created. Apparantly, you cannot set it later on, using SetWindowLong, as
the code now tries to. Can a window recreate be forced within handling the
LM_SETPROPERTIES message handler?

HTH,

Micha.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: bin00033.bin
Type: application/octet-stream
Size: 1293 bytes
Desc: "progressbar.patch"
Url : http://localhost/pipermail/lazarus/attachments/20030625/f331e36c/bin00033.bin