Macro’s in de SourceCodeEditor
(de code is aangepast, de dubbele backslashes zijn vervangen door enkele, waarmee onderstaande code met cut en paste zo in een regfile te plaatsen is en in de registry in te lezen )
In eerdere versies van CA-VO kon je keyboard macro’s definieren in cavo32.ini
Dat werkt in CAVO 2.5 niet meer. Nu moeten de macrodefinities in de registry geplaatst worden. Ed Richard heeft dat al eens beschreven in het magazine (Nr. 50 ) Reuze handig.Met name de InsertText functie biedt handige mogelijkheiden.
Update de registry maar eens met onderstaande code en zie wat er gebeurt met Ctrl W, Ctrl F, Ctrl D, Ctrl I etc.
Het is overigens verstandig eerst VO af te sluiten voordat je de registry aanpast.
REGEDIT4
[HKEY_CURRENT_USER\Software\ComputerAssociates\CA-Visual Objects 2.5\Editor]
"m1"="VK_CONTROL+VK_W:Inserttext+'While\r\n\r\nEnddo\r\n'"
"m2"="VK_CONTROL+VK_F:Inserttext+'FOR n := 1 UPTO\r\n\r\nNEXT\r\n'"
"m3"="VK_CONTROL+VK_D:Inserttext+'DO CASE\r\nCASE\r\nCASE\r\nOTHERWISE\r\nENDCASE\r\n'"
"m4"="VK_CONTROL+VK_I:Inserttext+'IF\r\nELSEIF\r\nELSE\r\nENDIF\r\n'"
"m5"="VK_CONTROL+VK_SHIFT+VK_E:Inserttext+'ErrorBox{,\"Foutje\"}:Show()\r\n"
"m6"="VK_CONTROL+VK_SHIFT+VK_T:Inserttext+'oTb:=Textbox{SELF,\" \" ,\" \" }\r\noTb:Type := BUTTONYESNO\r\n\r\nIF oTb:Show() = BOXREPLYYES\r\n\r\nENDIF"
"m7"="VK_CONTROL+VK_SHIFT+VK_G:InsertText+'oServer:FieldGet(# )\r\n'"
"m8"="VK_CONTROL+VK_SHIFT+VK_P:InsertText+'oServer:FieldPut(# , )\r\n'+EndLine"
"m9"="VK_CONTROL+VK_SHIFT+VK_X:InsertText+'ApplicationExec(ExecWhileEvent)\r\n'"
"m10"="VK_CONTROL+VK_SHIFT+VK_L:InsertText+'LoadResString(,,_LangDLL)\r\n'"
"m11"="VK_ALT+VK_P:InsertText+'SELF:Pointer := Pointer{PointerHourglass}\r\n\r\n SELF:Pointer := Pointer{PointerArrow}'"