Текущий архив: 2004.05.30;
Скачать: CL | DM;
Внизпроцедура реагирующая на положение указателя мыши Найти похожие ветки
← →
novi (2004-03-13 22:30) [0]Уважаемые мастера! Помогите пожалуйста.
Условие задачи следующее: на форме расположено три круга разного цвета. Сначала они прозрачные, но по наведению мыши в круг они должны заливаться своим цветом, после увода мыши должны стать опять прозрачными.
Написал функцию определения мыши, а процедуру закраски ...
function Svet(var s:TBrushStyle):TBrushStyle;
var r, cx, cy, d:real; shp: TShape;
x, y: integer;
begin
r:= shp.Width/2;
cx:= shp.Width/2;
cy:= shp.Height/2;
d:= sqrt(sqr(x-cx)+sqr(y-cy));
if d<r then s:= bsSolid else s:= bsClear;
end;
← →
Mihey © (2004-03-13 22:53) [1]И какой вопрос то???
← →
novi (2004-03-13 23:01) [2]Не получается закрасить.
← →
Mihey © (2004-03-14 00:41) [3]Есть:
var r, cx, cy, d:real; shp: TShape;
x, y: integer;
begin
r:= shp.Width/2;
cx:= shp.Width/2;
cy:= shp.Height/2;
d:= sqrt(sqr(x-cx)+sqr(y-cy));
if d<r then s:= bsSolid else s:= bsClear;
end;
Надо:
var r, cx, cy, d:real; shp: TShape;
x, y: integer;
begin
r:= shp.Width/2;
cx:= shp.Width/2;
cy:= shp.Height/2;
d:= sqrt(sqr(x-cx)+sqr(y-cy));
if d<r then Result := bsSolid else Result := bsClear;
end;
← →
default © (2004-03-14 01:38) [4]можешь кстати TShape использовать, тогда вообще ничего считать не нужно...
← →
Думкин © (2004-03-14 15:56) [5]Телепатироване подсказывает какие события при находе и исходе?
Так есть такие в дельфях - onMouseLeave, onMouseEnter - только осталось их работать заставить.
Страницы: 1 вся ветка
Текущий архив: 2004.05.30;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.062 c