https://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=BPCPageControl 2026-10-02T02:11:49Z Revision history for this page on the wiki MediaWiki 1.45.3 https://www.bishopphillips.com/riskwiki/index.php?title=BPCPageControl&diff=5&oldid=prev 2026-04-12T06:36:00Z

<p>1 revision imported</p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <tr class="diff-title" lang="en"> <td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td> <td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 06:36, 12 April 2026</td> </tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div> </td></tr></table>

Bishopj https://www.bishopphillips.com/riskwiki/index.php?title=BPCPageControl&diff=4&oldid=prev 2019-09-11T17:04:15Z

<p>Created page with &quot;==BPCPageControl - Modified MS Windows page/tab control to support customised colouring of tabs and borders== Language: Delphi 7 - 2007 The standard MS Page/Tab controller...&quot;</p> <p><b>New page</b></p><div>==BPCPageControl - Modified MS Windows page/tab control to support customised colouring of tabs and borders==<br /> <br /> Language: Delphi 7 - 2007<br /> <br /> <br /> The standard MS Page/Tab controller does not allow non OS controlled tab and border colouring. This colouring defaults to grey or theme controlled settings. This version does uses the page colours to paint the control tabs and borders. Otherwise it looks and behaves exactly like the standard MS Tab/Page Control.<br /> <br /> <br /> <br /> &lt;pre&gt;<br /> uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, CommCtrl, ComCtrls;<br /> <br /> type<br /> <br /> <br /> TBPCPageControl = class(TPageControl)<br /> private<br /> FThickFrame: Boolean;<br /> FBPCFrame : Boolean;<br /> FFontInactive : TColor;<br /> procedure SetThickFrame(const Value: Boolean);<br /> procedure SetBPCFrame(const Value: Boolean);<br /> protected<br /> procedure WndProc(var Msg: TMessage); override;<br /> procedure CreateParams(var Params: TCreateParams); override;<br /> procedure WMPaint(var Message: TWMPaint); message WM_PAINT;<br /> procedure Change; override;<br /> public<br /> constructor Create(AOwner: TComponent); override;<br /> procedure CustomDrawPageControl;<br /> published<br /> property FontInactive: TColor read FFontInactive write FFontInactive default clGray;<br /> property ThickFrame: Boolean read FThickFrame write SetThickFrame default true;<br /> property BPCFrame: Boolean read FBPCFrame write SetBPCFrame default True;<br /> // property BPCTabStyle: Boolean read FBPCFrame write SetBPCFrame default False;<br /> end;<br /> &lt;/pre&gt;<br /> <br /> =BackLinks=<br /> <br /> {{#dpl: linksto={{FULLPAGENAME}} }}</div>

Bishopj