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

Рассылка сайта "Планета Дельфи"

Подписаться Бесплатная новостная рассылка Подписчиков 19 RSS
←   Апрель 2004   →
 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


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


Сайт рассылки: http://www.konstantin17.narod.ru/
Открыта: 06-03-2004

Автор
Константин

Статистика

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

Рассылка сайта "Планета Дельфи" Выпуск №5


Информационный Канал Subscribe.Ru

Преобразование BMP в JPG

Сегодня я хочу показать весьма интересный и оригинальный прием. Недавно у меня появилась задача: перекодировка jpg в bmp и наоборот. Порывшись в инете, я нашел решение своей проблемы. Это просто как все гениальное. Для начала дописываем в раздел uses "Jpeg". Теперь объявляем две переменные: одну типа TBitmap, вторую - TJpeg. Теперь заполняем переменную Jpeg содержимым файла. Jprg.LoadFromFile('filename');  и связываем содержимое Jpeg с Bitmap: Bitmap.Assign(Jpeg); И теперь полученное изображение либо выводим в TImage (Image1.Canvas.Draw(0,0,Bitmap)) или сохраняем в файл (Bitmap.SaveToFile('filename')). Рабочий пример смотрите на моем сайте - Перекодировщик 1.0

Как поменять кнопки мыши местами

Код примерно следующий:

SwapMouseButton(true); // Для левши 

SwapMouseButton(false); // Обратно

Как ограничить область передвиджения мышки

Сначала объявляем переменную типа TRect. Затем инициируем ее: Rect(0,0,100,100). Затем используем функцию ClipCursor, передавая ей указатель на эту переменную: ClipCursor(@Rect). Все гениальное просто!

Как переключить раскладку клавиатуры

var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);//На русский
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);//На английский
end;

Как сделать кнопку ПУСК неактивной

Все просто, как обычно:

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0, 'Button', nil), true);// Для включения
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
    0, 'Button', nil), false);//Для выключения

Как программно вырубить монитор

А так:

SendMessage(Application.Handle,WM_SYSCOMMAND, SC_MONITORPOWER,0)//вырубить
SendMessage(Application.Handle,WM_SYSCOMMAND, SC_MONITORPOWER,-1)//включить

 

На сегодня все. Приношу свои извинения за то что выпуск вышел не вовремя. Это связано с Пасхой, чтоб ее...

Если у вас есть замечания, предложения или пожелания, пишите мне. Буду очень рад с вами пообщаться.

С уважением, Константин

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное