TMemo

← →
Rel_ (2003-07-04 10:39) [0]

Народ, подскажите, что за глюк:

Есть класс:
unit ClassUn2;

...

TMyControl = class(TWinControl)
...
private
editor : TMemo;

...
end;

1) При попытке задать BoredStyle := bsNone в конструкторе TMyControl - ругается:
[Error] ClassUn2.pas(153): Incompatible types: "StdCtrls.TBorderStyle" and "ClassUn2.TBorderStyle"

2) При скроллировании моего контрола - получается моргание editor-а даже при примитивной перерисовке.
- создаю dc в памяти и загружаю compatible bitmap;
- делаю заливку битмапа и копирую на контекст моего устройства (dc = BeginPaint);

Такое спечатление, что происходит заливка, а затем отображается эдитор - в рез-те мерцание (даже если запретить перерисовку фона).

← →
Radionov Alexey © (2003-07-04 10:43) [1]

>1) При попытке задать BoredStyle := bsNone в конструкторе
>TMyControl - ругается:
>[Error] ClassUn2.pas(153): Incompatible
>types: "StdCtrls.TBorderStyle" and "ClassUn2.TBorderStyle"

Конкретно указать откуда брать. Что-то вроде BoredStyle := StdCtrls.bsNone

По-второму вопросу не понятно.

← →
McSimm2 (2003-07-04 10:46) [2]

У StdCtrls нет bsNone

← →
Юрий Зотов © (2003-07-04 10:55) [3]

1. Откуда в ClassUn2 взялся тип TBorderStyle, что он там делает и зачем вообще он там нужен?

2. В TMyControl заместите CreateParams:

procedure TMyControl.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do Style := Style or WS_CLIPCHILDREN
end;

← →
Rel_ (2003-07-04 11:05) [4]

to Юрий Зотов

да в юните ClassUn2 нет типа TBorderStyle - поэтому и странный глюк. в юните ClassUn2 - только определён мой класс (TWinControl), одно из полей которого - переменная типа TMemo.
Вот ей т я и присваиваю BorderStyle := bsNone - ругается.

Прчиём если все те же действия произвести не на моём классе, а на форме - усё в порядке.

← →
ЮЮ © (2003-07-04 11:34) [5]

>Вот ей т я и присваиваю BorderStyle := bsNone - ругается.

Если ей, то editor.BorderStyle := bsNone

← →
ЮЮ © (2003-07-04 11:37) [6]

Похоже не туда :-)

← →
Rel_ (2003-07-04 11:40) [7]

Ну и шутник - понятно, BorderStyle не в воздухе у меня повисло!!!

Великие умы - отсоветуйте что-нибудь дельное (кстати, и по второй части вопроса).

А зачем вообще потребовался свой BorderStyle?

TCustomEdit.BorderStyle

TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin);

TBorderStyle = bsNone..bsSingle;

> Rel_ (04.07.03 11:40)
> отсоветуйте что-нибудь дельное (кстати, и по второй части
> вопроса).

А Вы ответы ВНИМАТЕЛЬНО читаете? И Вы их ПРОБУЕТЕ? Или у нас здесь просто обмен мнениями такой идет?

← →
Rel_ (2003-07-04 13:14) [10]

to Юрий Зотов

конечно пробую.

to ЮЮ
>> А зачем вообще потребовался свой BorderStyle

Да не свой - это поле объекта TMemo - внимательнее почитайте вопрос.

Ладно - глухой телефон получается - поковыряюсь сам.

TMemo Найти похожие ветки