Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизНе прямоугольный сомпонент. Найти похожие ветки
← →
Brain (2003-01-21 16:17) [0]Я хочу создать компонент к примеру кнопку,или панель, но что бы она имела элипсовидный контур.
Заранее спасибо ...
← →
Паша (2003-01-21 16:22) [1]procedure TForm1.Button1Click(Sender: TObject);
var
Rgn:thandle;
begin
Rgn:= CreateRoundRectRgn(0,0,Button1.Width,Button1.Height,Button1.Width,Button1.Height); // элептическое
if rgn<>0 then SetWindowRgn(Button1.Handle,Rgn,true);
end;
Правда, выглядит поцовато...
← →
Думкин (2003-01-22 06:05) [2]CreateEllipticRgn
← →
Brain (2003-01-22 17:29) [3]Думкин, а по кокретнее ....please
← →
KDenis (2003-01-22 19:36) [4]И мне тоже ....
please
← →
ga3 (2003-01-23 03:23) [5]мля это все извраты и дебилизм, торммозящий систему имхо
← →
Nick_N_A (2003-01-23 05:18) [6]Если компонента не TWinControl a TControl то можно
делать как TImage, рисовать только там, где надо
(в пределах формы) - на скорость не влияет.
← →
Думкин (2003-01-23 06:58) [7]Поконкретнее сказал
> Паша © (21.01.03 16:22)
только у него CreateRoundRectRgn, а у меня CreateEllipticRgn.
Набери и нажми F1.
> ga3 © (23.01.03 03:23)
Ну, ребята же не драйвер пишут - сам этим балуюсь - иногда очень забавно, а система - пусть пашет. А если жалко - выключи комп и на полку его, чтоб не мучился.
И вообще эта тема регулярно обсасывается.
← →
Brain (2003-01-23 15:47) [8]Если я всё правельно понял то:
- если пользоваться TImage, то выглядить будет класно на focus та будет прямоугольный всё равно.
- а если CreateRoundRectRgn, CreateEllipticRgn то нет.
Есля обшибся поправьте PLEASE.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c