Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как убрать черную окантовку у CategoryPanelGroup?

Автор: huminclouds 11.1.2011, 17:39

Как убрать черную окантовку компонента CategoryPanelGroup?
По умолчанию в Delphi 2010 CategoryPanelGroup выглядит так:
http://radikal.ru/F/i067.radikal.ru/1101/5e/026cc0cda675.jpg.html
Я хочу убрать черную рамку:
http://radikal.ru/F/s001.radikal.ru/i195/1101/50/2ffc586aab82.jpg.html

Автор: Rrader 11.1.2011, 19:47

Код


type
  TCategoryPanelGroup = class(ExtCtrls.TCategoryPanelGroup)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

  TForm1 = class(TForm)
    CategoryPanelGroup1: TCategoryPanelGroup;
    CategoryPanel1: TCategoryPanel;
    CategoryPanel2: TCategoryPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TCategoryPanelGroup }

procedure TCategoryPanelGroup.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not WS_BORDER;
end;

end.

Автор: huminclouds 12.1.2011, 09:57

Спасибо, Rrader. )

Автор: Anarion 11.8.2011, 18:23

Подскажите пожалуйста, можно ли этот код реализовать в билдере? Пробовал сделать так:

Код


class TCategoryPanelGroup : public Extctrls::TCategoryPanelGroup
{
    protected:
        virtual void __fastcall CreateParams(Controls::TCreateParams &Params)
        {
            Params.Style = Params.Style & !WS_BORDER;
        }
};

но при компиляции ругается:

Код


[BCC32 Error] MainForm.h(169): E2015 Ambiguity between 'TCategoryPanelGroup' and 'Extctrls::TCategoryPanelGroup'
  Full parser context
    MainForm.cpp(8): #include MainForm.h
    MainForm.h(61): class TMF