Beberapa hari yang lalu ada yang nanya cara ngerubah warna tab pada
PageControl. ini saya dapet dari Delphi Corner
(http://www.delphicorner.f9.co.uk/tips.htm). Dicobain aja dulu, deh...
Semoga bisa
****
How do I change the color of the tabs on a PageControl?
This tip from Todd Flickinger...
The example below uses the OnDrawCell event to change the colour of the
active Tab and of the Font used:
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
s:string;
r:TRect;
begin
s :=form1.TabControl1.Tabs.Strings[tabindex];
r := Rect;
with Control.Canvas do
begin
if Active then
begin
Brush.Color := clinfoBK;
Font.Color := clBlue;
end;
Windows.FillRect(Handle,r,Brush.Handle);
OffsetRect(r, 0, 1);
DrawText(Handle, PChar(s), Length(s), r, DT_CENTER or DT_SINGLELINE or
DT_VCENTER);
end;
end;
****
Irwan
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
