calltoda.rcp

palm os上的DA编程

#include "CallToDA_res.h"

APPLICATIONICONNAME ID 1000 "Call Lookup DA"
VERSION ID 1000 "0.7.8"

STRING ID helpString "Call Lookup DA 0.7.8 (beta)\n" \
               "Freeware\n" \
               "Apr. 29, 2001\n\n" \
               "(C)2000-01 by Koichi TERADA\n" \
               "[e-mail]\n" \
               "http://hello.to/kterada\n" \
               "http://www04.u-page.so-net.ne.jp/zd5/kterada/\n\n" \
               "Select or enter some texts on any program, likes MemoPad, " \
				"Date Book, etc. Then, launch Call Lookup DA by DA-Launcher. " \
				"Call Lookup DA will get the selected text (or the one word that " \
				"locates just left of the cursor), then search the Address database " \
				"with the text.\n\n" \
               "To select the type of phone number, some of push-buttons are appeared. " \
				"By [Insert #] button, the pre-selected text (i.e., on DateBook) " \
				"will be replaced by the full name and the selected phone number.\n\n" \
               "[Company] and [Title] checkboxes work to insert the company name and the title.\n\n" \
               "Select Menu -> Edit -> Copy to copy the name and phones to clipboard. " \
				"The Menu -> Edit -> Launch Address menu will launch the Address " \
				"application which you have selected in option dialog " \
				"(default is Address) then go to the selected record.\n\n" \
               "To move the DA window, drag the window (except on buttons or title-bar).\n\n" \
               "To quit this program with no change, press [Cancel] button, " \
				"tap the outside of the DA window, or launch the other application."

STRING ID helpOptionString "Select the name format by the format buttons.\n\n" \
               "Select the Address Application to launch by Edit->Launch Address command.\n\n" \
               "To paste also the type of the phone number (likes the original " \
				"Phone Lookup), check the [Paste type of #].\n\n" \
               "Also the pop-up can choose the set of pastable strings."

STRING ID helpSearchString "Choose the target fields with [Name/Company/Title], " \
				"[Phones], [Address], [Customs], [Note] checkboxes. " \
				"The [Ignore case] controls the case-sensitive or not. \n\n" \
               "Select the language switch between USA, Japan and International. " \
				"(Note, Intl. mode is pretty slow.)\n\n" \
               "By [Search Again] button, restart the search with " \
				"the specified options."

