Главная страница
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.019 c
14-55778
tipman
2003-06-29 20:36
2003.07.17
File Of PChar - глюк системы, компилятора или........?!


3-55440
Wilg
2003-06-23 11:19
2003.07.17
Архив базы данных


3-55392
Alexander Vasjuk
2003-06-18 13:43
2003.07.17
TDbf V6.3 - MasterFields не устанавливается


1-55507
avkiev
2003-07-03 15:37
2003.07.17
Как инициализировать переменную типа IStream ?


7-55870
nik
2003-04-28 12:52
2003.07.17
COM порт (NT)