[lazarus] Forms BorderStyle and Default Font of Canvas (win32)

[Karl Brandt]

Here's a patch that implements the BorderStyle of forms. I took as 
reference the Delphi appearance. I didn't get how to do bsNone.

It also make GetStockObject returns DEFAULT_GUI_FONT when asked for 
SYSTEM_FONT with a small hack, although i think that the best way is to 
change LCL (at Tcanvas and TPromptDialog) to uses DEFAULT_GUI_FONT 
instead of SYSTEM_FONT which is more intuitive/logical.
This will not affect gtk, since DEFAULT_GUI_FONT redirects to SYSTEM_FONT.

BTW:is necessary to call SelectObject twice in TPromptDialog.LayoutDialog?

Mattias, can you change BorderStyle of Object Inspector to 
bssizetoolwin? (like in Delphi)

karl

-------------- next part --------------
A non-text attachment was scrubbed...
Name: zip00033.zip
Type: application/octet-stream
Size: 1326 bytes
Desc: "border.zip"
Url : http://localhost/pipermail/lazarus/attachments/20030826/3b50ad39/zip00033.obj