Исходники и листинги ::: Delphi ::: Кодировщик En-Rus v.1.0

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

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

unit MainUnit;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, Buttons,shellapi, Menus;

type

  TMainForm = class(TForm)

    EditInput: TEdit;

    EditResult: TEdit;

    ButtonResultOk: TButton;

    LabelResult: TLabel;

    LabelInput: TLabel;

    ButtonExit: TButton;

    ButtonHide: TButton;

    PopupMenuTray: TPopupMenu;

    NCloseTray: TMenuItem;

    NOpenTray: TMenuItem;

    MainMenu: TMainMenu;

    NHelp: TMenuItem;

    NAboutProg: TMenuItem;

    NProgram: TMenuItem;

    NExit: TMenuItem;

    NHideTray: TMenuItem;

    ColorDialog: TColorDialog;

    NFormColor: TMenuItem;

    NSep: TMenuItem;

    procedure ButtonResultOkClick(Sender: TObject);

    procedure ButtonExitClick(Sender: TObject);

    procedure ButtonHideClick(Sender: TObject);

    procedure NOpenTrayClick(Sender: TObject);

    procedure NCloseTrayClick(Sender: TObject);

    procedure NAboutProgClick(Sender: TObject);

    procedure NFormColorClick(Sender: TObject);

  private

    Procedure IconTray(n:Integer;Icon:TIcon);

    Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;

    Procedure IconMouse(var Msg:TMessage); message WM_USER+1;

  public

    { Public declarations }

  end;

var

  MainForm: TMainForm;

  const

  EngLang :string = '~!@#$%^&*()QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?`1234567890qwertyuiop[]asdfghjkl;zxcvbnm,.''/Ё!"№;%:?*()ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,ё1234567890йцукенгшщзхъфывапролджячсмитьбюээ.';

  RusLang :string = 'Ё!"№;%:?*()ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,ё1234567890йцукенгшщзхъфывапролджячсмитьбюэ.~!@#$%^&*()QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?`1234567890qwertyuiop[]asdfghjkl;zxcvbnm,.''/';

{$R *.dfm}

implementation

Procedure TMainform.IconTray(n:Integer;Icon:TIcon);

Var Nim:TNotifyIconData;

begin

  With Nim do

  Begin

    cbSize:=SizeOf(Nim);

    Wnd:=Mainform.Handle;

    uID:=1;

    uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;

    hicon:=Icon.Handle;

    uCallbackMessage:=wm_user+1;

    szTip:='Кодировщик v. 1.0';

  End;

  Case n OF

    1: Shell_NotifyIcon(Nim_Add,@Nim);

    2: Shell_NotifyIcon(Nim_Delete,@Nim);

    3: Shell_NotifyIcon(Nim_Modify,@Nim);

  End;

end;

procedure tMainform.IconMouse(var Msg:TMessage);

Var p:tpoint;

begin

  GetCursorPos(p);

  Case Msg.LParam OF

  WM_LBUTTONUP,WM_LBUTTONDBLCLK:

  Begin

    IconTray(2,Application.Icon);

    ShowWindow(Application.Handle,SW_SHOW);

    ShowWindow(Handle,SW_SHOW);

  End;

  WM_RBUTTONUP:

  Begin

    SetForegroundWindow(Handle);

    PopupMenuTray.Popup(p.X,p.Y);

    PostMessage(Handle,WM_NULL,0,0);

  end;

  End;

end;

procedure TMainForm.ButtonResultOkClick(Sender: TObject);

var

  i, g, flag : integer;

  Result : string;

begin

  Result:='';

  for i:=1 to length(EditInput.Text) do

  begin

    Flag:=0;

    for g:=1 to length(Englang) do

    begin

      if Englang[g]=EditInput.Text[i] then begin

      Flag:=777;

      break;

    end;

  end;

  if Flag=777 then Result := Concat( Result, Ruslang[g] )

  else Result := Concat( Result, EditInput.Text[i] );

  end;

  EditResult.Text := Result;

end;

procedure TMainForm.ButtonExitClick(Sender: TObject);

begin

  mainform.Close;

end;

procedure TMainForm.ButtonHideClick(Sender: TObject);

begin

  IconTray(1,Application.Icon);

  ShowWindow(Handle,SW_HIDE);

  ShowWindow(Application.Handle,SW_HIDE);

end;

Procedure TMainform.ControlWindow(Var Msg:TMessage);

Begin

  IF Msg.WParam=SC_MINIMIZE then

  Begin

    IconTray(1,Application.Icon);

    ShowWindow(Handle,SW_HIDE);

    ShowWindow(Application.Handle,SW_HIDE);

  End else inherited;

End;

procedure TMainForm.NOpenTrayClick(Sender: TObject);

begin

  IconTray(2,Application.Icon);

  ShowWindow(Application.Handle,SW_SHOW);

  ShowWindow(Handle,SW_SHOW);

end;

procedure TMainForm.NCloseTrayClick(Sender: TObject);

begin

  Mainform.Close;

end;

procedure TMainForm.NAboutProgClick(Sender: TObject);

begin

application.MessageBox('Программа предназначена для исправления ошибочного ввода символов введенных не на той раскладке клавиатуры','О программе...');

end;

procedure TMainForm.NFormColorClick(Sender: TObject);

begin

  if colordialog.Execute then

  begin

    mainform.Color:=colordialog.Color;

  end;

end;

end.

<<< Предыдущая работа

Вернуться в галерею исходников

Кодировщик En-Rus v.1.0

Автор: delphIN*

Город: Братск

Дата: 29.01.2007 20:26

Комментариев: 0

Просмотров: 315

Оценка: 0 (0|0|0|0|0) [0]

Следующая работа >>>

Вернуться на главную

Авторский комментарий к работе: Исходник Перекодировщика символов, ошибочно введенных на другой раскладке клавиатуры!!!

Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:

Нет комментариев