Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
1-95757
greenrul
2002-08-16 17:41
2002.08.29
Рисунок на канве не обновляется


3-95729
Viacheslav
2002-08-09 12:58
2002.08.29
Хочу тоже стать мастером ......


14-95965
Socol
2002-08-04 11:11
2002.08.29
Исходники


7-95996
TOLTEC
2002-03-01 17:17
2002.08.29
TaskManeger


4-96014
NecroMan
2002-06-21 05:13
2002.08.29
Как закрыть корректно чужую программу?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский