Как закрашивать TTabSheet?

← →
TankMan © (2003-07-01 22:19) [0]

Создал TPageContol и динамически добавляю туда TTabSheet, и сколько ни пытался я закрасить всю эту TPaceContol в месте с TTabSheet но закрашиваются только закладки, если поставить OwnerDraw на TPageContol... а сами Щиты да же и не думают... вот парился парился, но так и не до пер, каким таким хитрым образом его закрашивать :(... поможите люди добрые :)

← →
Makhanev A.S. © (2003-07-02 23:45) [1]

JediVCL: PageControl - закладки красит как надо.

Можешь скачать всю библиотеку: http://jvcl.sourceforge.net

← →
TankMan © (2003-07-10 03:00) [2]

А что на счет всетаки со стандартными PageControl-ами? Не уж-то они не красятся?...ставил обработчик OnPaint... красит все... кроме самой области TabSheet-ов... а как их область найти, если они создаются динамически...у меня эта проблема уже пол месяца стоит... я пока другими занимаюсь, но всетаки, весь дизайн программы к чертям из-за этих серых Щитов :(((... компонент попробую... просто экспириенса хотелось бы... в этом деле (закрашивания)

← →
Babay © (2003-07-10 04:40) [3]

Поробуй повесить на onShow и onEnter для TabSheet - ов вот такой код

Var dc:Hdc;
c:TCanvas;
begin
dc:=GetDc(TTabSheet(Sender).Handle);
C:=TCanvas.Create;
c.Handle:=dc;
c.Brush.Color:=ClRed;// твой цвет
c.FillRect(TTabSheet(Sender).ClientRect);
c.Free;
ReleaseDC(TTabSheet(Sender).Handle,dc);
end;

>>Babay
Спасибо большое... начал писать закрашивающийся компонент - потомок PageControl и TabSheet...эх...:) (а может их объединить?...)

Как закрашивать TTabSheet? Найти похожие ветки