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

Вниз

Новый шрифт в компоненте   Найти похожие ветки 

 
Navi   (2003-07-19 08:06) [0]

Здравствуйте! Достали шрифты. Делаю компонент (см. ниже). Инсталирую, при попытке раскрыть список "FocusFont" получаю "Unable to expand" при нажатии "..." - AV in Vcl50.bpl. Что не так-то?
Спасибо.
Код:
type
TFocusListBox = class(TCustomListBox)
private
FFocusFont: TFont;
protected
procedure SetFocusFont(Value: TFont);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property FocusFont: TFont read FFocusFont write FFocusFont;
.
end;

implementation

constructor TFocusListBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFocusFont:= TFont.Create;
end;

destructor TFocusListBox.Destroy;
begin
FFocusFont.Free;
inherited;
end;

procedure TFocusListBox.SetFocusFont(Value: TFont);
begin
FFocusFont.Assign(Value);
end;


 
Юрий Зотов   (2003-07-19 09:28) [1]

property FocusFont: TFont read FFocusFont write SetFocusFont;

И еще - SetFocusFont лучше объявить так:
procedure SetFocusFont( const Value: TFont);




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

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

Наверх





Память: 0.44 MB
Время: 0.011 c
14-100910
Axis_of_Evil
2003-07-14 10:47
2003.07.31
Heroes of Might&Magic 1


3-100598
Spawn
2003-07-08 15:43
2003.07.31
InterBase


4-101046
SerVel
2003-05-27 09:03
2003.07.31
CreateThread(...);


8-100829
Ильдар
2003-04-05 13:04
2003.07.31
Слушаем радио


1-100689
Alfastream
2003-07-18 12:28
2003.07.31
Ограничение пространства формы





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский