Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

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 не в воздухе у меня повисло!!!

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


 
ЮЮ ©   (2003-07-04 11:43) [8]

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

TCustomEdit.BorderStyle

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

TBorderStyle = bsNone..bsSingle;



 
Юрий Зотов ©   (2003-07-04 11:59) [9]

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

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


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

to Юрий Зотов

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


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

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

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



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

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.02 c
1-55655
UnDISCOvery
2003-07-04 13:17
2003.07.17
Алоха ! Почему форма не получает фокус ?


1-55511
EgorKA
2003-07-04 17:01
2003.07.17
Изменение размеров формы с borderstyle=bsNone...


14-55767
AndrewVolkov
2003-07-03 01:26
2003.07.17
DBLookupComboBox очистка поля


1-55628
Makhanev A.S.
2003-07-03 21:56
2003.07.17
Частое мерцание StatusBar а


4-55908
odyssey
2003-05-14 15:47
2003.07.17
минимизация