Скачать: CL | DM;

Проблема с написанием компонента   Найти похожие ветки 

← →
Gamar ©   (2002-08-16 16:37) [0]

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

---

← →
Skier ©   (2002-08-16 16:41) [1]

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

---

← →
Esu ©   (2002-08-16 16:48) [2]

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

---

← →
Gamar ©   (2002-08-16 17:02) [3]

Для Skier

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

Для Esu

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

---

← →
Skier ©   (2002-08-16 17:10) [4]

>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;


---

← →
Esu ©   (2002-08-16 17:19) [5]

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

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

---

← →
-peter- ©   (2002-08-16 19:04) [6]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c