Три кнопки в стиле системных кнопок Windows XP. 2 кнопки имеют собственную процедуру прорисовки, 1 кнопка работает с собственными скинами (формат скинов может быть любой поддерживаемый классом TBitmap).
»»» Скачать: исходные тексты (58кб)
function HasProperty(Obj : TObject; Prop : string) : PPropInfo; begin Result := GetPropInfo(Obj.ClassInfo, Prop); end;
procedure TForm1.Button1Click(Sender: TObject); var p : pointer; begin p := HasProperty(Button1, 'Color'); if p <> nil then SetOrdProp(Button1, p, clRed) else ShowMessage('Button has no color property'); p := HasProperty(Label1, 'Color'); if p <> nil then SetOrdProp(Label1, p, clRed) else ShowMessage('Label has no color property'); p := HasProperty(Label1.Font, 'Color'); if
p <> nil then SetOrdProp(Label1.Fon!
t.Color, p, clBlue) else ShowMessage('Label.Font has no color property'); end;
ListBox + Картинка + Список
Добрых суток. Вот какой вопрос. Хотелось бы в ЛистБокс-е на поле вывести рисунок на всё поле, а поверх текст, но что ...
Нить + сокет или жизнь после смерти
Привет всем я в нити создаю объекты (clientsocket) но нить умирает раньше чем успевает произоити хоть одно событие у ...
Мышь над компонентом
Мне нужно сотворить некое действие если мышь была неподвижна 3 сек над компонентом Image1. Как мне такое заколбасить ...
Маленькие хитрости: цветной Progress Bar
Речь пойдет об индикаторе процесса выполнения (Progress Bar'е) нестандартного цвета. Казалось бы, ничего сложного в этом нет. Просто берем и меняем свойство Color у компонента. Но у компонента нет такого свойства. Вот тут-то и начинается тот самый ступор, в который часто впадают новички в Delphi.
Технологии Пентагона на службе российских программистов
В книге рассмотрены методологические подходы к созданию крупных программных систем. Выделены важнейшие навыки программирования, даны рекомендации, направленные на повышение индивидуального мастерства разработчиков программ. Обобщена практика управления проектами, представлены современные методики разработки программного обеспечения: модели CMM и SPMN, спиральная и итерационная концепции, методика персонального совершенствования PSP, технологии экстремального программирования и гибкая методика управления проектами SCRUM. Книга предназначена для широкого круга программистов и руководителей проектов в области информационных технологий.
Автор: Бобровский С. И.
Хокку дня
О, с какой тоской Птица из клетки глядит На полет мотылька!
Афоризмы
Настоящий джентльмен вежлив и приветлив с вами, даже после того, как что-то вам продал.
Фраза дня
Хорошая болезнь склероз: ничего не болит, и каждый день новости.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Миннесоте (США) вам грозит попасть в тюрьму за то, что вы спите голым.
В Аляске (США) запрещается (добавим -и не рекомендуется) будить медведей, чтобы их сфотографировать, а также, выбрасывать живых лосей из самолета.
И на закуску коротенький анекдот
Сын звонит домой: - Ма, привет - папу позови!.. Па, привет - Спартак выиграл? - Да, конечно!.. Маму позвать?! - Угу... Ма, слышала?! Папа разрешил!!!