Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2003-09

Win32 patch

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Mattias Gaertner
to Martin Smat: attached is a patch for creating BitButtons in Win32 interface. BitButtons now display…
Show quoted text 16 lines
Hi, attached is a patch for creating BitButtons in Win32 interface. BitButtons now display the bitmap and the caption correctly depending on the used Layout property. TODO: redrawing the button after changing Layout property. I hope I will be able to send the patch next week. BTW: I cannot compile yesterdays CVS source. Many errors occur in file win32object.inc (Error: Cannot access a protected field of an object here). For instance on line: then ShowWindow(TCustomNotebook(Parent).Page[OldPageIndex].Handle, SW_HIDE); when accessing the Page property. Was this property moved from Public into Protected? What property can be used instead?

TCustomNotebook became a base class for TNoteBook and TPageControl. TPageControl has a Pages and no Page property. There is a CustomPage function. I fixed the compilation and applied your patch.

Mattias

Reply by email

Martin Smat

Hi,
attached is a patch for creating BitButtons in Win32 interface. BitButtons now display the bitmap and the caption correctly depending on the used Layout property.
TODO: redrawing the button after changing Layout property. I hope I will be able to send the patch next week.

BTW: I cannot compile yesterdays CVS source. Many errors occur in file win32object.inc (Error: Cannot access a protected field of an object here). For instance on line:

   then ShowWindow(TCustomNotebook(Parent).Page[OldPageIndex].Handle,
SW_HIDE);

when accessing the Page property. Was this property moved from Public into Protected? What property can be used instead?

Martin Smat.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: zip00038.zip
Type: application/octet-stream
Size: 2023 bytes
Desc: "win32patch.zip"
Url : http://localhost/pipermail/lazarus/attachments/20030921/bfb49d3e/zip00038.obj

Reply by email