Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

ScreenToClient 


Fast   (2002-01-14 19:48) [0]

Есть Form1 на ней Image1 поверх картинки лежит Label1.
Задача: нарисовать прямоугольник на картинке точно под лейблом.

Делаю так


var
Rect:TRect;
..............
begin
pT:=Point(Label1.top,Label1.left);
REct.TopLeft:=Image1.ScreenToClient(Form1.ClientToScreen(pT));
pB:=Point(Label1.top+Label1.Width,Label1.left+Label1.Height);
Rect.BottomRight:=Image1.ScreenToClient(Form1.ClientToScreen(pB));
Image1.Canvas.FillRect(Rect);
end;

И теперь обясните мне почему нарисованный прямоугольник постоянно смещен на 32 точки ниже и 32 точки правее от лейбла.
По идее и черт бы этими 32"мя, но я сомневаюсь что это независт от системных настроек, тоесьт есть шанс получить у какого нибуть клиента лабуду.



Анатолий   (2002-01-14 21:25) [1]

А не проще вычислить координаты label на форме, учесть необходимое смещение и затем рисовать прямоугольник.



Adder   (2002-01-14 21:45) [2]

begin
Image1.Canvas.FillRect(Rect(Label1.Left,Label1.Top,
Label1.Left+Label1.Width,Label1.Top+Label1.Height));
end;
:)



Fast   (2002-01-14 21:45) [3]

Все я съехал. Извините все правилно просто я ширину с высоной перепутол.



Юрий Зотов   (2002-01-14 21:57) [4]

Попробуйте проще:

var
R: TRect;
begin
R := Label1.BoundsRect;
OffsetRecT(R, -Image1.Left, -Image1.Top);
Image1.Canvas.FillRect(R);
...



Набережных С.   (2002-01-14 22:21) [5]

Недурно было-бы сделать так :

pT:=Point(Label1.left,Label1.top);
pB:=Point(Label1.left+Label1.Width,Label1.top+Label1.Height);

если только это не противоречит Вашим принципам.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
3-99901           Oleon                 2001-12-28 17:32  2002.01.31  
Ну прямо никто не знает что-ли? Не может быть.


1-99992           Анатолий              2002-01-14 07:30  2002.01.31  
Animate


3-99834           катерина              2001-12-25 14:53  2002.01.31  
помогите


1-100002          Илья                  2002-01-15 09:48  2002.01.31  
RichEditControl


14-100057         Дремучий              2001-12-10 21:25  2002.01.31  
Тесты!