Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как сделать лампочку

Страницы: 1 2 3 >
Denver © (2008-09-04 09:29:00)
как сделать в дельфи лампочку маленькую, чтобы true-зеленая, false-красная??? Заранее спасибо.

{RASkov} (2008-09-04 11:55:00) [1]
Да тут и компонентов-то и не нужно, да и кода десяток строк....
А лампочка - это Canvas.Ellipse :)

> [41] Denver © (04.09.08 11:37)
> я думал ты выскочка

Сам ты выскочка, чесслово...

Ega23 (2008-09-04 11:47:00) [2]

> Все сделалось еще проще взял картинку 33*11, где первые
> 11*11 это красная, вторая 11*11 это зеленая, а третья 11*11
> это белая. Так вот мой Lit это свойство TImage.Center, когда
> он false это красная, а когда true - зеленая. :)))

Ужас какой, честное слово. Разве не проще область скопировать на виртуальный битмап?

> я думал ты выскочка типа Медвежонок Пятачок, который пургу
> гонит

Тебе до него ещё расти и расти, если честно.
Кстати, он минимум 2 раза тебе совет давал.

Медвежонок Пятачок (2008-09-04 11:40:00) [3]
Так вот мой Lit это свойство TImage.Center, когда он false это красная, а когда true - зеленая. :)))

Каких только чудовищ не рождает сон разума.
ИмаджЛист и метод гетбитмат. Все!

Denver (2008-09-04 11:37:00) [4]

> Ega23

Ты извини, что зря наехал, я думал ты выскочка типа Медвежонок Пятачок, который пургу гонит. Я до этого использовал TApdLight... че-то там, но переустановил Delphi и Apro ставить не захотел.

Denver (2008-09-04 11:22:00) [5]
Все сделалось еще проще взял картинку 33*11, где первые 11*11 это красная, вторая 11*11 это зеленая, а третья 11*11 это белая. Так вот мой Lit это свойство TImage.Center, когда он false это красная, а когда true - зеленая. :)))

И без всяких заморочек!!!

Vlad Oshin (2008-09-04 11:15:00) [6]

> Деструктор не переопределён.

потому и надо(лучше) их называть стандартно..
тогда не забудешь и другие не будут гадать как вызвать

Ega23 (2008-09-04 11:14:00) [7]
Ой... Он ещё и называется у тебя фиг знает как....

Ega23 (2008-09-04 11:13:00) [8]

> вообще отвратительно написано

Деструктор не переопределён.

Vlad Oshin (2008-09-04 11:11:00) [9]

> Ega23 © (04.09.08 11:08) [33]

вообще отвратительно написано
приколоться ж хотел

brother (2008-09-04 11:10:00) [10]
не круто ли ты разошелся???

> [27] Denver © (04.09.08 11:02)

Ega23 (2008-09-04 11:09:00) [11]
if картинка.left := 0 then a:=true else a:=false;

Стыдно, девушки.... :

a := (картинка.left = 0)

:)

Ega23 (2008-09-04 11:08:00) [12]

> Vlad Oshin © (04.09.08 10:44) [21]

У тебя ошибка. Не сильно заметная с первого взгляда (всего 1 директива и один вызов добавить надо), но товарищ проблем поимеет, если тупо передерёт.

Ega23 (2008-09-04 11:06:00) [13]

> Ты бы лучше по теме базарил, а не словами умными бросался.
> Ты че здесь хотел, прайс-листы что-ли впаривать. Не знаешь
> как людям помочь, и не ... сюда соваться!
>

Кладу на бочку $100. Даже $200 кладу. Народ меня в реале знает, не прокину.
Через неделю наблюдаю компонент "Цветомузыка". Будем ТЗ обсуждать, или ты всё-таки немножко подумаешь, почитаешь несколько раз свой вопрос, подумаешь ещё раз, прочитаешь внимательно вот это вот http://segfault.kiev.ua/smart-questions-ru.htmlи потом задашь свой вопрос иначе?

Denver (2008-09-04 11:06:00) [14]

> oldman

Тоже спасибо. Может и его реализую вместо варианта Vlad Oshin. Какой понравится. :)

Denver (2008-09-04 11:04:00) [15]

> brother

> это и есть обращение к свойству объекта

Да мне надо чтобы это было property Lit: Boolean

Denver (2008-09-04 11:03:00) [16]

> Vlad Oshin

Классный вариант сейчас попробую его реализовать под себя. Спасибо!

brother (2008-09-04 11:03:00) [17]
> но опять же мне надо чтобы было .Lit=false или .Lit=true

это и есть обращение к свойству объекта

Denver (2008-09-04 11:02:00) [18]

> Ega23

Ты бы лучше по теме базарил, а не словами умными бросался. Ты че здесь хотел, прайс-листы что-ли впаривать. Не знаешь как людям помочь, и не ... сюда соваться!

Плохиш (2008-09-04 11:01:00) [19]

> Ega23 © (04.09.08 10:54) [24]

Только не забуть в договоре штраф за не выполнение предусмотреть, размером 10000$ ;-)

brother (2008-09-04 10:57:00) [20]
что есть светомузыка в програмном варианте?

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »