Компоненты и примеры

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
Аватара пользователя
VirtUX
энтузиаст
Сообщения: 880
Зарегистрирован: 05.02.2008 09:52:19
Откуда: Крым, Алушта

Сообщение VirtUX »

alexs писал(а):если нет - попытаюсь объяснить насколько сам понял

Смотрел TRXDBLookupCombo - ничего не понял, как и в TLabel и иже с ними.
alexs писал(а):RxFPC RxLockupDBComboBox

Таких не нашел
Maxizar
постоялец
Сообщения: 385
Зарегистрирован: 20.03.2010 18:48:14

Сообщение Maxizar »

Предлагаю вашему вниманию самописный и очень простенький компонент TImageButton.
TImageButton. - кнопка на основе 3х изображений с поддержкой прозрачности. Класс наследуется от TCustomImage и представляет собой
по идее TImage, но уже с 4 Picture.. Один радной из TCustomImage и 3 наших для картинок.

Компонент может работать в двух режимах:
1 - как кнопка (CheckBoxStyle=False) по умолчанию
в этом режиме
FMEnterPicture : TPicture; //Картинка, которую будет видно при наведении мышки
FMLDownPicture : TPicture; //Картинка, которую будет видно при нажатии л.к.
FMLeavePicture : TPicture; //Картинка, которую будет видно при выхода мышки из области компонента и когда Enabled=False

2 - Рижим переключателя (CheckBoxStyle=True) в этом режиме:
Кнопка играет роль CheckBox-a
в этом режиме
FMEnterPicture : TPicture; //Картинка, которая сообщает что Checked=False;
FMLDownPicture : TPicture; //Картинка, которая сообщает что Checked=True;
FMLeavePicture : TPicture; //Картинка, которую будет видно когда Enabled=False
так же в этом режиме добавлено событие OnChange :TNotifyEvent, которое происходит при переключении Checked.

Делалось для более красивого и быстрого оформления About форм. можно сделать что-то типа иконки вызова Дом страницы как это сделано в CCleaner и т.п.
Почему сделано именно на трех разных Picture, а не через ImageList. Да фиг его знает.... Ну если вам это нужно для увеличения скорости можно и переписать.... Возможно я сам когда - нибудь это осилю :)

Пример About формы. (Кнопки не активны)
Изображение
А тут уже при наведении указателя мышки на иконку:
Изображение
У вас нет необходимых прав для просмотра вложений в этом сообщении.
Последний раз редактировалось Maxizar 30.12.2010 17:29:09, всего редактировалось 1 раз.
Maxizar
постоялец
Сообщения: 385
Зарегистрирован: 20.03.2010 18:48:14

Сообщение Maxizar »

Выкладываю еще один мелкий компонент: Анимированную иконку в трее.
Модуль AniTrayIcon содержит описание класса TAnimateTrayIcon -
Иконка в трее, с возможностью анимации.
Класс наследуется от TCustomTrayIcon и представляет собой по идее TTrayIcon,
но уже с ImageList и Timer.

Компонент может работать в двух режимах:
1 - Статический (Animate=False) по умолчанию
в этом режиме
Мы имеем почти стандартную иконку в трее, но с возможностью менять иконку при помощи IconIndex
Иконки будут браться из ImageList


2 - Рижим анимации (Animate=True) в этом режиме:
Вкл Таймер, который будет срабатывать с частотой AnimateInterval и изменять иконку(циклическим перебором всех
из списка ImageList)

так же в этом режиме добавлено событие OnAnimate :TNotifyEvent, которое происходит при каждом срабатывании таймера
У вас нет необходимых прав для просмотра вложений в этом сообщении.
IKS7
незнакомец
Сообщения: 2
Зарегистрирован: 25.10.2010 23:00:32

Сообщение IKS7 »

В лабах по программированию нужно использовать компоненты TWordApplication, TWordDocument и TExcelApplication, TExcelWorkbook :( , знаю в делфи они есть, но мне нужно найти их для Lazarus. Поделитесь если есть, пожалуйста)))) Приму любую помощь - можно ссылку, можно название пакета, а можно и на почту мне скинуть - pevzner@credos.ru. :D
Padre_Mortius
энтузиаст
Сообщения: 1265
Зарегистрирован: 29.05.2007 17:38:07
Откуда: Спб

Сообщение Padre_Mortius »

Нет таких компонентов для Lazarus
IKS7
незнакомец
Сообщения: 2
Зарегистрирован: 25.10.2010 23:00:32

Сообщение IKS7 »

тогда это
Безымянный.png
значит препод, пес старый, в пайнте нарисовал))))
картинка из методички его, принесу ему на delphi пусть так ставит!
У вас нет необходимых прав для просмотра вложений в этом сообщении.
Аватара пользователя
Nik
энтузиаст
Сообщения: 573
Зарегистрирован: 03.02.2006 23:08:09
Откуда: Киров
Контактная информация:

Сообщение Nik »

IKS7 писал(а):тогда это
Безымянный.png
значит препод, пес старый, в пайнте нарисовал))))
картинка из методички его, принесу ему на delphi пусть так ставит!

Значёк в загловке окна как бы намекает, что форма собрана в Delphi версии 8 примерно.
jotto
новенький
Сообщения: 17
Зарегистрирован: 26.10.2010 10:44:20

Сообщение jotto »

KControls - Навороченые Grid и Dbgrid
sag19330184
незнакомец
Сообщения: 1
Зарегистрирован: 06.12.2010 20:44:15

Сообщение sag19330184 »

троян в первом посте темы - как минимум JS/IFrame.gen. возможно еще что то. MCAfee отловил.

тут: RxLib от Лагунова Алексея
http://www.alexs75.narod.ru/fpc/rxfpc/index.html
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

sag19330184 писал(а):тут: RxLib от Лагунова Алексея

Там оно очень старое!
лучше брать из СВН
Аватара пользователя
BadBoyAlex
постоялец
Сообщения: 119
Зарегистрирован: 08.06.2010 12:42:23
Откуда: Россия, Белгород
Контактная информация:

Сообщение BadBoyAlex »

Подскажите, пожалуйста, есть ли компоненты или методы работы с lzma архивами (.7z), чтобы распаковывали и упаковывали? Заранее спасибо!
Vadim
долгожитель
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

Сообщение Vadim »

Аватара пользователя
BadBoyAlex
постоялец
Сообщения: 119
Зарегистрирован: 08.06.2010 12:42:23
Откуда: Россия, Белгород
Контактная информация:

Сообщение BadBoyAlex »

Vadim писал(а):BadBoyAlex
http://www.rg-software.de/


В Lazarus'е не пашет =(
Vadim
долгожитель
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

Сообщение Vadim »

BadBoyAlex
А вот это: http://www.birtles.org.uk/programming/ ?
Ism
энтузиаст
Сообщения: 908
Зарегистрирован: 06.04.2007 17:36:08

Сообщение Ism »

ой
Ответить