VPF::Как убрать черную окантовку у CategoryPanelGroup?

huminclouds

Дата 11.1.2011, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 8.7.2009

Репутация: нет
Всего: нет

Как убрать черную окантовку компонента CategoryPanelGroup?
По умолчанию в Delphi 2010 CategoryPanelGroup выглядит так:

Я хочу убрать черную рамку:

Rrader

Дата 11.1.2011, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


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.

--------------------

Let's do this quickly!
Rest in peace, Vit!

huminclouds

Дата 12.1.2011, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 8.7.2009

Репутация: нет
Всего: нет

Спасибо, Rrader. )

Anarion

Дата 11.8.2011, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 11.8.2011

Репутация: нет
Всего: нет

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

Код


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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »