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

Вниз

TEdit>мой компонент   Найти похожие ветки 

 
Vice____   (2007-11-13 00:01) [0]

создаю наследника от TEdit`a и пытаюсь зарисовать рамку на свою!
каким способом ето можно сделать ???????????


 
Vice____   (2007-11-13 00:37) [1]

нифига не работает зарисовывыется все кроме рамки
CCan:TControlCanvas;
CCan := TControlCanvas.Create;
CCan.Control:=self;

или
Can:TCanvas
Can.Handle:=GetDc(handle);

или
Brush: HBrush;
Brush := CreateSolidBrush(clRed);
FillRect(GetDC(self.WindowHandle),Rect(-5,-5,25,25),Brush);


 
KilkennyCat ©   (2007-11-13 00:58) [2]

ну, наверное не от Тэдика надо создавать, а чуть глубже копнуть.


 
Vice____   (2007-11-13 01:05) [3]


> KilkennyCat ©   (13.11.07 00:58) [2]
>
> ну, наверное не от Тэдика надо создавать, а чуть глубже
> копнуть.

от TObject


 
homm ©   (2007-11-13 01:07) [4]

> [2] KilkennyCat ©   (13.11.07 00:58)

нет.


> создаю наследника от TEdit`a и пытаюсь зарисовать рамку
> на свою!

NCPAINT. Рамка — это NC — НеКлиентския часть окна.


 
KilkennyCat ©   (2007-11-13 01:08) [5]


> homm ©   (13.11.07 01:07) [4]


Разве от TCustomEdit сплясать не получится?


 
Vice____   (2007-11-13 01:26) [6]


> KilkennyCat ©   (13.11.07 01:08) [5]
> Разве от TCustomEdit сплясать не получится?

не получится иначе не спрашивал бы)


 
KilkennyCat ©   (2007-11-13 01:28) [7]

гм...


 
homm ©   (2007-11-13 07:29) [8]

> [5] KilkennyCat ©   (13.11.07 01:08)
> Разве от TCustomEdit сплясать не получится?

Получится. От него и надо плясать. Просто в моем понимании это все-же не «глубже», а то-же самое и есть ;)



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

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

Наверх




Память: 0.48 MB
Время: 0.024 c
15-1194560860
Умка
2007-11-09 01:27
2007.12.09
Помогите!


15-1194354763
авыф
2007-11-06 16:12
2007.12.09
Запись формы.


6-1152330319
Yuron
2006-07-08 07:45
2007.12.09
Браузер на Indy


10-1141146183
msgipss
2006-02-28 20:03
2007.12.09
Возможно ли вызвать процедуру открытого документа Excel


15-1194854187
Me
2007-11-12 10:56
2007.12.09
Новый винт