FORM ID MainForm AT (10 40 140 95)
MODAL
SAVEBEHIND
HELPID helpString
MENUID EditMenu
BEGIN
    TITLE "Call Lookup DA"
    BUTTON "\002" ID mainButtonDownButton AT (124 85 15 8) LEFTANCHOR NOFRAME FONT 5
    BUTTON "\001" ID mainButtonUpButton AT (124 77 15 8) LEFTANCHOR NOFRAME FONT 5
    FIELD ID mainFIeldNameField AT (6 14 130 14) LEFTALIGN FONT 0 
		NONEDITABLE SINGLELINE MAXCHARS 26
    FIELD ID mainFieldNumberField AT (6 28 130 12) LEFTALIGN FONT 1 
		NONEDITABLE SINGLELINE MAXCHARS 26
    PUSHBUTTON "W" ID mainButtonWPushButton AT (7 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    PUSHBUTTON "H" ID mainButtonHPushButton AT (23 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    PUSHBUTTON "Mo" ID mainButtonMoPushButton AT (119 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    PUSHBUTTON "P" ID mainButtonPPushButton AT (103 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    PUSHBUTTON "F" ID mainButtonFPushButton AT (39 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    PUSHBUTTON "E" ID mainButtonEPushButton AT (71 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    PUSHBUTTON "Ma" ID mainButtonMaPushButton AT (87 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    PUSHBUTTON "O" ID mainButtonOPushButton AT (55 47 15 14) NONUSABLE 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID2
    BUTTON "Insert#" ID mainButtonInsertButton AT (4 79 35 13) LEFTANCHOR FRAME FONT 0
    BUTTON "Cancel" ID mainButtonDoneButton AT (44 79 29 13) LEFTANCHOR FRAME FONT 0
    BUTTON "Options..." ID mainButtonOptionButton AT (78 79 40 13) LEFTANCHOR FRAME FONT 0
    FORMBITMAP AT (6 62) BITMAP 9000 NONUSABLE
    FORMBITMAP AT (38 62) BITMAP 9000 NONUSABLE
    FORMBITMAP AT (70 62) BITMAP 9000 NONUSABLE
    FORMBITMAP AT (102 62) BITMAP 9000 NONUSABLE
    FORMBITMAP AT (6 42) BITMAP 9000 NONUSABLE
    FORMBITMAP AT (38 42) BITMAP 9000 NONUSABLE
    FORMBITMAP AT (70 42) BITMAP 9000 NONUSABLE
    FORMBITMAP AT (102 42) BITMAP 9000 NONUSABLE

    LABEL "Format:" ID mainFormatLabelLabel AT (3 15) FONT 0
    PUSHBUTTON "First" ID mainNameFormat0PushButton AT (42 15 46 12) 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID3
    PUSHBUTTON "Last, First" ID mainNameFormat1PushButton AT (89 15 46 12) 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID3
    PUSHBUTTON "First Last" ID mainNameFormat2PushButton AT (42 28 46 12) 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID3
    PUSHBUTTON "Last First" ID mainNameFormat3PushButton AT (89 28 46 12) 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID3
    CHECKBOX "Paste type of #," ID mainPasteTypeCheckbox AT (3 54 85 11) 
		LEFTANCHOR  FONT 0 GROUP 0
	CHECKBOX "Company" ID mainPasteCompanyCheckbox AT (3 65 58 12) 
        LEFTANCHOR  FONT 0 GROUP 0
    CHECKBOX "Title" ID mainPasteTitleCheckbox AT (61 65 38 12) 
        LEFTANCHOR  FONT 0 GROUP 0
    LABEL "with" ID mainSelectInsertStringsLabel AT (3 65) FONT 0
	POPUPTRIGGER "                " ID mainSelectInsertStringsTrigger AT (20 65 58 12)
		LEFTANCHOR NOFRAME FONT 0
	POPUPLIST ID mainSelectInsertStringsTrigger mainSelectInsertStringsList
	LIST "Name only" "# only" "Name, #" 
		"Name, Company" "Name, Title"
		"Name, #, Company" "Name, #, Title"
		"Company only" "Title only" "Company, Title"
		"#, Company" "#, Title"
		"Name, Company, Title" "#, Company, Title"
		"Name, #, Company, Title"
		ID mainSelectInsertStringsList AT (25 36 110 55) NONUSABLE DISABLED FONT 0
    LABEL "Launch Appl. :" ID mainSelectApplLabelLabel AT (3 43) FONT 0
    POPUPTRIGGER "                " ID mainSelectApplPopTrigger AT (68 43 49 12) 
		LEFTANCHOR NOFRAME FONT 0
    POPUPLIST ID mainSelectApplPopTrigger mainSelectApplListList
    LIST "Address" "AddressJ" "Address+" "Super Names" "TealPhone" 
		ID mainSelectApplListList AT (80 32 59 55) NONUSABLE DISABLED FONT 0
    BUTTON "Return" ID mainButtonOKButton AT (91 79 36 13) LEFTANCHOR FRAME FONT 0

    BUTTON "Search Options..." ID mainMoreButton AT (4 79 75 13) LEFTANCHOR FRAME FONT 0
    CHECKBOX "Name/Company/Title" ID mainFindNameCompanyCheckbox AT (10 15 111 12) 
		LEFTANCHOR  FONT 0 GROUP 0
    CHECKBOX "Phones/Email" ID mainFindPhonesCheckbox AT (10 26 74 12) 
		LEFTANCHOR  FONT 0 GROUP 0
    CHECKBOX "Addresses" ID mainFindAddressCheckbox AT (10 37 60 12) 
		LEFTANCHOR  FONT 0 GROUP 0
    CHECKBOX "Customs" ID mainFindCustomsCheckbox AT (83 26 54 12) 
		LEFTANCHOR  FONT 0 GROUP 0
    CHECKBOX "Note" ID mainFindNoteCheckbox AT (83 37 39 12) 
		LEFTANCHOR  FONT 0 GROUP 0
    CHECKBOX "Ignore case             " ID mainIgnoreCaseCheckbox AT (10 65 91 12) 
		LEFTANCHOR  FONT 0 GROUP 0
    LABEL "Language :" ID mainLangLabelLabel AT (12 51) FONT 0
    PUSHBUTTON "US" ID mainLangUSPushButton AT (62 51 19 12) 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID4
    PUSHBUTTON "JP" ID mainLangJPPushButton AT (82 51 19 12) 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID4
    PUSHBUTTON "Intl." ID mainLangEUPushButton AT (102 51 24 12) 
		RIGHTANCHOR  FONT 0 GROUP CallLookupDAFormGroupID4
    BUTTON "Search, Again" ID mainAgainButton AT (6 79 58 13) LEFTANCHOR FRAME FONT 0
END

FORM ID SearchingForm AT (45 70 70 43)
MODAL
SAVEBEHIND
BEGIN
    LABEL "Searching...      " ID searchingLabel0Label AT (5 4) FONT 1
    FIELD ID searchingSearchTextField AT (5 17 60 12) LEFTALIGN FONT 0 
		NONEDITABLE SINGLELINE MAXCHARS 25
END

FORM ID InputForm AT (2 108 156 50)
MODAL
SAVEBEHIND
HELPID helpString
MENUID Edit2Menu
BEGIN
    TITLE "Call Lookup DA : Input"
    FIELD ID inputInputtextField AT (64 17 90 12) LEFTALIGN FONT 0 UNDERLINED 
		SINGLELINE MAXCHARS 40
    BUTTON "OK" ID inputOKButton AT (9 35 36 12) LEFTANCHOR FRAME FONT 0
    BUTTON "Cancel" ID inputCancelButton AT (52 35 36 12) LEFTANCHOR FRAME FONT 0
    LABEL "Search text :      " ID inputUnnamed1204Label AT (8 18) FONT 0
    GRAFFITISTATEINDICATOR AT (142 37)
END

STRING ID nomatchrecString " (No matched record...)"
STRING ID unnamedString "--- unnamed ---"
STRING ID nophonesString "--- no phones ---"

MENU ID EditMenu
BEGIN
    PULLDOWN "Edit"
    BEGIN
        MENUITEM "Copy" ID EditCopy "C"
        MENUITEM "-" ID 1001
        MENUITEM "Launch Address" ID EditLaunchAddress "A"
        MENUITEM "Insert & Launch Address " ID EditInsertLaunchAddress "I"
    END
END

MENU ID Edit2Menu
BEGIN
    PULLDOWN "Edit"
    BEGIN
        MENUITEM "Copy" ID Edit2Copy "C"
        MENUITEM "Paste" ID Edit2Paste "P"
        MENUITEM "-" ID 1102
        MENUITEM "Keyboard" ID Edit2Keyboard "K"
        MENUITEM "Graffiti Help" ID Edit2GraffitiHelp "G"
    END
END

ALERT ID QuitAlert
ERROR
BEGIN
    TITLE "Error"
    MESSAGE "Can not launch doubly.      "
    BUTTONS "Quit"
END

ALERT ID MsgAlert
INFORMATION
BEGIN
    TITLE "msg"
    MESSAGE "^1\n" \
            "^2\n" \
            "^3"
    BUTTONS "OK"
END

ALERT ID ToolongstrAlert
ERROR
BEGIN
    TITLE "Error"
    MESSAGE "Too long selected text. Max selection is 80 characters.      "
    BUTTONS "Quit"
END

ALERT ID NoApplAlert
ERROR
BEGIN
    TITLE "No Such Appl."
    MESSAGE "Can not ^1  \"^2\" on your Palm."
    BUTTONS "OK"
END

ALERT ID TooManyRecordsFoundAlert
WARNING
BEGIN
    TITLE "Warning"
    MESSAGE "Too many records are found. Some of matched records may not be appeared.      "
    BUTTONS "OK"
END

BITMAP ID 9000 "CallToDA_line4.pnm" COMPRESS

ICON "CallToDA.ppm"