home *** CD-ROM | disk | FTP | other *** search
s_dialogWindow s_CurrentCursor ToolBar oinitDLLs initEditor Dialog Dieser Editor erfordert die Autoren-Version von ToolBook. newDialog enterApplication group group s_Browse command s_Browse rightbuttonDown -$, 7 s_dialogWindow , 0,0,0,bold FChooseFontDlg newFont oldSelection forceExists,noGDI,noVector,screen s_DialogTemplate character reader dialog.hlp dlg_WinHelp contents contents + , / -$, 7 + , / objList button group s_dlgBaseUnits rs_dlgBaseUnits ToolPalette ToolBar MS Sans Serif dlg_disable s_DialogTemplate resName initEditor CreateFontIndirect dlg_CreateFontIndirect SelectObject dlg_SelectObject getTextExtent dlg_getTextExtent DeleteObject dlg_DeleteObject tb30dlg.dll dialog getValue SetValue dialogCallback OpenFileDlg SaveAsDlg chooseFontDlg setBitmapData setIconData enableControl setControlText getControlText kernel GlobalHandle dlg_GlobalHandle GlobalAlloc dlg_GlobalAlloc GlobalLock dlg_GlobalLock GlobalUnlock dlg_GlobalUnlock GlobalFree dlg_GlobalFree getDC dlg_getDC ReleaseDC dlg_ReleaseDC DestroyIcon dlg_DestroyIcon SendMessage dlg_SendMessage WinHelp dlg_WinHelp initDLLs s_dialogWindow &Nein s_Dirty Aktuelle nderungen speichern? saveDialog checkSave s_dialogWindow initViewer s_Browse Toolbar browse +*+U!8 s_dialogWindow FALSE clearDialog checkSave newDialog + , #> + , # + , # ,%H.% + , #? + , #> + , #> + , #? + , ! + , ! + , ! + , #> +*+U!8 ,!JN" propList kgetValue of book Dialogfeld-Vorlage (*.DIA),*.DIA,ToolBook-Buch (*.TBK),*.TBK,Systembuch (*.SBK),*.SBK s_CurrentCursor initialValues currProp s_currentFile showDialog vsetValue Die Datei ist leer. propList s_dialogWindow captionLength s_CurrentCursor initialValues currProp s_currentFile newCaption dialogTemplate retVal initProp templateName tempList newCaption buildFrame checkClear ffnen s_dialogWindow OpenFileDlg LoadTemplateBOX ToolBook-Dialogfeld-Editor Keine Dialogfeld-Vorlagen im Buch gefunden captionLength dialogTemplate ToolBar dialogName listbox templates LoadTemplateInit checkSave initProp ToolBook-Dialogfeld-Editor - targetBook buildItems dialog OpenDialog Dialogfeld-Vorlage (*.DIA), *.DIA Speichern s_currentFile -SaveDIA saveAsDlg saveDialog Dialogfeld-Vorlage (*.DIA), *.DIA s_currentFile Speichern unter -SaveDIA saveAsDlg saveDialogAs + , ! + , !; + , !; + , !; + , ! + , #> s_dialogWindow s_CurrentCursor s_currentFile buildDialogItems buildDialogHeader ToolBar ToolBook-Dialogfeld-Editor - s_InitialValues s_DialogTemplate SaveDIA .&, #> .&, #> w, #> + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / .&, #? + , / +*+ t |pushbuttonPropertiesInit kgetValue STATIC s_CurrentCursor button Password fdialogPropertiesBOX button true ID_OK newBMP CustomPropertiesInit .?newIcon edit Name Y%controlProperties button radio iedit ypos dialogName ID_CANCEL BitmapPropertiesInit BUTTON button scroll dialog CustomPropertiesBOX iedit xpos BITMAP oPpushbuttonPropertiesBox reader targetBook Z%controlProperties checkbox ButtonIDs comboboxPropertiesBOX button TRUE edit Caption button checkbox &ID_OK static ID Platzhalter f r Bitmap-Steuerelement bitmap vAdialogCallback iedit layer icon id staticPropertiesInit groupboxPropertiesInit checkRadioPropertiesBox bitmap current Bitmap button default listboxPropertiesBOX FALSE Button Password rectangle comboboxPropertiesInit edit caption CUSTOM center iconPropertiesBOX button discard LISTBOX edit name GROUPBOX addButtonID edit text edit items /?newIcon button single newBmp vsetValue button sort iedit dropDownLength edit className button accept s_dialogWindow removeButtonID Group 9checkRadioPropertiesInit EDIT Name groupBoxPropertiesBOX icon current icon COMBOBOX right button editable [EiconPropertiesInit retValue controlProperties WordWrap dialogPropertiesInit button false editPropertiesBOX combobox controlID &ID_CANCEL newBmp listboxPropertiesInit oldID edit resourceName qBitmapPropertiesBOX pushbutton edit Items dialogName iedit style &CeditPropertiesInit iedit Layer ctrlID o{staticPropertiesBOX Properties ,%H.% buttonIDs buttonIDs removeButtonID ,%H.% FALSE buttonIDs buttonIDs addButtonID s_dialogWindow 4controlState FALSE ToolBar YWMkeyUp WMkeyUp ,!J(" 4controlState s_dialogWindow WMkeyDown ToolBar yDlgUnitsToPageUnits dlg_sendMessage WMkeyDown , "j w, #> w, #? targetBook Sie m ssen dem Dialogfeld einen Namen geben. Bitte geben Sie einen Namen in das untenstehende Feld ein. dialogName s_dialogWindow s_CurrentCursor s_DialogTemplate FALSE cmdString templateScript scriptMessage bFound setScript currentIcon resList s_InitialValues dialogName ToolBook (*.TBK), *.TBK, Systembuch (*.SBK), *.SBK FALSE dialogName s_dialogWindow bFound als Benutzereigenschaften des Buchs hinzugef information und eine Behandlungsroutine f r die show-Botschaft *.tbk buildDialogItems verifyDialogName zu erweitern. Die Behandlungsroutine wurde in die Zwischenablage bertragen ;0normalScript buildDialogHeader targetBook openFileDlg senden Sie die show- um die Behandlungsroutine . Es steht nicht gen gend Platz im Buchskript des Buchs zur Verf icon id 114 Botschaft wurde zum Buchskript dieses Buchs hinzugef gt. Zur Anzeige des Dialogfelds Die angegebene Datei ist kein Buch. currentIcon INIT of book targetBook of self to s_InitialValues dialogName Zielbuch f r Dialogfeld-Vorlage ausw hlen... Die Dialogfeld-Vorlage und die Initialisierungswerte wurden dem Buch s_InitialValues s_CurrentCursor BOX of book targetBook of self to s_DialogTemplate; resList _DLGNAME_ build 1, #> ,%H.% w, #> w, #> w, #? w, #? w, #? Ein Ansichtsobjekt mit diesem Namen ist bereits im Buch vorhanden Ein Ansichtsobjekt und eine Dialogfeld-Vorlage mit diesem Namen ist bereits im Buch vorhanden &Abbrechen dialogName isViewer retValue FALSE template isTemplate of book FALSE,FALSE FALSE im Buch wird jedoch kein Skript abgelegt. !@#$%^&*()-,./?><;':[]{}\|=+`~ verifyDialogName fortfahren targetBook Der Dialogfeldname mu mit einem Buchstaben beginnen. ' ist in Behandlungsroutinen- oder Eigenschaftsnamen nicht g ltig. Der Dialogfeldname darf keine der folgenden Zeichen enthalten: Wenn Sie fortfahren, wird die vorhandene Dialogfeld-Vorlage berschrieben &Fortfahren viewer Das Zeichen ' Wenn Sie fortfahren, wird das vorhandene Ansichtsobjekt gel scht und ein Wenn Sie fortfahren, wird das Ansichtsobjekt hinzugef ein Leerzeichen (space) oder ein Tabulatorzeichen (tab) neues erstellt Neuen Namen f r Dialogfeld eingeben. <> null BOX of book 1234567890 dialogName TRUE,TRUE Eine Dialogfeld-Vorlage mit diesem Namen ist bereits im Buch vorhanden umbenennen targetbook &Umbenennen Der Behandlungsroutinen- und Benutzereigenschaftsname konnte aus dem Dialogfeldnamen nicht erstellt werden. Wenn Sie fortfahren, wird die Vorlage hinzugef verifyDialogName w, #> + , / + , / + , / w, #> targetBook Botschaft dialogName PUSHBUTTON Z%controlProperties ToolBook (*.TBK), *.TBK, SysBook (*.SBK), *.SBK objList s_CurrentCursor dialogName Y%controlProperties s_dialogWindow wurde zum Buchskript dieses Buchs hinzugef gt. Zur Anzeige des Dialogfelds newDlgViewer Group und eine Behandlungsroutine f r die show-Botschaft *.tbk controlProperties verifyDialogName zu erweitern. Die Behandlungsroutine wurde in die Zwischenablage bertragen FALSE integerOnlyScript targetBook openFileDlg senden Sie die show- . Es steht nicht gen gend Platz im Buchskript des Buchs zur Verf 8ViewerScript newDlgPage trueAcceptScript Die angegebene Datei ist kein Buch. falseCancelScript Das Dialogfeld-Ansichtsobjekt dialogName Zielbuch f r Dialogfeld-Vorlage ausw hlen... Sie m ssen dem Dialogfeld einen Namen geben. Bitte geben Sie einen Namen in das untenstehende Feld ein. um die Behandlungsroutine wurde im folgenden Buch erstellt: center currentObject dialog _DLGNAME_ buildViewer aboutinit UraboutBOX vAdialogCallback aboutdialog dialogHelp +*+Dr s_dialogWindow s_CurrentCursor buildDialogItems buildDialogHeader ToolBar Preview Preview3D s_InitialValues s_DialogTemplate dialog ShowDialog +*+Dr s_dialogWindow s_CurrentCursor &Nein abbrechen &Abbrechen clearDialog Wollen Sie das vorhandene Dialogfeld l schen? checkClear +*+Dr s_dialogWindow ToolBook-Dialogfeld-Editor - <Unbenannt> ID_OK s_dirty showDialog ToolBar targetBook addButtonID Dialog buttonIDs dialogName ID_CANCEL clearDialog vdlg_GlobalAlloc Speicherzuordnung fehlgeschlagen. Die Operation wurde abgebrochen. Pdlg_GlobalLock getWinPointer dlg_GlobalUnLock Ein Speicherfehler ist aufgetreten. Die Operation wurde abgebrochen. dlg_GlobalHandle dKdlg_GlobalFree freeWinPointer + , / + , / baseUnits baseUnits s_DialogTemplate dlgUnitsToPixels + , / + , / baseUnits baseUnits s_DialogTemplate dlgUnitsToPageUnits + , / + , / baseUnits baseUnits s_DialogTemplate PixelsToDlgUnits + , / + , / baseUnits baseUnits s_DialogTemplate pageUnitsToDlgUnits + , / + , / + , / + , / ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz freeWinPointer $bgetWinPointer dlg_ReleaseDC s_dlgBaseUnits tdlg_getDC dlg_getTextExtent dlg_DeleteObject dlg_CreateFontIndirect dlg_SelectObject baseUnits edit resourceName getControlText AenableControl TBKDialogInit targetBook Zielbuch f r Ressource ausw hlen... ToolBook (*.TBK), *.TBK, SysBook (*.SBK), *.SBK ICON current icon setControlText setIconData dlg_DeleteObject Bitmap *.tbk dlg_DestroyIcon Sie m ssen die ausgew hlte Ressource benennen. targetBook openFileDlg edit resourceName >setBitmapData .?newIcon BITMAP Current Bitmap getControlText Button Choose Icon /?newIcon AenableControl newBmp newBmp Button Choose Bitmap TBKDialogCommand false,false,false,false,false,false,true oldState strChecked strChecked ToolPalette button ToolPalette selectedTool buttonClick select ToolPalette enterPage --This handler sets the selected ToolPalette Bthat --was clicked on buttonClick selectedTool initializes 35,48 selectChars strChecked ToolPalette Button id 37 of Page id 1 buttonPressed groupbox recTool Button id 37 of Page id 1 invertedButton Button id 40 of Page id 1 oldInvertedButton strChecked custom ctrlID strChecked checkbox ctrlID strChecked radiobutton ctrlID strChecked field ctrlID strChecked borderlessField ctrlID strChecked bitmap ctrlID strChecked singleSelectListbox ctrlID strChecked combobox ctrlID strChecked ctrlID strChecked select ctrlID strChecked groupbox ctrlID strChecked button ctrlID strChecked dlg_custom dlg_checkbox dlg_radiobutton dlg_field dlg_borderlessfield dlg_bitmap dlg_singleSelectlistbox dlg_combobox dlg_icon dlg_select dlg_groupBox dlg_button dlg_openDialog dlg_saveDialog dlg_properties dlg_character dlg_undo dlg_disableUndo dlg_duplicate dlg_disableDuplicate dlg_BringToFront dlg_DisableBringToFront dlg_SendToBack dlg_disableSendToBack dlg_showDialog dlg_disableshowDialog dlg_sendFarther dlg_DisableSendFarther dlg_bringCloser dlg_disableBringCloser dlg_saveDialogas wwwwwwwwww wwusww wwwwwwwwww wCawp wCTwp wmawp wngwp wu wp wvewp whawp wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwwwftww wppwwwpp wpwpwpwp w %wpww witwpwwpwwp wpwpwpwp wngwppwwwpp wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwx wwwpwwpwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwqw wwwqq wwwww wwwwqwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwtDDGwwwftwwtDDDDGww wwDDDDDDww DGwSOwtDDO DDGwHOwDDDO wDDDO wDDDO wDDDO DDDwIPwDDDO DwDDD wDDDDDDDDwADwtDDO wwtDO DGwwG wwwtDDGwwwPTwwwwwwwwww wwwwwwwwww wwwwwwwwwwe wwwwwwwwwwchwwwwwp www ywwwww www swwwww wwwt wwp wwwww wwwww wwwwww wwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww uswpwwwwwww wpwwwwwww Ewpwwwwwww wpwwwwwww wpwwwwwww Cawpwwwwwww wpwwwwwww wpwwwwwww wpwwwwwww CTwpwwwwwww mawpwwwwwww ngwpwwwwwww u wpwwwwwww vewpw wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwwwftwwwwwwwwww wwwwwx wwwwwx wwwwwwwwww wwwwwwwwww wwwwwwwwww0 wwwwwwwwww UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUP UUUUU UUUUUP UUUUUUUUUU UUUUUUUUUU wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUU PPUUUUUUUU PPUUUUUUUU UPUUUUUUUU UUUUUUUUUU ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff ffff` ffffo fffff ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff fofffo ffffffffff ffffffffff ffffffffff UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU U^UUU^ UUU_U UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUUP UUUU^ UUUUU UUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUU^ UUUU_ UUUUU UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUUU UUUUU UUUUU UUUUUP UUUUUU UUUUUUPUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUU UUUUU UUUUU UUUUU^ UUUUUU UUUUUU^UUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUP UUUUUU UUUUUP UUUUUP UUUUU UUUUUU UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUU UUUUUU^ UUUUUU UUUUU^ UUUUU UUUUUU UUUUUU UUUUUUUUUU wwwwwwwwww wwwwwww pwwwp wwpwwwp wwwwwww wwwwwwwwww wwwwwwwwww wwwwwww xwwwx wwxwwwx wxxxwwx wwwwwww wwwwww wwwwwwwwww UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUP UUUUUU UUUUUU UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUU UUUUUU^ UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUUU UUUUU UUPUU UUUUP UUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUU UUUUU UUUU^ UUUUU UUUUUUUUUU wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww?Fwwx wwwwp ToolPalette b d d ToolBar strChecked toolbar strChecked openDialog ctrlID wsgroup ffnet eine Dialogvorlage helpText strChecked saveDialog yhelpText saveDialogAs dlg_saveDialogAs Dialogfeld unter einem neuen Namen speichern saveDialog dlg_saveDialog Dialogfeld speichern toggleState notifyBefore toggleState isControl "saveDialogAs" onormalGraphic bitmap "dlg_saveDialogAs" ohelpText "Dialogfeld unter einem neuen Namen speichern" ctrlID Dialogfeld speichern helpText strChecked properties ctrlID Steuerelement-Eigenschaften bearbeiten helpText strChecked character ctrlID Schriftart des Dialogfelds festlegen helpText strChecked ctrlID Letzte Aktion r ngig/wiederherstellen helpText strChecked ItemSelected strChecked duplicate buttonDoubleClick buttonClick ctrlID Letztes Steuerelement duplizieren helpText strChecked bringToFront yhelpText dlg_BringToFront Auswahl ganz nach vorne verschieben dlg_disableBringToFront bringCloser dlg_bringCloser dlg_disablebringCloser Auswahl eine Schicht nach vorne verschieben bringToFront toggleState notifyBefore toggleState isControl onormalGraphic bitmap "dlg_bringCloser" odisabledGraphic ,disablebringCloser" ohelpText "Auswahl eine Schicht nach vorne verschieben" BringToFront" disableBringToFront" {ganz ctrlID Auswahl ganz nach vorne verschieben helpText strChecked sendToBack dlg_sendFarther dlg_disableSendFarther Auswahl ganz nach hinten verschieben yhelpText Auswahl eine Schicht nach hinten verschieben sendToBack dlg_sendToBack dlg_disableSendToBack sendFarther toggleState notifyBefore toggleState isControl onormalGraphic bitmap "dlg_sendFarther" odisabledGraphic ,disableSendFarther" ohelpText "Auswahl eine Schicht nach hinten verschieben" ToBack" disableSendToBack" tganz ctrlID Auswahl ganz nach hinten verschieben helpText strChecked showDialog ctrlID Dialogfeld im voraus pr helpText strChecked Position controlPosition controlPosition value Position des Steuerelements in Seiteneinheiten helpText strChecked 25,2556380952381,115.2 TBKDialogCommand TBKDialogInit oldBar ,msgTxt ToolBar statusBar friend TBKDialogCommand TBKDialogDestroy TBKDialogInit hDlg, hWndFocus translateWindowMessage on 0x0203 TBKDialogCommand bCtrlID, hWndCtrl, msgNumber, ControlName ( = 0 + bitAND 2) <> 0 "ToolBar" StatusBar oldBar = statusBar msgTxt ofriend) TBKDialogDestroy field id 53 friend strChecked Position: controlSize controlSize value e des Steuerelements in Dialogfeldeinheiten helpText strChecked 237 x 17846153846153858.4615384615385 * * * Dialog Editor version 3.0 enhancements by Jeffrey Ayars * * * msgTxt strChecked e:::: toggleState ToolBar strChecked strChecked So speichern Sie Ihre Dialogfeld-Vorlage: hlen Sie Speichern... oder Speichern unter... aus dem Men Datei. So verwenden Sie Ihr Dialogfeld in einem Buch: hlen Sie Vorlage zu Buch zuweisen... aus dem Men Datei So bearbeiten Sie ein Dialogfeld, das Sie einem Buch zugewiesen haben: hlen Sie ffnen... aus dem Men Datei hlen Sie das Buch aus dem Dialogfeld hlen Sie das Dialogfeld aus dem Listenfeld So bearbeiten Sie eine gespeicherte Dialogfeld-Vorlage: hlen Sie ffnen... aus dem Men Datei ndern Sie den Filter auf .dia und w hlen Sie die Datei aus So bearbeiten Sie ein Dialogfeld aus einem umgewandelten Buch der Version 1.5: Kopieren Sie die Schaltfl che mit den Benutzereigenschaften DLGBOX und DLGINIT in die Zwischenablage gen Sie die Schaltfl che in den Editor ein ndern Sie die Gr e des Dialogfelds: Halten Sie die STRG-TASTE gedr ckt und ziehen Sie das Editor-Fenster in die gew nschte Gr Dialog Dlg_MyAppIcon wp{31 ffffffff ffffffff wwwwwwwp wwwwwwwp DDDDDD@ DDDDDDDD@ DDDDD DDDD@ DDDDD DDDD@ DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDO DDDDD@ DDDDO DDDDD DDDDDDDDDDDDDD DDDDDDDDDDDDDD DDDDD DDDDD@ DDDDO DDDD@ --This handler initializes the editor. It links DLLs used +ToolBar, Dialog, ToolPalette viewers, Ftranslates emessages enterApplication 4OBJECT s_dialogWindow 4WORD s_CurrentCursor sysRuntime "Dieser Editor erfordert die Autoren-Version von ToolBook." = TRUE } = 1 initDLLs initEditor following use a ,mode extension within --For now, I don't want kloaded instance. newDialog focusWindow = = FALSE --Prevent nested , they have no meaning templates ) > 1 -- xallow --Only be shown s_Browse 4LOGICAL --only rightClick access rightbuttonDown --Display user choose font 4s_DialogTemplate oldSelection = currentPage --KLUDGE enabled sysOpenWindows newFont = ChooseFontDlg( &", 0,0,0, 7", "forceExists,noGDI,noVector,screen") --END contents dlg_WinHelp(windowHandle .hlp",257," INITIALIZTION/RESOTRATION HANDLERS states turn off sys3DInterface 4STRING , s_dlgBaseUnits t= "MS Sans Serif" v= BOLD sysTransparent = sysDrawDirect = sysReaderRightClick = sysUseWindowsColors = sysShowMRUFiles = objList = ) > 0 resName = " normalGraphic invertGraphic bitmap ) > 0 disabledGraphic dlg_disable"& --Link dll functions --The DLL display dialogs created linkDLL "tb30dlg. getValue( SetValue( dialogCallback( OpenFileDlg( , INT) SaveAsDlg( chooseFontDlg( a etBitmapData( etIconData( } enableControl( setControlText( getControlText( --See Microsoft SDK documentation more information. dlg_CreateFontIndirect = (POINTER) dlg_SelectObject = DWORD dlg_getTextExtent = U dlg_DeleteObject = kernel WGlobalHandle = pGlobalAlloc = dlg_GlobalLock = GlobalUnlock = GlobalFree = DC = getDC( ReleaseDC = INT dlg_DestroyIcon = SendMessage = handlers --sent closing down tell shut s_dirty been made xsaved checkSave s_Dirty defaultPage "Aktuelle nderungen speichern?" f"&Ja" "&Nein" = "Ja" saveDialog --Alias help --Toggles translated --are has no scripts , untranslating re-activates click explore architecture. browse Browsestate untranslateAllWindowMessages clientHandle "Toolbar" initViewer A = --Shows necessary clears controls xisOpen clearDialog prompts a .DIA file that should be opened "tbkdlg.dll". decides operation, provides error checking. Ctrl-A (ANSI 1) vvalue specified . ^s_InitialValues --remaining portion Fsends buildFrame --buildItem , whose corresponding rebuild OpenDialog s_currentFile tempList, templateName, , retVal ffnen", "Dialogfeld-Vorlage (*.DIA),*. -Buch (*.TBK),*. ,Systembuch (*.SBK),*. ", 2) there [them wants be cleared checkClear = upperCase( --If a 8was selected Flook property isObject("BOOK" && QUOTE & propList = currProp len = % = "box" initProp = r) & CRLF --If some -- = LoadTemplateInit = setValue( , "listbox (LoadTemplateBOX dialogName len-3 targetBook newCaption = " - " & && "von" && dialogTemplate = 8" && initialValues = && " 8" && "Keine n im gefunden"&& --If -- I separate "Die Datei leer." sysErrorNumber = 0 - " & --Build values buildItems B"showDialog" ) > 0) captionLength = <= 78 ~(" - ", ) < 78 ...". --specifies a valid writen. = saveAsDlg("Speichern", "", " *.DIA", 1) SaveDIA %...". saveDialogAs r = rn unter", "", " <> calls buildDialogXXX "drawing". These Fwritten buildDialogHeader buildDialogItems o(1) strings - " & s invoked each }-clicks on a selects "Properties..." It will appropriate %determined currently }clicked on. x hWnd, Msg, wKeyFlags, xClientPos, yClientPos ZARRAY ctrlProperties[5] ,targetObj y --Menu --Double -- key pressed doubleclick > 1 = 0 = 0 ) = objectFromPoint(ClientToPageUnits( controlProperties --Check type 1] = "BUTTON" --PushButtons different than Checkboxes RadioButtons --because you can ID_OK, ID_CANCEL, --IdNumber "pushbutton" = pushbuttonPropertiesBox #esInit --Translate "controlID ctrlID = "& oldID = " ^" & ","combobox & ButtonIDs 4] = 9# = Baccept", [# = Bdiscard", $same h# so done together = checkRadioPropertiesBox d$ = w$ = $,"static ID", Bradio", % = (% = L% = 4]) ) z% = %,"iedit -- l% box. retValue = -- 'specific 2] = 1 removeButtonID(" 2] = 2 2] = xisType(REAL, addButtonID( O 4] = 4] = " 4] = " 4] = 4] = 1] = "GROUPBOX" ) = groupboxPropertiesInit ),"e235", ),"e240", *,"s245", .* = 7*,"i250", V* = -- )(groupBoxPropertiesBOX 1] = "EDIT" + = editPropertiesInit +,"s240", +,"i245", <, = E,,"e250", Z, = c,,"b200",(fieldType = WordWrap)) ,,"b205", ,,"b210", ,,"b220", -,"b215", BPassword", D- = M-,"b225", g- = p-,"b255", -,"b260", -,"b265", $. = -(editPropertiesBOX SingleLineWrap 4] = H , " 4] = f , " 4] = 4] = 4] = 4] = 1] = "STATIC" 0 = staticPropertiesInit :1 = _1 = '2 = Q2 = 2,"b270", 2(staticPropertiesBOX 1] = "LISTBOX" 4 = listboxPropertiesInit 45 = O5 = Bsingle", v5 = 5,"b280", 5,"b275", *5(listboxPropertiesBOX 4] = 4] = 4] = 4] = 1] = "COMBOBOX" D7 = comboboxPropertiesInit i7 = dropDownLength",lineCount 88 = ",DropDownItems d8 = ",sortItems ",scrollable Beditable",Editable +8(comboboxPropertiesBOX dropDownItems 1] = "ICON" V: = iconPropertiesInit y: = Layer", =; = F;, " q; = resourceName", --uses ;chooseResource h;, iconPropertiesBOX newIcon 1] = "BITMAP" o= = BitmapPropertiesInit F> = 6" && }> = -- >, BitmapPropertiesBOX newBmp newBMP "Platzhalter f 6-Steuerelement" !1] = "CUSTOM" @ = CustomPropertiesInit )A = NA = j"3]) kA = className", style", "4]) A(CustomPropertiesBOX #3] = #4] = --If = NULL C = dialogPropertiesInit +C = KC = jC = xpos", ypos", (dialogPropertiesBOX --If {wasn't x$array % <> selectionChanged D = 1 Eremoves 3IDString available --IDs. cover 9< makes easier read. obuttonIDs Eadds textlineCount( 'strokes also called It just resets FDialogFrame WMkeyUp a, b, controlState( b <> 0 It handles G'nudge' behavior --arrow :G unit Iinstead --pixel hanges Hboarder resizing 'H buttons. WMkeyDown a, b, , c, d "ThickFrame" ])>= g)<= keyDownArrow lockScreen DlgUnitsToPageUnits(1,1) dx = dy = H-dx, 0 H0, -dy Hdx, 0 H0, dy --Make Ialt dlg_sendMessage( J", b, key, c bitOR (d bitShiftLeft 16)) b <> 0 "Assign 8..." GsetScript DscriptMessage, templateScript, cmdString aJ = 4 --If I 8yet, (where openFileDlg("Zielbuch f 39ausw hlen...", \ "*.tbk", ".", " J (*. 69 *.TBK, 79 *.SBK", 1) r<> -1 P4angegebene aEkein K = 1 without changing 1<would 8doesn't yet. 114", bFound = resList = resourceList( )) > 0 currentIcon --If p, I --names ("Sie m ssen dem < einen Namen . Bitte das untenstehende Feld --strip spaces, cannot ~(" ", ~(" ", verifyDialogName( O = 1 --If I am going = normalScript ~("_DLGNAME_", ) > 65535) = ". Es steht nicht gen gend im Buchskript zur Verf gung"&& =&"um BPBehandlungsroutine"&&\ ;&&"zu erweitern. . wurde PZwischenablage bertragen" = " -Botschaft"& yzum dieses hinzugef gt. Zur Anzeige +ADialogfelds"&&\ "senden --Add N;"&\ QInitialisierungswerte wurden #@"&& \ &&"als Benutzereigenschaften gt"& &"." R = 1 G-, msg dPisTemplate, isViewer i = 1 "1234567890" = "Der Dialogfeldname mu mit einem Buchstaben beginnen." "!@#$%^&*()-,./?><;':[]{}\|=+`~"& SPACE & TAB & msg = "Das Zeichen '"& w>& "' Behandlungsroutinen- oder Eigenschaftsnamen ltig. darf keine -folgenden menthalten:"& &"!@#$%^&*()-,./?><;':[]{}\|=+`~"& Leerzeichen ( Tabulatorzeichen ( konnte aus Dialogfeldnamen erstellt werden."& msg already a 8" && &B&" <> 8"&& Ein Ansichtsobjekt diesem Obereits im Dvorhanden " &&\ targetbook & "." Eine J" &&\ & "." " &&\ & "." Wenn fortfahren, wird Vvorhandene berschrieben " gt " scht "neues gt, " jedoch Skript abgelegt." f"&Fortfahren" "&Umbenennen" "&Abbrechen" = "umbenennen" ("Neuen F eingeben." buildViewer Y = 4 "*. Y (*. SysBook (*. r<> -1 lZ = 1 Z must p, I ein." [ = 1 ~(" ", ~(" ", W\correct userProperty [ = 1 could Zchanged = ViewerScript ) > 65535) = ". Es I&"um G&&"zu = " JH&&\ newDlgPage = copyObject( n^", clientSize newDlgpage skipNavigation cX) > 0 currentObject !A1] = " 7A4] = OA4] = integerOnlyScript = "PUSHBUTTON" A4] = trueAcceptScript falseCancelScript newDlgViewer = w`", autosize defaultPosition alwaysReader " && K&& " :" &&\ & "." @a = 1 .bdisplays QAbout a..." picked. aboutdialog e, aboutBOX aboutinit dialogHelp %modal close cpreview ShowDialog U] = menuItemChecked("Preview3D" b = 4 c = 1 Tdasks --action occurs. Plogical openDialog "Wollen f"&Ja" "Ja" Id = 4 "abbrechen" d = 1 G on --(Other WNOT deleted.) %well. xPos yPos 425, 300 e- <Unbenannt>" UTILITY FUNCTIONS J two forget keeping global memory Fallocate. getWinPointer pBytes dlg_GlobalAlloc(66, -- 66 = (moveable + zeroinit) "Speicherzuordnung fehlgeschlagen. OOperation abgebrochen." freeWinPointer pPointerToGlobalMemory ghMem dlg_GlobalHandle( () -- bitAnd 0x0000FFFF hselector. dlg_GlobalUnLock( Speicherfehler aaufgetreten. dlg_GlobalFree( --Convert h units pixels dlgUnitsToPixels x, y ZnewX, newY baseUnits = --width ] = ((x * _) / 4) --Height =jheight = ((y * ) / 8) dlgUnitsToPageUnits x, y pageUnits -per .kx direction = ((x * sysPageUnitsPerPixel) / 4) = ((y * xel) / 8) PixelsToDlgUnits x, y 4 times = ((x / ) * 4) = ((y / ) * 8) pageUnitsToDlgUnits x, y divided = ((x * 4) / ( = ((y * 8) / ( --Acutally calucate ]fontName --point &depends on 410pt Bold, nAPI R getDialogBaseUnits() gives other fonts, be calculated. component kbeing widths, I ontire alphabet ( I cache g gets )a lot (everytime `, a couple , etc..) a comma seperated , fontPtSize ZlExtent, baseWidth, baseHeight, pLogFont, hFont, hPreviousFont, hDC --If we p, recalculate , otherwise use rcached k <> l <> nstructure --fill 1(18, .(8, negative scell --multiplying inch points physical --1440 .(0, * ((1440/ l) / 72)) ) --Now I hDC = dlg_getDC(sysClientHandle) caluclate ktavarage ,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", 52) --0 masks thigh = TRUNCATE(( ) / 52) --16 bits bitShiftRight 16) clean Up Fj(hDC, dlg_ReleaseDC( ucallback TBKDialogInit hDlg, hWndFocus TBKDialogCommand XCtrlID, hWndCtrl, msgNumber, ControlName = 0 7 = 1 -- w(ie ausgew hlte Ressource = 0 controlName = " +ch f v (*. setBitmapData( ", GDIHandle( = 0 -ch f x (*. setIconData( Dialog strChecked ttonIDs System System Fo@_} MS Sans Serif Arial staticpropertiesinit aboutinit comboboxpropertiesinit icon id 100 about ,G2667,Style ,S253,Layer ,S254,Control ID: ,S252,Name ,S251,Listbox Items STATIC ID,S240,ID EDIT Name,E235, iedit Layer,i245, EDIT Items,E250, BUTTON single,B3392,FALSE ,B275,FALSE ,B280,FALSE ,B270,FALSE ,B1,TRUE ,B2,FALSE ,G4828,Justification ,S252,Schicht ,S253,Steuerelementkennummer ,S251,Name ,S254,Statischer Text ,S240,ID ,E235, ,i245, ,B255,FALSE ,B260,FALSE ,B265,FALSE ,E250, ,B270,FALSE ,B1,TRUE ,B2,FALSE 220,FALSE ,B225,FALSE ,B200,FALSE ,B1,TRUE ,B2,FALSE ,B2,FALSE listboxpropertiesinit ,G4828,Justification ,S252,Layer ,S253,Control ID ,S251,Name ,S254,Static Text ,S240,ID ,E235, ,i245, ,B255,FALSE ,B260,FALSE ,B265,FALSE ,E250, ,B270,FALSE ,B1,TRUE ,B2,FALSE BUTTON password,B2814,FALSE ,B220,FALSE ,B225,FALSE ,B200,FALSE ,B1,TRUE ,B2,FALSE editpropertiesinit ,S3151,Name ,S3154,Y Position ,S3155,X Position ,S2987,Caption EDIT Name,E3152, EDIT caption,E2988, iedit xpos,i3156, iedit ypos,i3157, ,B1,TRUE ,B2,FALSE ,B2,FALSE iconpropertiesinit bitmapPropertiesInit LoadTemplateBOX ,S3151,Name ,S3154,Y Position ,S3155,X Position ,S2987,Caption EDIT Name,E3152, EDIT caption,E2988, iedit xpos,i3156, iedit ypos,i3157, ,B1,TRUE ,B2,FALSE dialogpropertiesinit falseCancelScript integerScript edit name,e235, edit caption,e240, iedit layer,i250, ,b1,TRUE ,b2,FALSE ,s253,Layer ,s252,Control ID: ,s254,Caption static ID,s245,ID ,s255,Name groupboxpropertiesinit ,G2544,Bitmap ,S2532,Name ,S2533,Control ID ,S2534,Layer STATIC ID,S2542, BITMAP Current Bitmap,p2553, EDIT Name,E2540, iedit Layer,i2541, ,S2964,Bitmap Name EDIT resourceName,E2965, ,B1,TRUE ,B2,FALSE BUTTON Choose Bitmap,B2543,FALSE PushButtonPropertiesINIT CheckRadioPropertiesBOX CheckRadioPropertiesINIT ,G2544,Bitmap ,S2532,Name ,S2533,Control ID ,S2534,Layer STATIC ID,S2542, BITMAP Current Bitmap,p2553, EDIT Name,E2540, iedit Layer,i2541, ,S2964,Bitmap Name EDIT resourceName,E2965, ,B1,TRUE ,B2,FALSE BUTTON Choose Bitmap,B2543,FALSE ,S2240,Name ,S2241,Layer ,S2242,Control ID STATIC ID,S2246,32789 ,S2247,Control Class ,S2249,Control Text ,S2278,Control Style EDIT Name,E2243, iedit Layer,i2636, EDIT ClassName,E2248, iedit Style,i2279, EDIT Text,E2250, BUTTON OK,B1,TRUE BUTTON Cancel,B2,FALSE customPropertiesInit comboboxproperties H Schicht ,S252,Steuerelementkennummer: ,S254,Beschriftung STATIC ID,S245,ID ,S255,Name EDIT name,E235, EDIT caption,E240, iedit layer,i250, BUTTON checkbox,B180,FALSE BUTTON radio,B185,FALSE ,G4782,Default Value BUTTON true,B200,FALSE BUTTON false,B205,FALSE ,B1,TRUE ,B2,FALSE er,37,43,20,12,250,1350631552,129,,0,,6,57,129,43,4782,1342177287,128,Button Action,0,ControlID,103,43,60,44,3253,1350631746,133,,0,Accept,20,72,78,9,200,1342177289,128,&Accept changes,0,Discard,20,84,80,9,205,1342177289,128,Cance&l the changes,0,Default,6,103,74,12,230,1342242819,128,&Default Pushbutton,0,,176,6,50,14,1,1342242817,128,&OK,0,,176,23,50,14,2,1342242816,128,&Cancel,0 PushButtonPropertiesBOX ,S253,Layer ,S252,Control ID: ,S254,Caption ,S255,Name EDIT name,E235, EDIT caption,E240, iedit layer,i250, ,G4782,Btton Action COMBOBOX ControlID,C3253, BUTTON Accept,B200,FALSE BUTTON Discard,B205,FALSE BUTTON Default,B230,FALSE ,B1,TRUE ,B2,FALSE LoadTemplateINIT comboboxpropertiesBOX listboxpropertiesBOX editpropertiesBOX ,G4786,Schaltfl chenstil ,S253,Schicht ,S252,Steuerelementkennummer: ,S254,Beschriftung STATIC ID,S245,ID ,S255,Name EDIT name,E235, EDIT caption,E240, iedit layer,i250, BUTTON checkbox,B180,FALSE BUTTON radio,B185,FALSE ,G4782,Standardwert BUTTON true,B200,FALSE BUTTON false,B205,FALSE ,B1,TRUE ,B2,FALSE L55,1342177280,130,Name,0,name,37,6,99,13,235,1350631552,129,,0,caption,37,24,99,13,240,1350631552,129,,0,layer,37,41,20,12,250,1350631552,129,,0,checkbox,13,72,49,9,180,1342308361,128,&Kontrollk stchen,0,radio,13,85,53,9,185,1342177289,128,&Optionsfeld,0,,73,60,64,37,4782,1342308359,128,Standardwert,0,true,78,72,41,9,200,1342308361,128,&True,0,false,78,85,40,9,205,1342177289,128,&False,0,,151,7,51,15,1,1342373889,128,&OK,0,,151,26,51,15,2,1342242816,128,&Abbrechen,0 ,G12, BUTTON OK,B1,TRUE ,h6,icon "Dlg_MyAppIcon" ,S8,Die in dieser Anwendung verwendeten Dialogfelder wurden mit dieser Anwendung mit Hilfe von TB30DLG.DLL erstellt. ,S9,Copyright 1991-1994 Asymetrix Corporation. ,S10,ToolBook Dialog-Editor v 3.0a Td,1342177281,130,Text,0 about 6alogName ID_CANCEL 6rgetBook E:\GERMAN\DIALOG.TBK ,6,17,92,110,3170,1352728579,131,,0,OK,108,6,50,14,1,1342242817,128,& ffnen,0,Cancel,108,22,50,14,2,1342242816,128,&Abbrechen,0 ,S3169,Dialogs in book LISTBOX templates,L3170, BUTTON OK,B1,TRUE BUTTON Cancel,B2,FALSE staticpropertiesBOX dialogpropertiesBOX groupboxpropertiesBOX iconpropertiesBOX ,S3169,Dialogfelder im Buch LISTBOX templates,L3170, BUTTON OK,B1,TRUE BUTTON Cancel,B2,FALSE ID_OK 3154,Y-Position ,S3155,X-Position ,S2987,Beschriftung EDIT Name,E3152, EDIT caption,E2988, iedit xpos,i3156, iedit ypos,i3157, ,B1,TRUE ,B2,FALSE L"DR817,128,& ffnen,0,Cancel,108,22,50,14,2,1342242816,128,&Abbrechen,0 524480,6,50,25,137,146,,,Info ber Dialog-Editor,8,MS Sans Serif,,6,52,127,48,12,1342177287,128,,0,OK,49,115,40,14,1,1342242817,128,&OK,0,,7,9,18,20,6,1342177283,130, ,0,,9,62,120,34,8,1342177281,130,Text,0,,5,32,126,18,9,1342177281,130,Text,0,,33,14,100,12,10,1342177281,130,Text,0 342308361,128,&True,0,false,97,99,40,9,205,1342177289,128,&False,0,,177,6,51,15,1,1342373889,128,&OK,0,,177,25,51,15,2,1342242816,128,&Abbrechen,0 ,36,8,240,1342177280,130,ID,0 ,S3151,Name ,S3154,Y Position ,S3155,X Position ,S2987,Beschriftung EDIT Name,E3152, EDIT caption,E2988, iedit xpos,i3156, iedit ypos,i3157, ,B1,TRUE ,B2,FALSE ID_OK ID_OK ID_OK ID_OK ID_OK ID_OK iconproperties 4erties ID_OK <ttonIDs ID_OK ID_OK ID_OK ID_OK EDIT name,E235, EDIT caption,E240, iedit layer,i250, ,B1,TRUE ,B2,FALSE ,S253,Schicht ,S252,Steuerelementkennummer: ,S254,Beschriftung STATIC ID,S245,ID ,S255,Name 524480,13,25,25,289,134,,,Symboleigenschaften,8,MS Sans Serif,,69,73,42,43,2544,1342177287,128,Symbol,0,,6,12,22,10,2532,1342177280,130,Layer,0,,5,42,88,9,2533,1342177280,130,Control ID:,0,,5,28,26,10,2534,1342177280,130,Layer,0,ID,94,42,22,10,2542,1342177280,130,Text,0,Current Icon,81,90,19,20,2547,1342177283,130, ,0,,6,56,47,10,2949,1342177280,130,Layer,0,Name,52,9,143,12,2540,1350631552,129,,0,Layer,52,26,143,12,2541,1350631552,129,,0,resourceName,53,55,143,12,2950,1350631552,129,,0,,214,6,70,15,1,1342242817,128,OK,0,,214,25,70,15,2,1342242816,128,Abbrechen,0,Choose Icon,214,52,70,15,2543,1342242816,128,Symbol &ausw hlen,0 iconPropertiedBOX $&( comboboxProperties ,S3169,Dialogfelder im Buch LISTBOX templates,L3170, BUTTON OK,B1,TRUE BUTTON Cancel,B2,FALSE 524480,4,25,25,164,148,,,Dialog-Vorlage laden,8,MS Sans Serif,,6,6,91,9,3169,1342177280,130,Text,0,templates,6,17,92,110,3170,1352728579,131,,0,OK,108,6,50,14,1,1342242817,128,& ffnen,0,Cancel,108,22,50,14,2,1342242816,128,&Abbrechen,0 T16,128,Cancel,0 bitmapPropertiesBOX customPropertiesBOX ID_OK Arial ID_OK ID_CANCEL #n0N0ID_OK ID_OK aboutBox 524480,15,25,25,241,161,,,Listenfeldeigenschaften,8,MS Sans Serif,,92,65,76,55,2667,1342177287,128,Stil,0,,6,25,34,12,253,1342177280,130,Layer,0,,6,43,89,12,254,1342177280,130,Control ID:,0,,6,8,24,10,252,1342177280,130,Name,0,,6,56,74,9,251,1342177280,130,Listbox Items,0,ID,97,44,28,10,240,1342177280,130,ID,0,Name,45,6,125,13,235,1350631552,129,,0,Layer,45,23,27,13,245,1350631552,129,,0,Items,6,68,80,74,250,1352728708,129,,0,single,96,77,70,10,3392,1342177289,128,&Einzelauswahl,0,,96,91,71,12,275,1342177289,128,&Mehrfachauswahl,0,,96,105,71,12,280,1342177289,128,&Auswahl erweister,0,,96,125,73,12,270,1342242819,128,Elemente &sortieren,0,,182,5,51,15,1,1342242817,128,OK,0,,182,22,51,15,2,1342242816,128,Abbrechen,0 $&:a"'TON Cancel,B2,FALSE ,G2667,Stil ,S253,Schicht ,S254,Steuerelementkennummer: ,S252,Name ,S251,Listenfeldelemente STATIC ID,S240,ID EDIT Name,E235, iedit Layer,i245, EDIT Items,E250, BUTTON single,B3392,FALSE ,B275,FALSE ,B280,FALSE ,B270,FALSE ,B1,TRUE ,B2,FALSE <77280,130,Name,0,,6.00,41.00,45.00,9.00,251,1342177280,130,Listbox Items,0,ID,137.00,26.00,28.00,10.00,240,1342177280,130,ID,0,Name,45.00,6.00,125.00,13.00,235,1350631552,129,,0,Layer,45.00,23.00,27.00,13.00,245,1350631552,129,,0,Items,6.00,53.00,80.00,74.00,250,1352728708,129,,0,single,96.00,62.00,70.00,10.00,3392,1342177289,128,&Einzelauswahl,0,,96.00,76.00,70.00,12.00,275,1342177289,128,&Mehrfachauswahl,0,,96.00,90.00,70.00,12.00,280,1342177289,128,&Auswahl erweister,0,,106.00,116.00,51.00,12.00,270,1342242819,128,Elemente &sortieren,0,,182.00,5.00,51.00,15.00,1,1342242817,128,OK,0,,182.00,22.00,51.00,15.00,2,1342242816,128,Abbrechen,0 H.00,1,1342242817,128,OK,0,,151.00,26.00,51.00,15.00,2,1342242816,128,Cancel,0,Choose Icon,151.00,53.00,51.00,15.00,2543,1342242816,128,Choose &Icon,0 524480,15,25,25,236,142,,,Statischer Text-Eigenschaften,8,MS Sans Serif,,118,25,51,46,4828,1342177287,128,Ausrichtung,0,,7,30,34,12,252,1342177280,130,Layer,0,,7,49,87,10,253,1342177280,130,Control ID,0,,7,9,24,12,251,1342177280,130,Name,0,,7,65,55,9,254,1342177280,130,Static Text,0,,92,50,25,8,240,1342177280,130,ID,0,,45,8,124,12,235,1350631552,129,,0,,45,28,20,12,245,1350631552,129,,0,,124,34,34,12,255,1342308361,128,&Links,0,,124,46,34,12,260,1342177289,128,&Rechts,0,,124,58,34,12,265,1342177289,128,&Zentriert,0,,7,76,162,29,250,1352859780,129,,0,,7,110,51,12,270,1342242819,128,&Rahmen,0,,181,6,51,15,1,1342242817,128,OK,0,,181,23,51,15,2,1342242816,128,Abbrechen,0 D176,23,50,14,2,1342242816,128,&Abbrechen,0 42817,128,&OK,0,Cancel,179.00,28.00,54.00,14.00,2,1342242816,128,&Cancel,0 ID_OK normalScript viewerScript to handle buttonClick hide this window trueAcceptScript to handle buttonClick close this window edit name,e235, edit caption,e240, iedit layer,i250, ,b1,TRUE ,b2,FALSE ,s253,Schicht ,s252,Steuerelementkennummer: ,s254,Beschriftung static ID,s245,ID ,s255,Name pushbuttonproperties staticproperties D"=alogName ID_OK SAMPLES\LOADED\DIALOG.TBK checkradioproperties alogName ID_OK SAMPLES\LOADED\DIALOG.TBK ID_OK ID_OK ID_OK ID_OK ID_OK ID_OK ID_OK buttonIDs ID_OK ID_CANCEL 1<0N012,255,1342177280,130,Name,0 4$Text,55.00,86.00,107.00,50.00,2250,1352728580,129,,0,OK,179.00,10.00,54.00,14.00,1,1342242817,128,&OK,0,Cancel,179.00,28.00,54.00,14.00,2,1342242816,128,&Cancel,0 ,S3151,Name ,S3154,Y-Position ,S3155,X-Position ,S2987,Beschriftung EDIT Name,E3152, EDIT caption,E2988, iedit xpos,i3156, iedit ypos,i3157, ,B1,TRUE ,B2,FALSE ,G4848,Ausrichtung ,S253,Schicht ,S254,Steuerelementkennummer: ,S252,Name ,S6115,Anfangstext ,S240,ID ,E235, ,i245, ,B255,FALSE ,B265,FALSE ,B260,FALSE ,E250, ,B205,FALSE ,B210,FALSE ,B215,FALSE BUTTON password,B2814,FALSE ,B220,FALSE ,B225,FALSE ,B200,FALSE ,B1,TRUE ,B2,FALSE P350631424,129,,0,,154.00,6.00,51.00,14.00,1,1342242817,128,&OK,0,,154.00,22.00,51.00,14.00,2,1342242816,128,&Abbrechen,0 5DR:<p,158,50,65,15,2543,1342242816,128,Bitmap &ausw hlen,0 ON Choose Icon,B2543,FALSE ID_OK ID_OK ID_OK ID_OK strChecked ID_OK ID_OK ID_OK about S6H l6alogName S6.6l6 ID_OK ID_OK ID_OK ID_OK ID_OK ttonIDs to handle show_DLGNAME_ open viewer _DLGNAME_ --uncomment the following lines to do initialization --in viewer _DLGNAME_ -- initialize objects before showing the viewer --end show viewer _DLGNAME_ as modal --if the viewer is still open then a true/Accept --button was pressed if isOpen of viewer _DLGNAME_ --uncomment the following lines to retrieve --information from the dialog --in viewer _DLGNAME_ -- get the data from the objects here --end --otherwise the dialog was canceled else --do anything here to clean up after a cancel to handle keyChar key if ANSIToChar(key) is in "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890@_" set character (item 2 of caretLocation + 1) of my password to ANSIToChar(key) set character (item 2 of caretLocation + 1) of my text to "*" increment item 2 of caretLocation else forward to handle show_DLGNAME_ --Move linkDLL statement to enterApplication handler linkDLL "tb30dlg.dll" string dialog(string, string) string setValue(string, string, string) string getValue(string, string) set init to _DLGNAME_Init of this book --set init to setValue(init,"","") --DLL function set retValue to dialog(_DLGNAME_BOX of this book, init) --get getValue(retValue, "") --DLL function unlinkDLL "TB30DLG.DLL" customproperties alogName customproperties groupboxproperties alogName ID_CANCEL ID_OK <:aD= ID_OK ID_OK ID_OK ID_OK ID_OK checkradioproperties [="=R 524480,13,25,25,231,163,,,Bitmap-Eigenschaften,8,MS Sans Serif,,9,75,133,70,2544,1342177287,128,Bitmap,0,,7,12,22,10,2532,1342177280,130,Layer,0,,6,47,96,9,2533,1342177280,130,Control ID:,0,,7,32,26,10,2534,1342177280,130,Layer,0,ID,98,48,23,10,2542,1342177280,130,Text,0,Current Bitmap,30,88,96,50,2553,1342177280,TBKDLGBitmap,,0,Name,42,10,98,12,2540,1350631552,129,,0,Layer,42,30,23,12,2541,1350631552,129,,0,,6,61,47,10,2964,1342177280,130,Layer,0,resourceName,54,60,88,12,2965,1350631552,129,,0,,157,6,70,15,1,1342242817,128,OK,0,,157,25,70,15,2,1342242816,128,Abbrechen,0,Choose Bitmap,157,53,70,15,2543,1342242816,128,Bitmap &ausw hlen,0 524480,13,25,25,261,135,,,Symboleigenschaften,8,MS Sans Serif,,74,76,41,41,2544,1342177287,128,Symbol,0,,6,12,22,10,2532,1342177280,130,Layer,0,,6,43,89,9,2533,1342177280,130,Control ID:,0,,6,28,26,10,2534,1342177280,130,Layer,0,ID,97,43,22,10,2542,1342177280,130,Text,0,Current Icon,86,91,19,20,2547,1342177283,130, ,0,,6,57,44,10,2949,1342177280,130,Layer,0,Name,50,10,120,12,2540,1350631552,129,,0,Layer,50,26,24,12,2541,1350631552,129,,0,resourceName,50,57,121,12,2950,1350631552,129,,0,,186,6,70,15,1,1342242817,128,OK,0,,186,25,70,15,2,1342242816,128,Abbrechen,0,Choose Icon,186,52,70,15,2543,1342242816,128,Symbol &ausw hlen,0 :ael,B2,FALSE about ,G2544,Symbol ,S2532,Name ,S2533,Steuerelementkennummer ,S2534,Schicht STATIC ID,S2542,ID ICON Current Icon,h2547,icon id 114,S2949,Symbolname EDIT Name,E2540, iedit Layer,i2541, EDIT resourceName,E2950, ,B1,TRUE ,B2,FALSE BUTTON Choose Icon,B2543,FALSE 342177281,130,Text,0 ,G4828,Ausrichtung ,S252,Schicht ,S253,Steuerelementkennummer ,S251,Name ,S254,Statischer Text ,S240,ID ,E235, ,i245, ,B255,FALSE ,B260,FALSE ,B265,FALSE ,E250, ,B270,FALSE ,B1,TRUE ,B2,FALSE ,H/,1342177280,130,Control ID,0,,7.00,9.00,24.00,12.00,251,1342177280,130,Name,0,,7.00,65.00,55.00,9.00,254,1342177280,130,Static Text,0,,47.00,49.00,25.00,8.00,240,1342177280,130,ID,0,,45.00,8.00,82.00,12.00,235,1350631552,129,,0,,45.00,28.00,20.00,12.00,245,1350631552,129,,0,,83.00,30.00,34.00,12.00,255,1342308361,128,&Links,0,,83.00,42.00,34.00,12.00,260,1342177289,128,&Rechts,0,,83.00,54.00,34.00,12.00,265,1342177289,128,&Zentriert,0,,7.00,76.00,119.00,29.00,250,1352859780,129,,0,,7.00,110.00,51.00,12.00,270,1342242819,128,&Rahmen,0,,141.00,8.00,51.00,15.00,1,1342242817,128,OK,0,,141.00,25.00,51.00,15.00,2,1342242816,128,Abbrechen,0 el,0,,5,26,27,12,252,1342177280,130,Layer,0,,70,26,42,12,254,1342177280,130,Control ID:,0,,5,9,24,12,251,1342177280,130,Name,0,,5,59,56,9,255,1342177280,130,Combobox Items,0,,5,45,62,12,253,1342177280,130,Dropdown Length,0,ID,112,26,36,8,240,1342177280,130,ID,0 524480,14,25,25,257,153,,,Druckschalter-Eigenschaften,8,MS Sans Serif,,6,43,28,12,253,1342177280,130,Layer,0,,6,60,94,12,252,1342177280,130,Control ID:,0,,6,25,50,12,254,1342177280,130,Caption,0,,6,10,33,12,255,1342177280,130,Name,0,name,51,6,131,13,235,1350631552,129,,0,caption,51,24,131,13,240,1350631552,129,,0,layer,52,42,20,12,250,1350631552,129,,0,,5,74,118,44,4782,1342177287,128,Schaltfl chen-Aktion,0,ControlID,102,59,60,60,3253,1350631490,133,,0,Accept,17,89,101,9,200,1342308361,128, nderungen bernehmen,0,Discard,17,101,101,9,205,1342177289,128, nderungen verwerfen,0,Default,6,123,101,12,230,1342373891,128,&Standard-Druckschalter,0,,199,6,50,14,1,1342242817,128,&OK,0,,199,25,50,14,2,1342242816,128,&Abbrechen,0 *^00,12.00,270,1342242819,128,So&rt Items,0,,182.00,5.00,51.00,15.00,1,1342242817,128,OK,0,,182.00,22.00,51.00,15.00,2,1342242816,128,Cancel,0 ,G2687,Optionen EDIT Name,E235, iedit Layer,i245, iedit DropDownLength,i248, EDIT Items,E250, BUTTON sort,B270,TRUE BUTTON scroll,B18,FALSE BUTTON editable,B119,FALSE ,B1,TRUE ,B2,FALSE ,S252,Schicht ,S254,Steuerelementkennummer ,S251,Name ,S255,Kombinationsfeldelemente ,S253,Dropdown-L STATIC ID,S240,ID <e &sortieren,0,scroll,103,99,53,12,18,1342242819,128,&Bildlaufleiste,0,editable,103,115,53,12,119,1342242819,128,&Ver nderbar,0,,183,6,52,15,1,1342242817,128,&OK,0,,183,24,52,15,2,1342242816,128,&Abbrechen,0,,5,26,27,12,252,1342177280,130,Layer,0,,70,26,42,12,254,1342177280,130,Control ID:,0,,5,9,24,12,251,1342177280,130,Name,0,,5,59,56,9,255,1342177280,130,Combobox Items,0,,5,45,62,12,253,1342177280,130,Dropdown Length,0,ID,112,26,36,8,240,1342177280,130,ID,0 524480,10,25,25,216,81,,,Optionsgruppe-Steuerelement,8,MS Sans Serif,name,50,6,95,12,235,1350631424,129,,0,caption,50,22,95,12,240,1350631552,129,,0,layer,50,37,20,12,250,1350631424,129,,0,,158,5,50,15,1,1342242816,128,OK,0,,158,25,50,15,2,1342242816,128,Abbrechen,0,,5,39,37,10,253,1342177280,130,Layer,0,,5,55,96,12,252,1342177280,130,Control ID:,0,,5,23,44,12,254,1342177280,130,Caption,0,ID,96,56,36,8,245,1342177280,130,ID ,0,,5,8,33,12,255,1342177280,130,Name,0 29,,0,Items,6.00,53.00,80.00,74.00,250,1352728708,129,,0,single,96.00,62.00,70.00,10.00,3392,1342177289,128&Einzelauswahl,0,,96.00,76.00,70.00,12.00,275,1342177289,128,&Mehrfachauswahl,0,,96.00,90.00,70.00,12.00,280,1342177289,128&Auswahl erweister,0,,106.00,116.00,51.00,12.00,270,1342242819,128,Elemente &sortieren,0,,182.00,5.00,51.00,15.00,1,1342242817,128,OK,0,,182.00,22.00,51.00,15.00,2,1342242816,128,Abbrechen,0 RL":< ,S3151,Name ,S3154,Y Position ,S3155,X Position ,S2987,Beschriftung EDIT Name,E3152, EDIT caption,E2988, iedit xpos,i3156, iedit ypos,i3157, ,B1,TRUE ,B2,FALSE 524480,10,25,25,209,82,,,Dialog-Rahmen,8,MS Sans Serif,,9,8,36,8,3151,1342177280,130,Caption,0,,82,49,36,8,3154,1342177280,130,Y Position,0,,8,49,36,8,3155,1342177280,130,X Position,0,,9,26,46,8,2987,1342177280,130,Caption,0,Name,53,7,94,12,3152,1350631552,129,,0,caption,53,25,94,12,2988,1350631552,129,,0,xpos,52,47,18,12,3156,1350631424,129,,0,ypos,126,47,18,12,3157,1350631424,129,,0,,154,6,51,14,1,1342242817,128,&OK,0,,154,22,51,14,2,1342242816,128,&Abbrechen,0 ,,154.00,6.00,51.00,14.00,1,1342242817,128,&OK,0,,154.00,22.00,51.00,14.00,2,1342242816,128,&Abbrechen,0 GDC00,1,1342242817,128,OK,0,,141.00,25.00,51.00,15.00,2,1342242816,128,Abbrechen,0 524480,16,25,25,221,132,,,Kontrollk stchen/Optionsfeld-Eigenschaften,8,MS Sans Serif,,6,75,78,39,4786,1342177287,128,Schaltfl chenstil,0,,7,45,28,12,253,1342177280,130,Layer,0,,8,61,92,12,252,1342177280,130,Control ID:,0,,7,25,46,12,254,1342177280,130,Caption,0,ID,101,62,25,8,245,1342177280,130,ID ,0,,7,10,33,12,255,1342177280,130,Name,0,name,37,6,118,13,235,1350631552,129,,0,caption,53,24,102,13,240,1350631552,129,,0,layer,37,41,20,12,250,1350631552,129,,0,checkbox,12,88,65,9,180,1342308361,128,&Kontrollk stchen,0,radio,12,101,70,9,185,1342177289,128,&Optionsfeld,0,,89,75,64,39,4782,1342308359,128,Standardwert,0,true,102,87,41,9,200,1342308361,128,&True,0,false,102,100,40,9,205,1342177289,128,&False,0,,167,6,51,15,1,1342373889,128,&OK,0,,167,25,51,15,2,1342242816,128,&Abbrechen,0 ,G2544,Bitmap ,S2532,Name ,S2533,Steuerelementkennummer ,S2534,Schicht STATIC ID,S2542, BITMAP Current Bitmap,p2553, EDIT Name,E2540, iedit Layer,i2541, ,S2964,Bitmap Name EDIT resourceName,E2965, ,B1,TRUE ,B2,FALSE BUTTON Choose Bitmap,B2543,FALSE ID_OK ]*^20,S252,Steuerelementkennummer: ,S254,Beschriftung ,S255,Name EDIT name,E235, EDIT caption,E240, iedit layer,i250, ,G4782,Schaltfl chen-Aktion COMBOBOX ControlID,C3253, BUTTON Accept,B200,FALSE BUTTON Discard,B205,FALSE BUTTON Default,B230,FALSE ,B1,TRUE ,B2,FALSE \1,13,240,1350631552,129,,0,layer,52,42,20,12,250,1350631552,129,,0,,5,76,118,42,4782,1342177287,128,Schaltfl chen-Aktion,0,ControlID,102,59,60,60,3253,1350631491,133,,0,Accept,17,89,101,9,200,1342308361,128, nderungen bernehmen,0,Discard,17,101,101,9,205,1342177289,128, nderungen verwerfen,0,Default,6,118,74,12,230,1342373891,128,&Standard-Druckschalter,0,,199,6,50,14,1,1342242817,128,&OK,0,,199,25,50,14,2,1342242816,128,&Abbrechen,0 /r+,Dropdown Length,0,ID,100,41,36,8,240,1342177280,130,ID,0 pushbuttonproperties ,S253,Schicht ,S252,Steuerelementkennummer: ,S254,Beschriftung ,S255,Name EDIT name,E235, EDIT caption,E240, iedit layer,i250, ,G4782,Schaltfl chen-Aktion COMBOBOX ControlID,C3253, BUTTON Accept,B200,FALSE BUTTON Discard,B205,FALSE BUTTON Default,B230,FALSE ,B1,TRUE ,B2,FALSE Y1,13,240,1350631552,129,,0,layer,52,42,20,12,250,1350631552,129,,0,,5,76,118,42,4782,1342177287,128,Schaltfl chen-Aktion,0,ControlID,102,59,60,60,3253,1350631491,133,,0,Accept,17,89,101,9,200,1342308361,128, nderungen bernehmen,0,Discard,17,101,101,9,205,1342177289,128, nderungen verwerfen,0,Default,6,123,74,12,230,1342373891,128,&Standard-Druckschalter,0,,199,6,50,14,1,1342242817,128,&OK,0,,199,25,50,14,2,1342242816,128,&Abbrechen,0 Zcel,179.00,28.00,54.00,14.00,2,1342242816,128,7Abbrechen,0 ,G2544,Symbol ,S2532,Name ,S2533,Steuerelementkennummer ,S2534,Schicht STATIC ID,S2542,ID ICON Current Icon,h2547,icon information,S2949,Symbolname EDIT Name,E2540, iedit Layer,i2541, EDIT resourceName,E2950, ,B1,TRUE ,B2,FALSE BUTTON Choose Icon,B2543,FALSE &130,Layer,0,ID,111.00,28.00,22.00,10.00,2542,1342177280,130,Text,0,Current Icon,72.00,74.00,19.00,20.00,2547,1342177283,130, ,0,,5.00,45.00,38.00,10.00,2949,1342177280,130,Layer,0,Name,43.00,10.00,95.00,12.00,2540,1350631552,129,,0,Layer,43.00,26.00,22.00,12.00,2541,1350631552,129,,0,resourceName,43.00,42.00,95.00,12.00,2950,1350631552,129,,0,,151.00,7.00,51.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,51.00,15.00,2,1342242816,128,Abbrechen,0,Choose Icon,151.00,53.00,51.00,15.00,2543,1342242816,128,Symbol &ausw hlen,0 ,G2544,Bitmap ,S2532,Name ,S2533,Steuerelementkennummer ,S2534,Schicht STATIC ID,S2542,ID BITMAP Current Bitmap,p2553, EDIT Name,E2540, iedit Layer,i2541, ,S2964,Bitmap Name EDIT resourceName,E2965, ,B1,TRUE ,B2,FALSE BUTTON Choose Bitmap,B2543,FALSE X177280,130,Layer,0,ID,117.00,32.00,23.00,10.00,2542,1342177280,130,Text,0,Current Bitmap,28.00,72.00,96.00,50.00,2553,1342177280,TBKDLGBitmap,,0,Name,42.00,10.00,98.00,12.00,2540,1350631552,129,,0,Layer,42.00,30.00,23.00,12.00,2541,1350631552,129,,0,,6.00,49.00,46.00,10.00,2964,1342177280,130,Layer,0,resourceName,53.00,47.00,87.00,12.00,2965,1350631552,129,,0,,151.00,7.00,54.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,54.00,15.00,2,1342242816,128,Abbrechen,0,Choose Bitmap,151.00,53.00,54.00,15.00,2543,1342242816,128,Bitmap &ausw hlen,0 524480,14,25,25,241,169,,,Anwender-Steuerelement-Eigenschaften,8,MS Sans Serif,,6,10,25,12,2240,1342177280,130,Text,0,,6,31,30,12,2241,1342177280,130,Text,0,,6,49,88,10,2242,1342177280,130,Text,0,ID,101,49,27,10,2246,1342177280,130,Text,0,,6,69,94,12,2247,1342177280,130,Text,0,,7,110,69,12,2249,1342177280,130,Text,0,,6,89,65,12,2278,1342177280,130,Text,0,Name,40,10,123,12,2243,1350631552,129,,0,Layer,40,29,29,12,2636,1350631552,129,,0,ClassName,79,67,83,14,2248,1350631552,129,,0,Style,79,87,83,14,2279,1350631552,129,,0,Text,16,121,146,30,2250,1352728580,129,,0,OK,179,10,54,14,1,1342242817,128,&OK,0,Cancel,179,28,54,14,2,1342242816,128,&Abbrechen,0 nt,55.00,86.00,107.00,50.00,2250,1352728580,129,,0,OK,179.00,10.00,54.00,14.00,1,1342242817,128,&OK,0,Cancel,179.00,28.00,54.00,14.00,2,1342242816,128,Abbrechen,0 524480,16,25,25,241,178,,,Kombinationsfeldeigenschaften,8,MS Sans Serif,,87,85,82,68,2687,1342177287,128,Optionen,0,Name,37,7,127,12,235,1350631552,129,,0,Layer,37,23,20,12,245,1350631552,129,,0,DropDownLength,71,57,27,12,248,1350631552,129,,0,Items,6,87,75,66,250,1352728708,129,,0,sort,97,98,68,12,270,1342242819,128,Elemente &sortieren,0,scroll,97,115,58,12,18,1342242819,128,&Bildlaufleiste,0,editable,97,131,53,12,119,1342242819,128,&Ver nderbar,0,,183,6,52,15,1,1342242817,128,&OK,0,,183,24,52,15,2,1342242816,128,&Abbrechen,0,,5,26,27,12,252,1342177280,130,Layer,0,,5,41,91,12,254,1342177280,130,Control ID:,0,,5,9,24,12,251,1342177280,130,Name,0,,5,74,109,9,255,1342177280,130,Combobox Items,0,,5,60,62,12,253,1342177280,130,Dropdown Length,0,ID,101,42,36,8,240,1342177280,130,ID,0 ,S2240,Name ,S2241,Schicht ,S2242,Steuerelementkennummer STATIC ID,S2246,32789 ,S2247,Steuerelement-Klasse ,S2249,Steuerelement-Text ,S2278,Steuerelement-Stil EDIT Name,E2243, iedit Layer,i2636, EDIT ClassName,E2248, iedit Style,i2279, EDIT Text,E2250, BUTTON OK,B1,TRUE BUTTON Cancel,B2,FALSE .00,12.00,2247,1342177280,130,Text,0,,5.00,87.00,42.00,12.00,2249,1342177280,130,Text,0,,6.00,68.00,45.00,12.00,2278,1342177280,130,Text,0,Name,40.00,10.00,123.00,12.00,2243,1350631552,129,,0,Layer,40.00,29.00,29.00,12.00,2636,1350631552,129,,0,ClassName,55.00,47.00,107.00,14.00,2248,1350631552,129,,0,Style,55.00,66.00,107.00,14.00,2279,1350631552,129,,0,Text,55.00,86.00,107.00,50.00,2250,1352728580,129,,0,OK,179.00,10.00,54.00,14.00,1,1342242817,128,&OK,0,Cancel,179.00,28.00,54.00,14.00,2,1342242816,128,&Abbrechen,0 ToolPalette ge id 2 groupboxScript to handle sized set syssuspendmessages to true set item 4 of bounds of item 2 of my objects to item 2 of my bounds + 255 set item 2 of bounds of item 1 of my objects to item 2 of my bounds + 60 set sysSuspendMessages to false selectedTool select lastRecTool ToolBar Dialog Page "Dialog" controlProperties ialog -Eigenschaften Page "ToolPalette" Page "ToolBar" Page "Help" olBook-Dialogfeld-Editor - <Unbenannt> olBook-Dialogfeld-Editor - <Unbenannt> Dialog ToolBook-Dialogfeld-Editor - <Unbenannt> GERMAN\DIALOG.TBK groupbox G.TBK ToolBar &Datei newDialog &ffnen... Strg+O OpenDialog &Speichern Strg+S SaveDialog Speichern &unter... SaveDialogAs &Zuweisen einer Schablone zum Buch... build S&chablone zum Ansichtsobjekt umwandeln... buildViewer &Beenden Alt+F4 &Bearbeiten ngig Strg+Z DlgUndo &Ausschneiden Strg+X CutControl &Kopieren Strg+C CopyControl &Einf gen Strg+V PasteControl s&chen Entf DeleteControl Dialoginhalt entfernen ClearDialog &Steuerelement Control &Eigenschaften... Umschalt+F6 ControlProperties &FOOBAR Strg+G GroupControls &Steuerelemente ausrichten AlignControls &Links AlignLeft &Oben AlignTop &Rechts AlignRight &Unten AlignBottom &Ansicht Preview Dialogfeld pr fen& Strg+W showDialog 3&D-Dialogfeld Pr Preview3D &Hilfe &Inhalt F1 Contents &Schnelle Hilfe... dialogHelp Editor bearbeiten F3 Browse &Info ber Dialog... aboutDialog undo Ctrl+Z cut Ctrl+X copy Ctrl+C paste Ctrl+V clear Del command Shift+F3 Save Ctrl+S SaveDialog Open Ctrl+O OpenDialog Properties Shift+F6 Properties Preview Dialog Ctrl+W ShowDialog group Ctrl+G group contents F1 contents edit editor F3 Browse strChecked strChecked xzxzx --This handler sets the ToolPalette editor --sizes translates IWM_SETCURSOR emessage openWindow 4OBJECT s_dialogWindow oparenthandle windowhandle oclientSize Z) - ( + 10), \ oselectedTool translateWindowMessage oclienthandle on 0x0020 setCursor he cursor arrow over NhWnd, msg, hWndmsg, hitTest, mouseMessage 4s_CurrentCursor = 0x0200 <> 4 sysTool value, --non-ToolBook Fsends correct depressed. gives spacebar --toggle between Jbehavior "bitmap" "icon" "groupbox" "custom" olastRecTool returns Toolpalette. invertedButton saved states oldState userProperty ZSTACK ToolBar ToolPalette OldState lineEndsPalette Oldstate --This handler sets the editor another translate *windows messages I want openWindow 4OBJECT s_dialogWindow ZLOGICAL sls = TRUE parentHandle windowHandle "ToolBar" "ToolPalette" initViewer ocurrentPage oclientSize updates q buttons on entering enterWindow "Toolbar" enabled menuItemEnabled(" B"showDialog" ) > 0 selectionChanged makes sure user about saving --closing closeWindow checkSave clearDialog FALSE translates 4s_frameWidth DIV sysPageUnitsPerPixel translateWindowMessage oclienthandle on 0x0020 setCursor on 0x00A4 on 0x0204 on 0x0203 on 0x0100 WMkeyDown on 0x0101 WMkeyUp on 0x0104 WMKeyDown owindowhandle on 0 he cursor either ,mode arrow cross hairs --depending on value sysTool. It also has been toggled hWnd, msg, hWndmsg, hitTest, mouseMessage 4s_CurrentCursor = 0x0200 -- correct custom B(LastRecTool -- ToolBook tools, corrisponding B, radioButton, Y, borderlessField, , singleSelectListbox, combobox" enables/disables menuItems --state much taken cstates rest --toolbar menuItemSelected menuName, menuAlias _Browse browse xs_Browse sized isOpen = "dialogFrame" sizeToViewer buttonClick 4OBJECT s_dialogWindow isOpen focusWindow = >= "Button" toggleState ( ) = down) menuItemSelected " U", "dlgUndo" "Toolbar" enabled B"showDialog" "ToolBar") ) > 0) WMKeyDown 0, 0, WMKeyUp 0, 0, statusBar helpText --This handler gets the {that Bwas let up over, checks --see a member , inverts uninverts --other inverted sends a click. objectFromPoint( isChild( toggleInvert obuttonPressed buttonClick saves clicked down on FALSE toggleObject LockScreen "ToolPalette" = TRUE oinvertedButton ooldInvertedButton determins objectInQuestion a child ( --subgroup) specified parentInQuestion --These handlers status bar help isOpen "ToolBar" "Toolbar" statusbar "Zeichnet ein"&& 4OBJECT s_dialogWindow lockScreen sysSuspendMessages = "dlgBox" "dlgInit" buildFrame buildItems FALSE --This handler builds the part s_DialogTemplate ^that has box frame style. buildDialogHeader --calculate , convertint clientSize pixels, Fcaluclating width --because includes Kbut sysPageUnitsPerPixel) frameWidth = pixelsToDlgUnits( cx = cy = fontName ptSize are already they used elsewhere fontPtSize = = 524480 --DS_MODALFRAME + DS_SETFONT + WS_SYSMENU "," & 0 "," & xPos "," & yPos "," & cx "," & cy "," & "," & "," & controls sets up initialValues each , too. buildDialogItems , s_InitialValues ZSTACK objectList, tempControls, ZARRAY STRING CtrlProperties[5] WS_VISIBLECHILD = 1342177280 WS_TABSTOP = 65536 WS_GROUP = 131072 WS_BORDER = 8388608 ObjectList = currentPage )least one CurrentControl been defined, property wsgroup --Step through we find a outside . Use hold without ToolBook "controlProperties" groupObjects = "," & preControl "," & nitems = --Maximum allowable 1> 100 "Es sind maximal 100 Dialogfeld-Steuerelemente zul ssig. Wenn Sie fortfahren,"&&\ "werden alle Aauf Schichten ber 101 ignoriert." f"&Fortfahren" "abbrechen" --Walk setup strings. currentControl ctrlProperties = pageUnitsToDlgUnits( xSize = ySize = "BUTTON" --Text Caption ctrlText = class = 128 ctrlStyle = begins ends a Fgive -- 9 BS_RADIOBUTTON -- 3 BS_CHECKBOX "pushbutton" -- 1 WS_DEFPUSBUTTON initValue = -- 0 ES_LEFT -- 1 ES_CENTER -- 2 ES_RIGHT fieldType WordWrap -- 4 ES_MULTILINE -- 2097152 WS_VSCROLL H2097152 -- 1048576 WS_HSCROLL H1048576 -- 64 ES_AUTOHSCROLL -- 128 ES_AUTOVSCROLL -- 32 ES_PASSWORD [1] = "iedit" "static" "LISTBOX" --LBS_notify H2097152 [4] = --LBS_SORT [4] = --LBS_MULTIPLESEL [4] = --LBS_EXTENDSEL H2048 "COMBOBOX" + 64 + 2 -- 64 CBS_AUTOHSCROLL -- 2 CBS_DROPDOWN scrollable H2097152 sortItems --CBS_SORT Editable * lineCount dropDownItems "GROUPBOX" [1] c"ICON" H3 --Icon normalGraphic c"BITMAP" "TBKDLGBitmap" ) <> 0 ) - 2 ) <> 0 ) - 2 c"CUSTOM" isType(REAL, bitOR addDialogItem ( [2], , 0, [1], extra ctrlName, ctrlID, , extraBytes, ctrlType, there specified, don't "," & "," & "," & "," & "," & "," & "," & "," & "," & "," & --Bitmaps f"p" picture "b" was taken & "," & "p" & & "," & o(1) "," & "p" & & "," & o(1) --Icons f"h" always & "," & "h" & & "," & o(1) "," & "h" & & "," & o(1) --Custom f"u" userDefined Hcombobox & "," & "u" & & "," & o(1) "," & "u" & & "," & o(1) & "," & & "," & o(1) "," & & "," & o(1) handy savvy users who want their own values, based on those debugging purposes being --written.) buildfromVar pdlgBox, pdlgInit representation specifed --dialogTemplate (See "main" see how converted called following handlers: -- openDialog frameHeight, , xPosition, yPosition eshowing xpos ypos dlgUnitsToPixels( sizeToViewer 4groupItems, dontMakeGroup ctrlProps, dx, dy, cx, cy, ctrlClass ZDWORD controlDefStack C = 2 y = 5 makeLastGroup = inGroup = [groupitems [off description leave just information. --reset C array fill bytes ignored editor ] = " will have 7 p!ctrlstyle bitAnd 0x0000000F ) = 7 newObj = drawControl(" , dx, dy,cx,cy) ] = " --It types ~ol(" , dx, dy, cx, cy) ] = " ~"ctrlsytle ) = 9 ) = 3 a PUSHBUTTON -#DEFPUSHBUTTON ) = 1) ] = 1 removeButtonID("ID_OK") ] = 2 +_CANCEL") getValue( , "b" & ] = 129 c"EDIT" , dx, dy, cx, cy) ] = " --Has Vertical ScrollBar ) >= 1 ) EHorizontal ) >= 1 ) --AutoHorizontal 80) >= 1 ) --AutoVertical 40) >= 1 ) --Password 20) >= 1 ) --MulitLine 4) >= 1 ) SingleLineWrap integer only 7#, "i" & #,"e" & allignment 2) >= 1 1) >= 1 "STATIC" 3) = 3 , dx, dy, cx, cy) ] = " $, "h" & targetBook 8"&"E& , dx, dy, cx, cy) ] = " ) >= 1 2) >= 1 1) >= 1 %,"s" & ] = 131 ] = " l("listbox", dx, dy, cx, cy) ] = " --assume single --ExtendSelect 800) >= 1 --MulitSelect 8) >= 1 --Sort N 2) >= 1 ) ',"l" & ] = 133 ] = " , dx, dy, cx, cy) ] = " ) >= 1 ) 256) >= 1 ) editable 1) >= 1 ) (,"c" & ] = " , dx, dy, cx, cy) ] = " (, "p" & ] = " , dx, dy, cx, cy) ] = " ), "h" & , dx, dy, cx, cy) ] = " toggle = --Check beginning ) >= 1 _. makeGroup -- If b.signifies -- another be made i = 1 frequently signify --so denoted unless x, y, d/, height ZPOINT upperLeft, lowerRight = dlgUnitsToPageUnits(x, y) s(x + /, y + "TEMP" + 100, - 60 - 150, + 195 label groupboxScript "ToolPalette" "singleSelect" useWindowsColors U.Place Holder" RECTANGLE WHITE icon "Platzhalter f r benutzerdefiniertes = NULL "DrawItem"&& &&"fehlgeschlagen" manage ~4grouping tempSel = ) < 2 --This handler keeps the status fields ToolBar -buttons on enabled state current --sets Xbar _currently selected selectionChanged 4OBJECT s_dialogWindow ZARRAY STRING ctrlProperties[5] 9electedControl -ControlName isOpen duplicate, bring front, toolbar "ItemSelected" a multiple selectedControl = will have a controlProperties userProperty pageUnitsToDlgUnits( controlPosition controlSize = "<Unbenannt>" statusBar 1] && --disable FALSE xPos , yPos --calculate Dialog --includes Kbut frame width. clientSize DIV sysPageUnitsPerPixel frameWidth = pixelsToDlgUnits( dialogName = "< "DIALOG" && B"showDialog" ) > 0) --controls %well %converts drawn custom, groupbox, bitmap, icon correct array tells editor functions create templates. Celements are: [1] = Type - internal [2] = ID - {ID except pushButtons [3] = Text - [4] = Style bits - values depend on class [5] = Class - actual 4LOGICAL s_dirty 4s_undoFlag --don't want zanything copying --suspend 4messages so creating doesn't more makes sysSuspendMessages = , we ><> " useWindowsColors drawDirect --If a gets type lockScreen so we can find "TEMP" place holder selectedTool "ToolPalette" "Platzhalter f r Bitmap-Steuerelement" excludeTab 1] = "BITMAP" 2] = = "TBKDLGBitmap" newObj = " normalGraphic (32 * l),(32 * 1] = "ICON" 2] = 3] = "comment" = "130" a groupBox + 70, - 70 - 150, + 195 label "GROUP BOX" groupboxScript 1] = "GROUPBOX" 2] = 3] = = "128" r benutzerdefiniertes 1] = "Custom" ctrlproperties[2] = "radioButton" 1] = "BUTTON" 2] = 3] = --style defPushButton, 4] = " = "128" 1] = " 2] = 3] = 4] = " = "128" 1] = " 2] = 3] = 4] = " = "128" fieldType x"singleSelect" 1] = "EDIT" 2] = 3] = vScroll, hScroll, auto Password, integerOnly 4] = " = "129" singleLineWrap 1] = "STATIC" 2] = 3] = = "130" 1] = "LISTBOX" 2] = 3] = , extendSelect, multiselect, 4] = " = "131" >= "combobox" 1] = "COMBOBOX" 2] = 3] = = "133" --If >already has duplicated pasted --we need update its ID 2] = ^that used --on toolBar menuItemEnabled(" "Toolbar") = "Undo" = "R ngig nicht m glich" preview ) > 0) sure each even unit moved ystem moving another per DialogUnit down nearest DlgUnitsToPageUnits(1, 1) dx = dy = x = y = (x / dx) * dx, (y / dy) * dy --on = "R sized hight, itself (1, 1) dx = dy = x = y = (x / dx) * dx (x / dx) * dx, (y / dy) * dy --on = "R updates delete --Put was ID_OK ID_CANCEL PUSHBUTTON 2] = 1 addButtonID(" 2] = 2 removed Xthings --on --KLUDGE --If shut gone so checking cause Turn ES off --End = "R ) > 0) --This handler sets the buttons ToolBar correct toggle state translates emessages WM_SETCURSOR WM_NCRIGHTBUTTONDOWN initViewer toggleState ( ) = down) translateWindowMessage oclienthandle on 0x00A4 on 0x0020 setCursor owindowhandle on 0 on 0x0204 closes editor closeWindow he cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage 4s_CurrentCursor = 0x0200 <> 4 keeps sync control key. controlState isControl 4LOGICAL s_controlState enables/disables menuItems cdepending on the much taken cstates rest --toolbar enterMenu menuName, menuAlias 4OBJECT s_dialogWindow 4undoFlag 4logical s_Browse H = " isOpen --Keep menuItemEnabled(" "dlgUndo" = "Redo" setMenuItemName(" ,, "Re& z"&TAB&"Ctrl+Z") S, "& = "Cannot "CutControl" Copy") "CopyControl" Paste") "PasteControl" "DeleteControl" clearDialog") "deleteControl" ) = 1 controlProperties ) > 1 "ControlProperties" ) > 1 GroupControls", "& ) = 1 ) > 1 c"AlignControls" = "File" enabled B"ShowDialog" "saveDialog" "saveDialogAs" "build" "BuildViewer" "buildViewer" = "view" = "help" , "Edit Editor"& Q, "Return appripriate cselections menuItemSelected focusWindow = = "DlgUndo" -- = "AlignLeft" = "AlignTop" E = "AlignRight" q = "Alignbottom" = "Preview3D" xmenuItemChecked(" = " browse s_dialogWindow select setCursor ToolPalette selectedTool openWindow .&+ +E setCursor s_CurrentCursor setCursor groupbox custom lastRecTool bitmap ToolPalette selectedTool invertedButton toolpalette toolPalette selectedTool colorTray lineEndsPalette polygonPalette linePalette patternPalette &noldState ToolPalette ToolBar enterBackground colorTray lineEndsPalette polygonPalette linePalette patternPalette ToolPalette ToolBar %noldState leaveBackground +*+9; s_dialogWindow initViewer ToolPalette ToolBar openWindow showDialog Toolbar ToolBar enterWindow FALSE clearDialog checkSave closeWindow s_dialogWindow s_frameWidth WMkeyUp WMKeyDown setCursor rightButtonDown WMkeyDown properties initViewer LastRecTool rectangle ToolPalette setCursor button, radioButton, checkbox, borderlessField, field, singleSelectListbox, combobox s_CurrentCursor setCursor browse s_Browse Browse menuItemSelected +*+Dr r ; > +*+Dr s_dialogWindow dialogFrame Toolbar sized +*+Dr s_dialogWindow toggleState button Button buttonClick dlgUndo showDialog Toolbar ToolBar +*+Dr s_dialogWindow WMKeyDown keyDown +*+Dr s_dialogWindow YWMKeyUp keyUp yhelpText statusBar mouseEnter statusBar mouseLeave .isChild ,toggleInvert [ebuttonPressed buttonUp \ebuttonPressed ,toggleInvert buttonDown .isChild ,toggleInvert buttonStillDown invertedButton oldInvertedButton invertedButton ToolPalette toggleInvert FALSE group isChild Zeichnet ein ToolBar Toolbar statusbar mouseEnter ToolBar Toolbar statusbar mouseLeave dlgBox s_dialogWindow button dlgInit 8dlgInit dlgBox buildItems buildFrame paste .&, #> w, #> w, #> s_dialogWindow fontName pixelsToDlgUnits s_DialogTemplate fontPtSize buildDialogHeader .&+ +E .&+ +E ,!J Y + , / + , / + , / + , / + , / ,!J@Y + , / + , / ,!J Y + , / + , / + , / + , / ypageUnitsToDlgUnits CUSTOM xSize rectangle group groupObjects iedit ctrlStyle center ctrlText FALSE abbrechen LISTBOX Y%controlProperties &Fortfahren Es sind maximal 100 Dialogfeld-Steuerelemente zul ssig. Wenn Sie fortfahren, BUTTON ySize s_DialogTemplate currentControl s_dialogWindow ]wsgroup COMBOBOX radiobutton initValue ]wsgroup checkbox WordWrap right BITMAP controlProperties TBKDLGBitmap fortfahren class WS_VISIBLECHILD pushbutton static &addDialogItem s_InitialValues GROUPBOX werden alle Steuerelemente auf Schichten ber 101 ignoriert. buildDialogItems 1, #> 1, #> CUSTOM BITMAP s_InitialValues s_DialogTemplate addDialogItem .&+ +E .&+ +E buildItems s_InitialValues s_DialogTemplate buildFrame buildfromVar +*+Dr s_dialogWindow dlgUnitsToPixels buildFrame +*+Dr ,%H.% .&, " + , / + , #> + , / + , / + , / + , / + , / + , / + , / + , #> + , / + , #> + , / .&, " + , #> w, #> + , #> + , / + , / + , / + , / + , / + , / + , #> + , #> + , #> w, #> + , #> w, #> kgetValue s_dialogWindow groupItems removeButtonID of book Z%controlProperties STATIC scrollbar dontMakeGroup newObj COMBOBOX ID_OK BITMAP ID_CANCEL makeGroup TBKDLGBitmap FALSE CUSTOM targetBook drawControl inGroup makeLastGroup toggle radiobutton BUTTON LISTBOX listbox GROUPBOX buildItems +*+Dr 1,!J<Y 1,!JdY DrawItem s_dialogWindow Platzhalter f r benutzerdefiniertes Steuerelement ydlgUnitsToPageUnits CUSTOM STATIC COMBOBOX Bitmap Control Place Holder BITMAP fehlgeschlagen ToolPalette LISTBOX GROUP BOX groupboxScript GROUPBOX drawControl groupItems dontMakeGroup FALSE tempSel makeGroup +*+Dr s_dialogWindow <Unbenannt> ypageUnitsToDlgUnits ItemSelected dialogName position controlSize controlProperties showDialog ToolBar Y%controlProperties controlPosition DIALOG pixelsToDlgUnits statusBar selectionChanged 1,!JFY 1,!JFY BUTTON STATIC newObj singleSelect button TRUE,FALSE,FALSE,FALSE rectangle ToolPalette Y%controlProperties GROUP BOX ToolBar comment LISTBOX field FALSE, checkbox s_dialogWindow BITMAP Z%controlProperties FALSE,FALSE radioButton COMBOBOX ngig nicht m glich showDialog Platzhalter f r benutzerdefiniertes Steuerelement s_dirty groupBox controlProperties TBKDLGBitmap Custom Toolbar Platzhalter f r Bitmap-Steuerelement combobox bitmap FALSE,FALSE,FALSE,FALSE,FALSE,FALSE s_undoFlag groupboxScript GROUPBOX selectedTool custom ngig nicht m glich s_dirty Toolbar yDlgUnitsToPageUnits s_undoFlag moved ngig nicht m glich s_dirty Toolbar yDlgUnitsToPageUnits s_undoFlag sized ngig nicht m glich PUSHBUTTON ID_OK ID_CANCEL showDialog Toolbar s_dirty Y%controlProperties addButtonID ToolBar s_undoFlag destroy toggleState setCursor rightButtonDown initViewer closeWindow .&+ +E setCursor s_CurrentCursor setCursor toggleState s_controlState ToolBar controlState +*+Dr dlgUndo Paste s_dialogWindow Return to Editor Re&do group BuildViewer clear DeleteControl undoFlag saveDialogAs clearDialog CopyControl Cannot Undo PasteControl controlProperties AlignControls ShowDialog &Group CutControl s_Browse saveDialog &Undo buildViewer Un&group Ctrl+G deleteControl Edit Editor Ctrl+Z Browse control Control build ControlProperties GroupControls enterMenu +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr DlgUndo s_dialogWindow AlignRight deleteControl undoFlag CopyControl AlignLeft PasteControl Browse Alignbottom CutControl s_Browse Preview Preview3D AlignTop browse ControlProperties GroupControls menuItemSelected ctrlID 524480,21,25,25,249,193,,,Bearbeitungsfeldeigenschaften,8,MS Sans Serif,,6,65,73,49,4848,1342177287,128,Ausrichtung,0,,6,24,34,12,253,1342177280,130,Layer,0,,6,41,93,12,254,1342177280,130,Control ID:,0,,6,7,24,12,252,1342177280,130,Name,0,,93,57,55,9,6115,1342177280,130,Initial Text,0,,101,43,25,8,240,1342177280,130,ID,0,,45,6,127,12,235,1350631552,129,,0,,45,23,20,12,245,1350631552,129,,0,,19,76,38,12,255,1342177289,128,&Links,0,,19,87,47,12,265,1342177289,128,&Zentrieren,0,,19,97,44,12,260,1342177289,128,&Rechts,0,,94,67,85,48,250,1352728708,129,,0,,6,120,88,10,205,1342242819,128,&Vertikale Bildlaufleiste,0,,6,132,96,10,210,1342242819,128,&Horizontale Bildlaufleiste,0,,6,144,89,10,215,1342242819,128,&Vertikaler Auto-Bildlauf,0,password,6,156,51,10,2814,1342242819,128,&Kennwort,0,,101,121,80,10,220,1342242819,128,Kein &Zeilenumbruch,0,,101,132,78,10,225,1342242819,128,&Nur Ganzzahl,0,,101,144,77,10,200,1342242819,128,&Mehrzeilig,0,,193,6,51,15,1,1342242817,128,OK,0,,193,24,51,15,2,1342242816,128,Abbrechen,0 
(.txt)