You could just custom draw the Tabs. Something like this:
I don't have the code to draw rotated text but could look for it if you
want although it should be 'somewhere' in the vcl.
You would then have to do you own hottrack drawing if you have hottracking
enabled.
// Note tested throughly...
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
lRect: TRect;
begin
Control.Canvas.FillRect(Rect);
lRect := Rect;
lRect.Left := lRect.Left + 5;
lRect.Top := lRect.Top + 2;
if PageControl1.TabPosition in [tpTop, tpBottom] then
DrawText(Control.Canvas.Handle,
PCHAR(PageControl1.Pages[TabIndex].Caption),
LENGTH(PageControl1.Pages[TabIndex].Caption),
lRect, DT_LEFT)
else
// else draw rotated...
end;
Might just be easy to get a freeware one that doesn't have the bug though!
Cheers,
JED
>>I am using a tab control, with the tabs on the right.
>>I went in and added the tabs fine with an & at the beginig to assign it
to a hot key etc. >>BUT as soon as you change teh tabs to be on the right,
the & becomes part of the tab >>caption !
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
