Недавно добавленные исходники

•  TDictionary Custom Sort  3 225

•  Fast Watermark Sources  2 991

•  3D Designer  4 750

•  Sik Screen Capture  3 259

•  Patch Maker  3 467

•  Айболит (remote control)  3 528

•  ListBox Drag & Drop  2 904

•  Доска для игры Реверси  80 781

•  Графические эффекты  3 843

•  Рисование по маске  3 171

•  Перетаскивание изображений  2 544

•  Canvas Drawing  2 672

•  Рисование Луны  2 500

•  Поворот изображения  2 093

•  Рисование стержней  2 120

•  Paint on Shape  1 525

•  Генератор кроссвордов  2 183

•  Головоломка Paletto  1 730

•  Теорема Монжа об окружностях  2 158

•  Пазл Numbrix  1 649

•  Заборы и коммивояжеры  2 016

•  Игра HIP  1 262

•  Игра Go (Го)  1 200

•  Симулятор лифта  1 422

•  Программа укладки плитки  1 177

•  Генератор лабиринта  1 512

•  Проверка числового ввода  1 297

•  HEX View  1 466

•  Физический маятник  1 322

•  Задача коммивояжера  1 357

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Заменять умляуты во время набора



Оформил: DeeCo

{ 
  This code allows you to replaces umlauts (i.e. 'д', 'ц', etc.) 
  with 'ae', 'oe', etc. while typing. 

  Mit diesem Code kann man Umlautzeichen (д, ц, ь usw.) durch 
  ae, oe usw. ersetzen. Dies geschieht applikationsweit, wдhrend der Eingabe. 
}

 procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);
 type
   TReplacement = record
     chIn: Char;
     chOut: string[2]
   end;
   TReplacements = array [0..6] of TReplacement;
 const
   Replacements: TReplacements = ((chIn: 'д'; chOut: 'ae'),
     (chIn: 'ц'; chOut: 'oe'),
     (chIn: 'ь'; chOut: 'ue'),
     (chIn: 'Д'; chOut: 'Ae'),
     (chIn: 'Ц'; chOut: 'Oe'),
     (chIn: 'Ь'; chOut: 'Ue'),
     (chIn: 'Я'; chOut: 'ss'));
 var
   i: Integer;
   c: Char;
 begin
   Handled := False;
   if Msg.Message = WM_CHAR then
   begin
     if Chr(Msg.wParam) in ['д', 'ц', 'ь', 'Д', 'Ц', 'Ь', 'Я'] then
     begin
       for i := Low(Replacements) to High(Replacements) do
         if Chr(Msg.wParam) = Replacements[i].chIn then
         begin
           Msg.wParam := Ord(Replacements[i].chOut[1]);
           with Longrec(Msg.lParam) do
             Hi := (Hi and $FF00) or VKKeyScan(Replacements[i].chOut[2]);
           PostMessage(Msg.hwnd, WM_CHAR, Ord(Replacements[i].chOut[2]),
             Msg.wParam);
           with Longrec(Msg.lParam) do
             Hi := (Hi and $FF00) or VKKeyScan(Char(Msg.wParam));
           Break;
         end;
     end;
   end;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AppOnMessage;
 end;







Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте