Laimonas171
11-20-2012, 02:14 PM
Simple function, will be helpful from today. in most of skills.
edit: going to do some updates a bit later
(*
useActionKey
-------------
function useActionKey(KeyPossition:string):boolean;
Example: useActionKey('1'); // Will use first slot of action bar.
Available options are ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-', '='] //returns true, if none of these, returns false
by Laimonas171
*)
function useActionKey(KeyPossition:string):boolean;
begin
Case KeyPossition of
'1': begin
TypeSendEx('1',False);
result := true;
end;
'2': begin
TypeSendEx('2',False);
result := true;
end;
'3': begin
TypeSendEx('3',False);
result := true;
end;
'4': begin
TypeSendEx('4',False);
result := true;
end;
'5': begin
TypeSendEx('5',False);
result := true;
end;
'6': begin
TypeSendEx('6',False);
result := true;
end;
'7': begin
TypeSendEx('7',False);
result := true;
end;
'8': begin
TypeSendEx('8',False);
result := true;
end;
'9': begin
TypeSendEx('9',False);
result := true;
end;
'0': begin
TypeSendEx('0',False);
result := true;
end;
'-': begin
TypeSendEx('-',False);
result := true;
end;
'=': begin
TypeSendEx('=',False);
result := true;
end;
else
result := false;
end;
end;
edit: going to do some updates a bit later
(*
useActionKey
-------------
function useActionKey(KeyPossition:string):boolean;
Example: useActionKey('1'); // Will use first slot of action bar.
Available options are ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-', '='] //returns true, if none of these, returns false
by Laimonas171
*)
function useActionKey(KeyPossition:string):boolean;
begin
Case KeyPossition of
'1': begin
TypeSendEx('1',False);
result := true;
end;
'2': begin
TypeSendEx('2',False);
result := true;
end;
'3': begin
TypeSendEx('3',False);
result := true;
end;
'4': begin
TypeSendEx('4',False);
result := true;
end;
'5': begin
TypeSendEx('5',False);
result := true;
end;
'6': begin
TypeSendEx('6',False);
result := true;
end;
'7': begin
TypeSendEx('7',False);
result := true;
end;
'8': begin
TypeSendEx('8',False);
result := true;
end;
'9': begin
TypeSendEx('9',False);
result := true;
end;
'0': begin
TypeSendEx('0',False);
result := true;
end;
'-': begin
TypeSendEx('-',False);
result := true;
end;
'=': begin
TypeSendEx('=',False);
result := true;
end;
else
result := false;
end;
end;