VPF::Control RichEdit has no parent window - Форум программистов

CHERRY

Дата 12.3.2010, 21:17 (ссылка)

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

Загрузка ...

Прохожий

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

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

Если в приведенном коде убрать комментарии //{
в дизайн тайм возникает ошибка
Control RichEdit has no parent window, т.е. когда ставим RichEdit на форму

Думаю проблема в Lines.Count, которого еще нет.
Возможно ли обработать эту ситуацию, или нужно искать другой путь?

Код


//Событие OnCange
procedure TRichEdit.Change(Sender: TObject);
var Rect: TRect;
Begin
//{
If FGutterWidth<GetCharPixelWidth('0')*Length(IntToStr(Lines.Count))+3 Then
 Begin
  FGutterWidth:=GetCharPixelWidth('0')*Length(IntToStr(Lines.Count))+3;
  SendMessage( Handle, EM_GETRECT, 0, LongInt(@Rect));
  IF FShowRuler Then Rect.Top:=FRulerWidth+5 Else Rect.Top:=0;
  IF FShowGutter Then Rect.Left:=FGutterWidth+5 Else Rect.Left:=5;
  SendMessage(Handle, EM_SETRECT, 0, LongInt(@Rect));
  SetRightMargine(FRightMargine);
 End;
//}

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

Трясу надежды ветвь, но где желанный плод?

CHERRY

Дата 12.3.2010, 21:32 (ссылка)

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

Загрузка ...

Прохожий

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

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

Точно виноват Lines.Count.
Можно ли в компонентах использовать условную компиляцию, чтобы избежать подобных ошибок?

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

Трясу надежды ветвь, но где желанный плод?

Snowy

Дата 15.3.2010, 13:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код

//Событие OnCange
procedure TRichEdit.Change(Sender: TObject);
var 
  Rect: TRect;
  w: Integer;
Begin
//{
  if (Parent <> nil) then w := GetCharPixelWidth('0')*Length(IntToStr(Lines.Count))+3
  else w := 100; // Ну, например 100
If FGutterWidth < w Then
 Begin
  FGutterWidth := w;
  // .....

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