Darth_helge
asked on
blue fontcolor on tabs in pagecontrol
I have tried something here, but it doesn't work exactly as I want it to.
I want it to work like the tabs in the Delphi 7 IDE. The fontcolor becomes blue when mouseover, and black when not mouseover. highlighted does not make the fontcolor blue. Also, the IndexOfTabAt(x,y) does NOT return -1 if no there are no tabs in mouseover
can anyone help me finish this? I bet it's easy for you guys
procedure TIRForm.PageControl1MouseM ove(Sender : TObject;
Shift: TShiftState; X, Y: Integer);
var
i: integer;
begin
case Pagecontrol1.IndexOfTabAt( X,Y) of
-1:RemoveBlueFonts;
0:pabegynt.Highlighted := true;
1:FerdigRegistrert.Highlig hted := true;
2:IkkeGodkjent.Highlighted := true;
3:UnderBehandling.Highligh ted := true;
4:Godkjent.Highlighted := true;
end;
end;
I want it to work like the tabs in the Delphi 7 IDE. The fontcolor becomes blue when mouseover, and black when not mouseover. highlighted does not make the fontcolor blue. Also, the IndexOfTabAt(x,y) does NOT return -1 if no there are no tabs in mouseover
can anyone help me finish this? I bet it's easy for you guys
procedure TIRForm.PageControl1MouseM
Shift: TShiftState; X, Y: Integer);
var
i: integer;
begin
case Pagecontrol1.IndexOfTabAt(
-1:RemoveBlueFonts;
0:pabegynt.Highlighted := true;
1:FerdigRegistrert.Highlig
2:IkkeGodkjent.Highlighted
3:UnderBehandling.Highligh
4:Godkjent.Highlighted := true;
end;
end;
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I'm so embarrased..