PDA

View Full Version : pagecontrol



free
شنبه 05 مرداد 1387, 09:49 صبح
چطور می تونم page انتخاب شده قسمت title آنرا را به رنگ دیگری نشان دهم؟

Hsimple11
شنبه 05 مرداد 1387, 11:00 صبح
در رویداد OnDrawTab مربوط به PageControl خود چنین چیزی بنویسید :


with PageControl1.Canvas do
begin
Brush.Color:= ClYellow;
FillRect(Rect);
Font.Color:= clNavy;
Font.Size:= 10;
Font.Name:= 'Arial';
end;
if TabIndex=0 then
Pagecontrol1.Canvas.TextRect(Rect,10,5,'MyFirstTab ')
else if TabIndex=1 then
Pagecontrol1.Canvas.TextRect(Rect,135,5,'MySecondT ab');
end;


در ضمن فراموش نکنید که خاصیت OwnerDraw را True کنید.

free
یک شنبه 06 مرداد 1387, 08:01 صبح
متشکرم. اما این کد همه تب ها را رنگ می کند من می خواهم با کلیک روی هر تب که انتخاب می شود فقط آن تب رنگ شود.

Hsimple11
یک شنبه 06 مرداد 1387, 11:48 صبح
چطور می تونم page انتخاب شده قسمت title آنرا را به رنگ دیگری نشان دهم؟

میتوانید Tab خود را بسازید (Constructor) و خاصیت Color آن را Override کنید. اما در مورد ActivePage کامپوننت AdvPageControl از مجموعه TMS چنین قابلیتهایی را دارد.