Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Январь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 343
от 02.01.2006, 22:00

Администратор:Калашников О.А.
В рассылке:Подписчиков: 231, Экспертов: 51
В номере:Вопросов: 2, Ответов: 5

Вопрос № 32326: Здравствуйте! Подскажите, пожалуйста, на примере простой программы (см. ниже) как организовать подсветку точек. В таблице вводятся значения, кот. являются координатами окружностей, эти окружности изображаются на Image1.Canvas с черной заливкой. Н...
Вопрос № 32338: Здрайствуйте. У меня есть проблемы с ISAPI в Delphi. У меня серверы Apache, IIS и файловая система NTFS. Я сам думая что я неправильно настроиль свойства сайта в IIS. Только прашу не пищите, что надо File/New/Other там WebServer Application. Если мож...

Вопрос № 32.326
Здравствуйте!
Подскажите, пожалуйста, на примере простой программы (см. ниже) как организовать подсветку точек. В таблице вводятся значения, кот. являются координатами окружностей, эти окружности изображаются на Image1.Canvas с черной заливкой. Необходимо организовать следующую взаимосвязь таблицы с рисунком: при выборе ячейки в таблице - происходит подсветка соответсвующей окружности синим цветом. Это все получилось, но трудность в том, что если выбрать другую точку, то подсвечивается вновь выбранная и предыдущая окружности. Как организовать подсветку, только текущей выбранной окружности, чтобы предыдущая становилась вновь черной.
Вот код простой программы, на самом деле массивы являются динамическими.

Приложение:

Отправлен: 28.12.2005, 11:21
Вопрос задал: Lazut4ik (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: sir henry
Здравствуйте, Lazut4ik!
Вам нужно запоминать предыдущий цвет окружности, перед перерисовкой, чтобы потом, когда нужно будет выделять другую, предыдушая опять перерисовывалась своим прежним цветом.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 28.12.2005, 11:39
Отвечает: D.M.
Здравствуйте, Lazut4ik!
Сам же и ответил на свой вопрос.... :-)

Когда рисуешь выбираешь первый объект (кружок), то ты сохраняй куда-нить все его параметры(что-то типа структуры:цвет. координаты, способ заливки), а когда выбираешь следующий, то просто в начале закрашиваешь из сохраненной структуры предыдущий, а затем красишь выбранный заново......
Надеюсь прально понял вопрос.....
---------
Зёзики руллллят :)
Ответ отправил: D.M. (статус: 1-ый класс)
Отправлен: 28.12.2005, 12:44
Отвечает: Лучников Юрий Владимирович
Здравствуйте, Lazut4ik!
Перед тем как закрасить выбираемую точку синим, предыдущую нужно закрасить черным...

Успехов!
Ответ отправил: Лучников Юрий Владимирович (статус: 8-ой класс)
Отправлен: 28.12.2005, 12:51
Отвечает: Diman_A
Здравствуйте, Lazut4ik!
Процедура select:
{Проще всего перед тем, как подсвечивать очередную окружность, очистить Timage, например:}
Image1.Picture := nil;
{А потом нарисовать все окружности заново:}
for i:=1 to 4 do
begin
x[i-1]:=StrToFloat(StringGrid1.Cells[1,i]);
y[i-1]:=StrToFloat(StringGrid1.Cells[2,i]);
Image1.Canvas.Brush.Color:=clblack;
Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.Ellipse(trunc(x[i-1])-5,trunc(y[i-1])-5,trunc(x[i-1])+5,trunc(y[i-1])+5);
end;
{или проще :}
button1.click;
{И выделить нужную}
Image1.Canvas.Brush.Color:=clblue;
Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.Ellipse(trunc(x[Arow-1])-5,trunc(y[Arow-1])-5,trunc(x[Arow-1])+5,trunc(y[Arow-1])+5);
Ответ отправил: Diman_A (статус: 1-ый класс)
Отправлен: 28.12.2005, 14:06

Вопрос № 32.338
Здрайствуйте. У меня есть проблемы с ISAPI в Delphi. У меня серверы Apache, IIS и файловая система NTFS. Я сам думая что я неправильно настроиль свойства сайта в IIS. Только прашу не пищите, что надо File/New/Other там WebServer Application. Если можете давайте ответ немного подробнее или посоветувуйте какую нибуд книгу.
Отправлен: 28.12.2005, 14:16
Вопрос задал: E.T.T (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: sir henry
Здравствуйте, E.T.T!
Вам, наверное, постоянно попадаются чтецы мыслей, просто на каждом шагу.
Потрудитесь, для начала, изложить, какие у Вас проблемы с ISAPI в Delphi.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 28.12.2005, 14:40
Оценка за ответ: 3

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное