[Thrasher]

В общем какая задача стоит - необходимо чтобы в программе был Page Control, в котором бы в названиях вкладок присутствует CheckBox. Такое видел вживую, но что за компонент - не помню. Подскажите, в каком направлении копать?

[blazonic]

Это такой собирательный компонент. Ранее такого не встречал.
А на каком языке программирования это приложение разработано, хотя бы предположительно?
В C# TabControl похож на PageControl.
Сейчас на C# (VS 2008) в WinForms попробовал сваять собирательный компонент из TabControl (для C# такого компонента как PageControl нет) и CheckBox. Этот новый компонент автоматом регистрируется в VS 2008 и его сразу можно использовать на форме.
Проблема состоит в том, чтобы CheckBox забить в название вкладки компонента TabControl. Пока этот CheckBox просто прорисовывается на канве компонента TabControl.
Полагаю, что необходимо объединить исходный код этих двух визуальных компонентов и т.о. на их базе создать новый компонент.
Если вы найдёте ту программу с этим навороченным PageControl, то для того чтобы узнать среду разработки по компилятору, её можно дизассемблировать в программе IDA.

[kukuruku310]

рисовать его ручками с отслеживанием событий щелчков мышом на CheckBox-ах и ведя учет их текщих состояний
например, рисование, может в самом простом виде выглядеть как

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;   TabIndex: Integer; const Rect: TRect; Active: Boolean); var   r: TRect; begin   inherited;   r.Top := 1;   r.Left := Rect.Left + 1;   r.Bottom := 17;   r.Right  := r.Left + 16;   DrawFrameControl(PageControl1.Canvas.Handle, r, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_FLAT);   Inc(Rect, Left, 18);   DrawText(PageControl1.Canvas.Handle, PChar(PageControl1.Pages[TabIndex].Caption), -1, Rect, DT_LEFT); end;

в свойствах PageControl лучше поставить OwnerDraw

[kukuruku310]

Мда.. Наворокосил, что называется. Проверив в Delphi, вижу такую кучу оБшибок в своем "коде". Пытаюсь исправиться.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

const   CB_SZ = 12; // размер CheckBox'а   procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;   TabIndex: Integer; const Rect: TRect; Active: Boolean); var   r: TRect; begin   PageControl1.Canvas.FillRect(Rect);   r := PageControl1.TabRect(TabIndex);   // можно и по-простому CopyRect(r, Rect), но тогда "квадратик" станет немного "прыгать" по вертикали при переключении закладок   r.Top := (r.Bottom + r.Top - CB_SZ) div 2; // по центру по вертикали   r.Left := Rect.Left + 1;   r.Bottom := r.Top + CB_SZ;   r.Right  := r.Left + CB_SZ;   if PageControl1.Pages[TabIndex].Tag = 0 then     DrawFrameControl(PageControl1.Canvas.Handle, r, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_FLAT)   else     DrawFrameControl(PageControl1.Canvas.Handle, r, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_FLAT);   CopyRect(r, Rect);   Inc(r.Left, CB_SZ + 2);   DrawText(PageControl1.Canvas.Handle, PChar(PageControl1.Pages[TabIndex].Caption), -1, r, DT_LEFT); end;   procedure TForm1.PageControl1MouseDown(Sender: TObject;   Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var   idx: Integer;   rect: TRect; begin   if mbLeft = Button then begin     idx := PageControl1.IndexOfTabAt(X, Y);     rect := PageControl1.TabRect(idx);     if (X >= rect.Left + 1) and (X <= rect.Left + CB_SZ+1) then begin // наверное нет большого смысла проверять еще и по вертикали       if PageControl1.Pages[idx].Tag = 0 then         PageControl1.Pages[idx].Tag := 1       else         PageControl1.Pages[idx].Tag := 0;       InvalidateRect(PageControl1.Handle, @rect, False);     end;   end; end;

И OwnerDraw должно быть True