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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Апрель 2002   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 07.04.02 09:04

Кое-что из нашей кладовки   |x|
  • TSCR z00m c0d@nm.ru   (06.04.02 18:16)
    Graphic Tool's (Shapes, RGB, Some mathematical for Draw, etc.)
    »»» Скачать: исходные тексты (4кб)
  • DrawScene 3.0 для Delphi5 Александр Омельченко alex@econom.zp.ua   (01.03.01 11:55)
    Библиотека из двух компонент для работы со спрайтами. Требует установленной RxLib.
    1 кмпонент Сцена(TScene) - заливает фон цветом или вставляет фоновый рисунок, выстраивает изображение в фоновом буфере затем выводит сцену на экран.  
    2 кмпонент Спрайт(TSprite) - поддерживает как статичные  так и  анимированные спрайты, время жизни спрайта и т.д.
    »»» Скачать: исходные тексты (10кб) демонстрационный EXE файл (275кб)
  • Clock (Часы) ripp   (05.04.02 05:19)
    Часы не мои, немного переработал получилось прикольно.
    »»» Скачать: исходные тексты (46кб) демонстрационный EXE файл (151кб) посмотреть скриншот
Лучшее из нашего FAQ   |x|
Как программно переключить раскладку клавиатуры? 


LoadKeyboardLayout('00000409', KLF_ACTIVATE); //  английский
LoadKeyboardLayout('00000419', KLF_ACTIVATE); // русский

»»» Прислать свои комментарии

Советы по программированию в Дельфи

Совет 6. Использование графики в Listbox

У класса TListBox (и TComboBox тоже) есть свойство Style, определяющее порядок рисования объекта. По-умолчанию оно установлено в lbStandard и за внешний вид объекта отвечает Windows. Если установить это значение в lbOwnerDrawFixed или lbOwnerDrawVariable, то можно несколько разнообразить внешний вид объекта. Разбираться лучше всего на конкретном примере, так что попробуем создать Listbox, который отображал имена графических файлов какой-нибудь директории вместе с картинками.

Чтобы заполнить Listbox надо написать следующее (чтобы каждый файл не прописывать можно просто послать сообщение):
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
begin
s:='c:\windows\*.bmp'#0;
ListBox1.Perform(LB_DIR, DDL_READWRITE, Longint(@s[1]));
end;

Здесь мы указали ListBox’у, какие файлы требуется отображать.

Устанавливаем свойство Style нужно установить в lbOwnerDrawFixed и создать обработчик события OnDrawItem:
procedure TForm1.ListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
Bitmap: TBitmap;
Offset: Integer;
BMPRect: TRect;
begin
with
(Control as TListBox).Canvas do
begin
{очищаем прямоугольник}
FillRect(Rect);
{считываем картинку}
Bitmap:=TBitMap.Create;
Bitmap.LoadFromFile('c:\windows\'+ListBox1.Items[Index]);
if Bitmap <> nil then begin
{вычисляем квадрат для показа картинки}
BMPRect:=Bounds(Rect.Left+ 2, Rect.Top + 2,
Rect.Bottom-Rect.Top-2,
Rect.Bottom-Rect.Top-2);
{рисуем картинку}
StretchDraw(BMPRect, BitMap);
Offset := Rect.Bottom-Rect.Top + 6;
end;
{выводим текст}
TextOut(Rect.Left+Offset,Rect.Top,Listbox1.Items[Index]);
{не забыть освободить!}
Bitmap.Free;
end;
end;

Чтобы картинки получились побольше, значение свойства ItemHeight можно увеличить.

Автор: Михаил Христосенко
Сайт о программировании в Дельфи http://MihanDelphi.narod.ru
(c) при публикации этого материала ссылка на автора обязательна

Обсуждается в конференциях   |x|
  • Delphi и FoxPro-таблицы
    Что думают Мастера относительно работы Delphi и FoxPro-таблиц? Потребовалось перенести проект с Microsoft Visual FoxPro ...
  • Сетевая карта
    Подскажите пожалуйста как узнать серийный номер сетевой карты (не путать с MAC адресом)???
  • Помогите в Систем Инфо !!
    Нужна вот информация о системе пользователя. Подскажите, как можно раздобыть следующее: - Название проца; - Название ...
  • ComPort
    Ребят, может кто подскажет? Короче есть прога которая работает через ComPort с опрделенным устройством. Работает везде ...
  • Отправка почты без формы
    Возможно ли отправить письмо на e-mail (со вкладеным файлом) или просто этот файл на e-mail, используя проект без ...
  • база INTERBASE
    Всем привет. Вот вопрос проект состоит из 5 одинаковых баз INTERBASE. Можно ли создать запрос, чтобы проводить выборку ...
  • Немецкий алфавит
    Никак не получается отобразить немецкие символы - ö-ä-ü-ß, короче о,а,у-умлауты - в метке(Label). ...
У нас большой выбор статей   |x|
Как сделать WebBrowser средствами Delphi 5.
Я все время натыкался на вопросы о компоненте TWebBrowser. Сначала я думал, что все просто, но когда самому понадобилось написать приложение с использованием TwebBrowser… оказалось, что не все так просто!
Новинки книжного рынка   |x|
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Другие сайты о DELPHI   |x|
UtilMind Solutions
Более 40 компонент, в основном бесплатных.
» Оценка сайта: 4
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Согласны ли вы его покупать ежемесячно?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
с ветки на ветку
тихо сбегают капли...
Дождик весенний.

Афоризмы
Задай себе вопрос: "Что ты делаешь лучше - живешь или работаешь?". Ответь на него и сделай выводы....

Фраза дня
Я умираю, но об этом - позже...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Нью Джерзи (США) водителям нельзя самим заправлять машину. На всех заправках этим должен заниматься обслуживающий персонал.
В Арканзасе (США) считается преступлением неправильно произнести название этого штата.

И на закуску коротенький анекдот
- Милый, у тебя есть что-нибудь пожевать?
- Есть. Но зачем это жевать?

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=9873130

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное