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

Вниз

прозрачность   Найти похожие ветки 

 
1111а   (2003-04-23 15:26) [0]

Как у компонента TGauge с видом Pie (овальный) сделать прозрачным, то есть так на цветном фоне он плохо выглядит, потому что кроме самого овального "пирога" появляется и описанный около него прямоугольник. Так вот вопрос: как этот прямоугольник сделать прозрачным?


 
Skier ©   (2003-04-23 15:32) [1]

BorderStyle := bsNone; ?


 
1111а   (2003-04-23 15:43) [2]

Нет, я не это имел в виду. См. скриншот http://chgk.info/df/1.jpg. Вот от этого надо избавиться.


 
Skier ©   (2003-04-23 15:44) [3]


> См. скриншот http://chgk.info/df/1.jpg. Вот от этого надо
> избавиться.

А ты сам-то сюда ходил ?


 
Yanis ©   (2003-04-23 15:55) [4]

Че то скрин не работает.


 
Yanis ©   (2003-04-23 16:26) [5]

procedure TForm1.FormCreate(Sender: TObject);
var h:HRGN;
begin
H:=CreateRoundRectRgn(1,1,Panel1.Width,Panel1.Height,100,100);
SetWindowRgn(Panel1.Handle,h,true);
end;

Я тут поизвращался, если хочешь попробуй, за место 100 и 100 подставь ширину(Width) и высоту(Height) твоего компонента TGauge.
Но скорее всего есть метод и полегче, попробуй.


 
Yanis ©   (2003-04-23 16:35) [6]

Да, чуть не забыл, у Panel AutoSize:=True;


 
1111а   (2003-04-23 17:55) [7]

Не знаю, у меня скрин работает прекрасно. Попробуйте еще раз


 
1111а   (2003-04-23 18:06) [8]

Только точка в гиперссылку не входит:
http://chgk.info/df/1.jpg



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
3-12629
Hedron
2003-04-15 17:17
2003.05.05
Доступ к системным таблицам Access


1-12687
Макар01
2003-04-20 18:57
2003.05.05
Как программно запустить ярлык?


9-12595
ogo
2002-11-28 10:45
2003.05.05
opengl для delphi


4-12963
Alex Slater
2003-03-06 11:49
2003.05.05
ListBox


14-12900
Zmei-Gorin
2003-04-17 15:04
2003.05.05
Принцип работы FD, diff и иже с ними...