Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
14-1083774019
RealRascal
2004-05-05 20:20
2004.05.30
Геометрия


11-1072555653
Юрий Ж.
2003-12-27 23:07
2004.05.30
Thread?


3-1084361939
dimon76
2004-05-12 15:38
2004.05.30
Как ускорить работу команды для ADO UpdateBatch


3-1084334558
BanderLog_t
2004-05-12 08:02
2004.05.30
Вопрос по UDF в FB 1.5


1-1084558378
Bulanov
2004-05-14 22:12
2004.05.30
Развернуть приложение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский