Delphi. Трюки и эффекты. Александр Чиртик

Читать онлайн книгу.

Delphi. Трюки и эффекты - Александр Чиртик


Скачать книгу
правда, выполнять она может любое действие.

      Начертание шрифта можно также изменить для стандартной кнопки. Как это можно сделать, показано в листинге 3.15.

Листинг 3.15. Изменение начертания шрифта

      procedure TForm1.cmbItalicBoldMouseMove(Sender: TObject;

      Shift: TShiftState; X, Y: Integer);

      begin

      cmbItalicBold.Font.Style := [fsItalic, fsBold];

      end;

      procedure TForm1.lblItalicMouseEnter(Sender: TObject);

      begin

      lblItalic.Font.Style := [fsItalic];

      end;

      В листинге 3.15 используется обработчик MouseMove для кнопки потому, что, к великому сожалению, обработчики co6biTHftMouseEnter nMouseLeave для нее (по крайней мере, с вкладки Standard) не предусмотрены.

      3.2. Клавиатура

      Клавиатура является основным средством для ввода информации в компьютер, поэтому не будем обходить стороной и рассмотрим некоторые не так часто используемые или не такие очевидные возможности работы с ней.

      Определение информации о клавиатуре

      Начнем с небольшого примера, позволяющего определить некоторую информацию о клавиатуре (листинг 3.16). Пример основан на использовании API-функции GetKeyboardType.

Листинг 3.16. Определение информации о клавиатуре

      procedure TForm1.FormCreate(Sender: TObject);

      begin

      //Определяем тип клавиатуры

      case GetKeyboardType(0) of

      1: txtType.Text := 'PC/XT или совместимая (83 клавиши)';

      2: txtType.Text := 'Olivetti «ICO» (102 клавиши)';

      3: txtType.Text := 'PC/AT (84 клавиши) или похожая';

      4: txtType.Text := 'Расширенная (101 или 102 клавиши)';

      5: txtType.Text := 'Nokia 1050 или похожая';

      6: txtType.Text := 'Nokia 9140 или похожая';

      7: txtType.Text := 'японская';

      end;

      //Определяем код типа производителя

      txtSubtype.Text := IntToStr(GetKeyboardType(1));

      //Определяем количество функциональных клавиш

      txtKeys.Text := IntToStr(GetKeyboardType(2));

      end;

      При создании формы происходит заполнение текстовых полей информацией о типе клавиатуры, коде типа, присвоенном производителем, и количестве функциональных клавиш.

      Конец ознакомительного фрагмента.

      Текст предоставлен ООО «ЛитРес».

      Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.

      Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.

iVBORw0KGgoAAAANSUhEUgAAAjMAAADUCAMAAABeUlLjAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAABhQTFRF/v/+AwAIXpnG49G0uopbps/laxwwH0+QE+wi/QAAHhBJREFUeNrsXYmio6oSRBb9/z8e6b3RJGrMWeY0792ZiWILWgGD1VUpRYlytkxRopwqK2Y+icdfEjPKuRsQmIkSmInyVZgpUtr99/fG0JuYdzY4yjnM1GnKtf/xAczUJddpqXW5EzNrW1sptzY4yrm5ab2p642Yp5Y+gJmG4fOdc9MHGhzlOmZKhT9bL+vfV7/JOiZw+B6S/8Pgt2AG2ltKzdjogs1eN5pPWT/5rVHuwExdypxheOgb+6f25phA4SF+6f9a/8YtN2BmbWyPWSEynwE3Fj4PdEL3USuudy0w4zFTprx+6thZ/8r907zchBnBCt+1tzAzLcs8QaCytrCk/idHxo19S4VP0IkBsW90LTDjMVMBM5kws25flnwjZubbMCMgL/hvAPoMTU64kccZ6gTvo1a80bXAzHPM5DfCbzGzlNsxU2E86R+Wluy8sw4lNSNmMiGWzg6teKNrgZnhazvD3LRebZyb1htx4ziTb8dMIRxCVDs34UachaATiplcdGuUN9ZnWsH1mbrUGQbyPry3/tzw9jPwem97kAKzQ39sxb/fXJ/JuKq0BuuNhRHFnmGGcaT3AR5+2ubs17sWmNmU4j6UG+am29d89lr95P7vd+Jy1wIznwv/K2JGCcxE+TBmokQJzlWUmJsCM4GZwExgJjATmAnMRDmDmUrLYqW11J6vkh2/v52AacmYhTY2+/lSzK8q3M69s+Klkj623S7Cp+aO+oF4KKmcx0yl5fyaW399kGq+BTMzvDeoS385kQu9UFw/9pcUfe2/XYjZX59+2cJ/P9t6RVqp+r6Drg1dKtyz/qv5LvKRvV7Ry1l+3GuuuqSy6KBxHDNEQYK/ar5hGJP20HXCKwvvgdaPFXeVdjHm14EGelBaUkozwkIvFdaY89BFPhIPnPNPhUwHeCctluUMZvoY28lsDbuOd7LhuNxw912YyRA/666rmJlo/qQmQpNxIgDmpqIROoc9KXwETTl21oRoZRNSm6nNrTg8yqUaMCNdrIv5Mso43njCa/YvbStv3fnQqO2JJ0s+sDTXFemam8rdhaGrkuwRrwYax4XIwH5cFiCf4PteuAQ49tZWT9MgH2Fm/dZ1ysUNmOnvqvtXeG38+l2Hrz78Aa3tlCriW0Dnau5zIW2FgWAGXii8G1/W/8GmTBXWPc3c5B7UY4YofnSpBsxoF/FIilOQsYMIKn1y7kNXo2k6S1v7ZV+3ZGw4VeFe9f3EaQUK67z0W4MXon+GbRnbwlGpkr8wdMspCh7x8oZYLgRc6YIn7xMz8ggy8L/7VNfKaRrkY8zA3X4TM/g8UzoNptEkN8/IGMPWQmeQEw8XqEF3eGv/N2Bk/RM/0SauABe7MGb62Wxze0XcV4Vy0ammeewiHukxQ1Eqzsz91pap8XMB4L5RY/EJA6rIPaj9Fjec6So2FB9GqNU9EO7SqFLJXBgKbqJM7RRmqn4B8GIhUy/j96H36nzy2RPMrF/SG8YZnIepq/2PfndqptZqZ/jRDBITaCsMPL0dcFGxo7CJK8x9fi9mnCm2ubUng2V5QN6OM9xFPFIw00zbs2IGRgTZV/j3BzWcq+A9qMs6GyAOSj9oHULwNwbc+gUmBNolUamSuzAUnKPgX6m+YDVZzECXKRqgAwbVnMyIVW7ETJmnWzDTvzkTN3cdYWur2XcmaestZvpdhytmUAWbBDN91LeYMT3BiVWe33GeHDGDXaQjuLfNXQ/FzHqkYiYJZhY+G2AGP/QmQ6NXVBe62wtfCB5ncJdEpUruwlA8joJ/ncFM71Sh88CoJZiBhzncfRUzOEBWblGVh8f3MVNhSKbIkEbQhwrbGemcYga24m2cs/mRCJu4wkxzxg5mqnZBL5V/BpYuajv1dxPNmPAzrBAgsvnNKk2ijhCssBeQSWRGS5pV8EIU3QYPQtnOTX2ysncZ4/kjzsxNwHOEL0KfP1fQwcNCH+l6Su5Cu6+u2fbkW7gG8LQBT5c8HZzkceuaz6QPd+vTYsU+9wtCVE5sfTOdg126FYAzw+MlriCZTQ0DM4Nez9ZTiOeMT5YV+KJ8qWBQ6btdF6WD/cryT206D0xvM3BOgUOb5Vo1XtTqDS8zNRB6AWfnbbDeBQ2lC0F3jHZViUqV/IXhD0WPeL3EMvzWTknZjpv1zgsLl5NbSf3Qu4Oy2zycG1rZtl627gybJSd/2MFF4tP1YPzmp/P0oEvbfj29B8da4S7MXrz5xG/t/+99036OJE8BbbMQQZu+JLWywqsZXAD7+uW7Jz08vw78X2FmP32Jtu7sfLznM6D5vtcEj3v4ejaJ99pRLtyAwEyUwEyUj2MmSpSzeQdRokSuSpR4ngnMBGYCM4GZwExgJjAT5RhmnixmX2U8O81wTt1o5gPtaycSVqwO0ulElyi3YuYJ27dc1Q+3mlSYyFFnzN7Ad6suoaPWQ3KIBjOYGBI6Vd83zjx511nexYwhJC30WpWosskmdMz5FGY41SXK92GGcjMwc6KZhIZ6H2aQX0a5V2NCx5FBw2JGs4dINp2zOEw+SvFFkm6KpdQ0l7xCaY8xgL3GzJKB/9d5ow0lyPNMCQ33YQYphP0EaUzoENLs4ecZzgShP
Скачать книгу