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
|
{Dialog list filling}
procedure InsertString(wnd:HWND;num:dword;str:PAnsiChar);
var
buf:array [0..127] of WideChar;
begin
SendMessageW(wnd,CB_SETITEMDATA,
SendMessageW(wnd,CB_ADDSTRING,0,
lparam(TranslateW(FastAnsiToWideBuf(str,buf)))),
num);
{
SendMessageW(wnd,CB_INSERTSTRING,num,
dword(TranslateW(FastAnsiToWideBuf(str,buf))));
}
end;
procedure MakeMathOperList(wnd:HWND);
begin
SendMessage(wnd,CB_RESETCONTENT,0,0);
InsertString(wnd,cardinal(aeNot),'! not');
InsertString(wnd,cardinal(aeAdd),'+ add');
InsertString(wnd,cardinal(aeSub),'- sub');
InsertString(wnd,cardinal(aeMul),'* mul');
InsertString(wnd,cardinal(aeDiv),'/ div');
InsertString(wnd,cardinal(aeMod),'% mod');
InsertString(wnd,cardinal(aeAnd),'& and');
InsertString(wnd,cardinal(aeOr ),'| or');
InsertString(wnd,cardinal(aeXor),'^ xor');
InsertString(wnd,cardinal(aeSet),'= set');
SendMessage(wnd,CB_SETCURSEL,0,0);
end;
procedure MakeParamTypeList(wnd:HWND);
begin
SendMessage(wnd,CB_RESETCONTENT,0,0);
InsertString(wnd,ptNumber ,'number value');
InsertString(wnd,ptString ,'ANSI string');
InsertString(wnd,ptUnicode,'Unicode string');
InsertString(wnd,ptCurrent,'current contact');
InsertString(wnd,ptResult ,'last result');
InsertString(wnd,ptParam ,'parameter');
InsertString(wnd,ptStruct ,'structure');
SendMessage(wnd,CB_SETCURSEL,0,0);
end;
procedure MakeResultTypeList(wnd:HWND);
begin
SendMessage(wnd,CB_RESETCONTENT,0,0);
InsertString(wnd,sresInt ,'Integer');
InsertString(wnd,sresHex ,'Hexadecimal');
InsertString(wnd,sresString,'String');
InsertString(wnd,sresStruct,'Structure');
SendMessage(wnd,CB_SETCURSEL,0,0);
end;
procedure MakeFileEncList(wnd:HWND);
begin
SendMessage(wnd,CB_RESETCONTENT,0,0);
InsertString(wnd,0,'Ansi');
InsertString(wnd,1,'UTF8');
InsertString(wnd,2,'UTF8+sign');
InsertString(wnd,3,'UTF16');
InsertString(wnd,4,'UTF16+sign');
SendMessage(wnd,CB_SETCURSEL,0,0);
end;
procedure MakeDataTypeList(wnd:HWND);
begin
SendMessage(wnd,CB_RESETCONTENT,0,0);
InsertString(wnd,0,'Byte');
InsertString(wnd,1,'Word');
InsertString(wnd,2,'DWord');
InsertString(wnd,3,'Ansi');
InsertString(wnd,4,'Unicode');
SendMessage(wnd,CB_SETCURSEL,0,0);
end;
|
