| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с написанием компонента

Gamar ©   (2002-08-16 16:37:00) 

Создаю компонент от TCustomGrid, в котором (TCustomGrid) определен (или в его предках) Color=clWindow, однако мне нужен в новом компоненте Color=clSilver.
Пишу в конструкторе нового компонента после вызова метода предка присваивание Color := clSilver, однако цвет не меняется. Что делать?

---

-peter-   (2002-08-16 19:04:00) [1]

To Gamar
Перекрой метод Loaded.

TMyDBGrid = class(TDBGrid)
...
protected
procedure Loaded; override;
...

procedure TMyDBGrid.Loaded;
begin
inherited;
Color := clSilver;
end;

---

Esu   (2002-08-16 17:19:00) [2]

> Для Esu
>
> Но я же и пишу свой конструктор, и вызываю в нем предка.

Написать его в эту ветку :)
Что собственно и сделал Skier.

---

Skier   (2002-08-16 17:10:00) [3]

>Gamar

Не поможет ?


TYourCustomGrid = class(TCustomGrid)
protected
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState); override;
public
constructor Create(AOwner : TComponent); override;
end; //TYourCustomGrid


{ TYourCustomGrid }

constructor TYourCustomGrid.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Color := clRed;
end;

procedure TYourCustomGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
AState: TGridDrawState);
begin
//
end;


Создание :


procedure TForm1.Button2Click(Sender: TObject);
var
ACustomGrid : TYourCustomGrid;
begin
ACustomGrid := TYourCustomGrid.Create(Self);
ACustomGrid.Parent := Self;
end;


---

Gamar   (2002-08-16 17:02:00) [4]

Для Skier

Любой цвет игнорируется. А в настройках все стандартно.

Для Esu

Но я же и пишу свой конструктор, и вызываю в нем предка.

---

Esu   (2002-08-16 16:48:00) [5]

Напиши код своего конструктора.

---

Skier   (2002-08-16 16:41:00) [6]

>Gamar
А может у тебя в настройках Windows
clWindow = clSilver
Попробуй поставить Color := clBlue (например...)

---

Наверх