User:CBM-c-/Dialog with List Browser
Jump to navigation
Jump to search
Dialog with List Browser
A resizable dialog with a list browser, pull down menues, an enhanced pulldown menu, radio and check boxes. This is the basic example for the article List Browsers.
With this dialog you can experiment the different results in List Browsers, according to their four basic features: Column Data Items, Control Type, Display Type, Column Owner. By --_c_ (talk) 01:27, 31 December 2020 (EST) (Orso B. Schmid)
The compiler mode is enabled automatically by this script in the snippet SetPref(407, TRUE). Remember to turn it off!
Description
In the Dialog with List Browser we create a List Browser with:
- one column for each of the seven Control Types
- one row for each of the nine cell Owners
- each column is connected with a list with three Column Data Items containing both Images and Strings.
Then there is
- one pull-down menu for Item Display (same as Edit Disply from VW 2017)
- one pull-down menu for Edit Display (same as Item Display from VW 2017)
- radio boxes for loading different Data Items: string or image
Change the values in the pop-up menus, click around the List Browsers to see what happens. Experiment with the other available options.
- NOTE
- "Pattern" and "Dual pattern" don't work before VW 2010.
Image
Code
{ 2009-2021 (_c_) CAD-BIM-Manager.com test dialog for List Browsers This dialog is meant for you to experiment with the different List Browser setting. Just click around and see what happens. 2009 created 2018.01.01 rewritten for compatibility with VW 2017 2021.01.01 expanded to VW 2021 } PROCEDURE LB_Test; CONST { Display Type flags } {kLBdisplTypeText = 0;} { this is the the value on GET, but is not usable to SET } kLBdispImageOnly = 1; kLBdispTextOnly = 2; kLBdispImageAndText = 3; { Control Type flags and column indexes! } { the names of these Controls are loaded as title for each col see array gControlTypeStr } kLB_JustStr = 0; { Control Type } kLBctrNone = 1; { Static } kLBctrRadio = 2; kLBctrMultiState = 3; kLBctrSingleInstance = 4; kLBctrNoClick = 5; { Static icon } kLBctrNumber = 6; kLBctrMultipleImages = 7; { Use with kListBrowserDisplayImageOnly } kLBctrDiscTriangl = 8; { introduced by VW 17 (2012) VW 18 (2013) } { Column Owner flags, applied to cells, not to columns, despite the name } { the names of these Owners are loaded as Cell 1 of each row see array gColOwnerStr } kLBNotOwnerDrawn = 0; { none } kLBSolidRect = 1; kLBDualSolidRect = 2; kLBPatRect = 3; kLBDualPatRect = 4; kLBGradientOrImage = 5; { works for tiles too } kLBBlankOwnerDrawn = 6; kLBTxtOwnerDrawn = 7; { text } kLBDashedLine = 8; kLBTile = 9; { list browser events } kLBrowColDataSel = -2; { user changed column data items, this occurs also without click! } kLBDataChangeAllClick = -3; {} kLBrowSel = -4; { user clicked on row } kLBDoubleClick = -5; kLBDeleteKeyPressed = -6; kLBUpKeyPressed = -7; kLBDownKeyPressed = -8; { user scrolled a row using arrow keys: no rows and cols are set by GetLBEventInfo! } kLBAlphaNumericKeyPressed = -9; { user typed a key and the LB scrolls down: no rows/cols are set by GetLBEventInfo! } kLBSortOccurred = -10; kLBSelectionMultChangeClick = -11; kLBEnterKeyPressed = -12; kLBDataChangeRecursiveClick = -13; kLBDoubleAllClick = -14; kLBDoubleRecursiveClick = -15; kLBItemEditCompletionData = -19; { dialog constants for resizement } kAl_Rig = 1; { Right } kAl_Bot = 2; { Bottom } kAl_Lef = 3; { Left } kAl_resiz = 0; { Resize } kAl_shift = 1; { Move } cChGr_ItemDisplay = 8; cPull_ItemDisplay = 9; cChGr_EditDisplay = 10; cPull_EditDisplay = 11; cCh_MultiImages = 12; cChGr_ColDataItem = 20; cRa_txtToggles = 21; cRa_imgToggles = 22; cSt_PreloadImg = 23; cPull_PreloadImg = 24; cSt_OwnerType = 30; cSt_ControlType = 31; cChGr_DragDrop = 32; cSt_DragDrop = 33; cPull_DragDrop = 34; cChGr_Hierarchical = 40; cSt_Hierarchical = 41; cPull_Hierarchical = 42; cLB = 50; { list browser } cGr_Bot = 60; cCh_MoreRows = 71; cCh_ShowEvents = 72; cSt_Message = 73; VAR gD : LONGINT; gImgCnt, gPreloadImg : INTEGER; gVectorFill, gLineType : LONGINT; gIsMac : BOOLEAN; gDisplayTypeStr : ARRAY[1..4] OF STRING; gControlTypeStr : ARRAY[0..8] OF STRING; gColOwnerStr : ARRAY[0..9] OF STRING; n, temp_i : INTEGER; temp_L : LONGINT; temp_r : REAL; temp_s : STRING; temp_b : BOOLEAN; temp_h : HANDLE; { ************************************************ } { gets a choice index } FUNCTION D_PullIntChoice(dlog, pullID: LONGINT): INTEGER; VAR outSelectedChoiceText : STRING; BEGIN GetSelectedChoiceInfo(dlog, pullID, 0, D_PullIntChoice, outSelectedChoiceText); { from VW15 } END; { ************************************************* } { gets choice from radio, checkbox items } FUNCTION R_GetBooleanItem(dlog, radioOrCheckID: LONGINT): BOOLEAN; BEGIN GetBooleanItem(dlog, radioOrCheckID, R_GetBooleanItem); { from VW15 } END; { ************************************************* } { returns count of choices in a pulldown menu } FUNCTION R_GetChoiceCount(d, pullID: LONGINT): INTEGER; BEGIN GetChoiceCount(d, pullID, R_GetChoiceCount); { from VW15 } END; { ************************************************ } FUNCTION DialogLayout: INTEGER; CONST cLBWidth = 130; { width in characters } cLBHeight = 20; cWidth = 25; VAR dlog, i : INTEGER; BEGIN dlog := CreateResizableLayout('_c_''s List Browsers test', FALSE, 'Close', '', TRUE, TRUE); CreateCheckBoxGroupBox(dlog, cChGr_ItemDisplay, 'Item Display (same as Edit Display from VW 2017): ', TRUE); CreatePullDownMenu(dlog, cPull_ItemDisplay, cWidth); SetFirstGroupItem(dlog, cChGr_ItemDisplay, cPull_ItemDisplay); CreateCheckBoxGroupBox(dlog, cChGr_EditDisplay, 'Edit Display: (same as Item Display from VW 2017)', TRUE); CreatePullDownMenu(dlog, cPull_EditDisplay, cWidth); SetFirstGroupItem(dlog, cChGr_EditDisplay, cPull_EditDisplay); CreateCheckBox(dlog, cCh_MultiImages, 'Multi images'); CreateCheckBoxGroupBox(dlog, cChGr_ColDataItem, 'Create Column Data Items', TRUE); CreateRadioButton(dlog, cRa_txtToggles, 'Text toggles'); CreateRadioButton(dlog, cRa_imgToggles, 'Image toggles'); CreateStaticText(dlog, cSt_PreloadImg, 'Preload item ', -1); CreateEnhancedPullDownMenu(dlog, cPull_PreloadImg, cWidth, TRUE); SetFirstGroupItem(dlog, cChGr_ColDataItem, cRa_txtToggles); SetRightItem(dlog, cRa_txtToggles, cRa_imgToggles, 0, 0); SetBelowItem(dlog, cRa_txtToggles, cSt_PreloadImg, 0, 0); SetRightItem(dlog, cSt_PreloadImg, cPull_PreloadImg, 0, 0); CreateCheckBoxGroupBox(dlog, cChGr_DragDrop, 'Drag and Drop column', TRUE); CreateStaticText(dlog, cSt_DragDrop, 'Drag a cell up and down the column:', -1); CreatePullDownMenu(dlog, cPull_DragDrop, cWidth); SetFirstGroupItem(dlog, cChGr_DragDrop, cSt_DragDrop); SetBelowItem(dlog, cSt_DragDrop, cPull_DragDrop, 0, 0); CreateCheckBoxGroupBox(dlog, cChGr_Hierarchical, 'Hierarchical column', TRUE); CreateStaticText(dlog, cSt_Hierarchical, 'Choose a hierarchical column:', -1); CreatePullDownMenu(dlog, cPull_Hierarchical, cWidth); SetFirstGroupItem(dlog, cChGr_Hierarchical, cSt_Hierarchical); SetBelowItem(dlog, cSt_Hierarchical, cPull_Hierarchical, 0, 0); CreateStaticText(dlog, cSt_OwnerType, 'Column Owner', cWidth); CreateStaticText(dlog, cSt_ControlType, 'Control Types', cWidth); CreateGroupBox(dlog, cGr_Bot, '', FALSE); CreateCheckBox(dlog, cCh_ShowEvents, 'Show events on cell click'); CreateStyledStatic(dlog, cSt_Message, '<message bar>', cLBWidth, 3); { 3 = reduced } SetStaticTextColor(dlog, cSt_Message, 255, 0, 0); { SetStaticTextColor is broken on VW 2020-1 } { I am not using here a CreateRadioButtonGroupBox because it crashes } CreateCheckBox(dlog, cCh_MoreRows, 'More generic rows'); SetFirstGroupItem(dlog, cGr_Bot, cCh_ShowEvents); SetRightItem(dlog, cCh_ShowEvents, cCh_MoreRows, 0, 0); SetBelowItem(dlog, cCh_ShowEvents, cSt_Message, 0, 0); CreateLB(dlog, cLB, cLBWidth, cLBHeight); SetFirstLayoutItem(dlog, cChGr_ItemDisplay); SetRightItem(dlog, cChGr_ItemDisplay, cChGr_EditDisplay, 0, 0); SetRightItem(dlog, cChGr_EditDisplay, cCh_MultiImages, 0, 0); SetBelowItem(dlog, cChGr_ItemDisplay, cChGr_ColDataItem, 0, 0); SetRightItem(dlog, cChGr_ColDataItem, cChGr_DragDrop, 0, 0); SetRightItem(dlog, cChGr_DragDrop, cChGr_Hierarchical, 0, 0); SetBelowItem(dlog, cChGr_ColDataItem, cGr_Bot, 0, 0); SetBelowItem(dlog, cGr_Bot, cLB, 0, 0); SetEdgeBinding(dlog, cLB, TRUE, TRUE, TRUE, TRUE); SetEdgeBinding(dlog, cGr_Bot, TRUE, TRUE, TRUE, FALSE); { return the dialog ID } DialogLayout := dlog; END; { DialogLayout } { ************************************************ } PROCEDURE DialogDriver(VAR item: LONGINT; data: LONGINT); VAR event, eventRow, eventCol : INTEGER; inform : STRING; recursive : BOOLEAN; i, temp_i : INTEGER; temp_s : STRING; temp_L : LONGINT; { ************************************************ } { ++++ ONLY FOR EXPERIMENTS +++++ loads cells with resource thumbnails and names. The routine below doesn't check for valid resource types. This will work with all resources creating a thumbnail in the Resource Browser. This can run you out of memory on heavy resource thumbnails like textures. Use the typical GetType constants for setting the resource type to be loaded, for example: 16: sym definition 66: hatch definition 97: texture definiton EXTREMELLY heavy, any user click causes the watch-cursor 119: image fill definition 120: gradient fill definition 127: wall style Thus you can see how bad thumbnails aside of gradients display Try it on a document with some symbols the list browser has two columns, col 0 has control Static, item display text: we load the symbol name col 1 Static, item display image: we load here the sym thumbnail } PROCEDURE LB_LoadIndexedResources(dlog, LB: INTEGER; resourceType: INTEGER); VAR resList, cnt : LONGINT; resName : STRING; row, col : INTEGER; temp_b : BOOLEAN; { ************************************************ } { reads obj type descriptions from the VW resources } { these do not need to be laoden, like IP Resources and } { they are localized: from VW LocalD.qtr, string 4501 } { the extended descriptions are in VW LocalD.qtr, string 4504 } { the subtypes are in VW LocalD.qtr, string 4505 } FUNCTION H_GetTypeName(aType: INTEGER): STRING; VAR typeStr, extendedExplan : STRING; BEGIN H_GetTypeName := '<unknown>'; aType := aType + 1; GetResourceString(typeStr, 4501, aType); IF typeStr <> '()' THEN BEGIN GetResourceString(extendedExplan, 4504, aType); H_GetTypeName := Concat(typeStr, ' ', extendedExplan); END; END; { H_GetTypeName } BEGIN IF DeleteAllLBItems(dlog, LB) THEN BEGIN EnableLBUpdates(dlog, LB, FALSE); resList := BuildResourceList(resourceType, 0, '', cnt); { if you did some resource renaming during dialog execution this can mess up the list, in this case you better redo the list. You don't need to redo it if your resList is not modified during dialog execution } IF cnt > 0 THEN BEGIN row := -1; col := 0; WHILE (row+1) < cnt DO BEGIN resName := GetNameFromResourceList(resList, row+2); { this is a 1-based list } { resource name at column 0 } row := InsertLBItem(dlog, LB, GetNumLBItems(dlog, LB), resName); temp_b := SetLBColumnOwnerDrawnType(dlog, LB, row, col, kLBTxtOwnerDrawn); { text owner } { resource icon at column 1 } IF SetLBColumnOwnerDrawnType(dlog, LB, row, col +1, kLBGradientOrImage) THEN { vectorfll owner } temp_b := SetLBItemGradientOrImageRefNumber(dlog, LB, row, col+1, Name2Index(resName)); END; END ELSE AlrtDialog(Concat('Resource list for object type "' , H_GetTypeName(resourceType), '" is either empty or not parsable') ); EnableLBUpdates(dlog, LB, TRUE); temp_b := RefreshLB(dlog, LB); END; END; { LB_LoadIndexedResources } { **************************** } { create a class list cLB } PROCEDURE LB_CreateClassListLB(editDisplay, itemDisplay : INTEGER); VAR row, col, i, clNum : INTEGER; isHierarchical, temp_b : BOOLEAN; BEGIN { set up columns } col := InsertLBColumn(gD, cLB, 0, 'Class Name', 200); temp_b := SetLBControlType(gD, cLB, col, kLBctrNone); temp_b := SetLBItemDisplayType(gD, cLB, col, kLBdispImageAndText); { set up rows } { pause updating while we reset the cLB } EnableLBUpdates(gD, cLB, FALSE); FOR i := 1 TO ClassNum DO BEGIN row := InsertLBItem(gD, cLB, GetNumLBItems(gD, cLB), ClassList(i)); temp_b := SetLBColumnOwnerDrawnType(gD, cLB, row, col, kLBctrDiscTriangl); END; isHierarchical := R_GetBooleanItem(gD, cChGr_Hierarchical); IF isHierarchical THEN SetLBHierDispColumn(gD, cLB, 0); { we have only 1 col } EnableLBHierDisplay(gD, cLB, isHierarchical); { Note: EnableLBHierDisplay must be after loading the rows or it won't work } EnableLBSorting(gD, cLB, NOT isHierarchical); { Warning: SetLBHierDispColumn collides with sorting } EnableLBUpdates(gD, cLB, TRUE); temp_b := RefreshLB(gD, cLB); { disable fields that aren't used while in LB_CreateClassListLB } EnableItem(gD, cChGr_DragDrop, FALSE); EnableItem(gD, cChGr_ColDataItem, FALSE); EnableItem(gD, cChGr_ItemDisplay, FALSE); EnableItem(gD, cChGr_EditDisplay, FALSE); END; { LB_CreateClassListLB } { **************************** } { create one column for each Control Type } PROCEDURE LB_CreateColumns; VAR controlType, col, w: INTEGER; isHierarchical, temp_b : BOOLEAN; gTitles: ARRAY[1..20] OF STRING; BEGIN { the first column (index 0) is the Column Owner, which applies to each row } col := InsertLBColumn(gD, cLB, GetNumLBColumns(gD, cLB), gControlTypeStr[0], 120); { Mac and PC have different field widths } w := 78; IF gIsMac THEN w := 95; { add one column for each Control type } FOR controlType := 1 TO 8 DO BEGIN col := InsertLBColumn(gD, cLB, GetNumLBColumns(gD, cLB), gControlTypeStr[controlType], w); temp_b := SetLBControlType(gD, cLB, col, controlType); END; temp_b := EnableLBClickAllDataChange(gD, cLB, TRUE); temp_b := SetLBColumnWidth(gD, cLB, 0, 0, 120); { first col is wider } EnableLBRadioColumnLines(gD, cLB, kLBctrRadio, TRUE); { this will only be effective on Control Type radio } { it also needs Column Data Items to be set up for the column } EnableLBColumnLines(gD, cLB, TRUE); isHierarchical := R_GetBooleanItem(gD, cChGr_Hierarchical); IF isHierarchical THEN SetLBHierDispColumn(gD, cLB, D_PullIntChoice(gD, cPull_Hierarchical)); EnableLBSorting(gD, cLB, NOT isHierarchical); { Warning: SetLBHierDispColumn collides with sorting } EnableLBHierDisplay(gD, cLB, isHierarchical); { EnableLBHierDisplay must be at the end or it won't work } END; { LB_CreateColumns } { **************************** } { creates a list of column data items for the specified column index "col" } PROCEDURE LB_CreateColDataItems(col: INTEGER); VAR dataItemCnt : INTEGER; BEGIN dataItemCnt := -1; { text toggles } IF R_GetBooleanItem(gD, cRa_txtToggles) THEN BEGIN dataItemCnt := InsertLBColumnDataItem(gD, cLB, col, 'Orso', -1, -1, 0); dataItemCnt := InsertLBColumnDataItem(gD, cLB, col, 'Atta', -1, -1, 0); dataItemCnt := InsertLBColumnDataItem(gD, cLB, col, 'Ax', -1, -1, 0); { dataItemCnt increments all the times starting 0 } END { image toggles } ELSE BEGIN { this will build your Column Data Items list or the Radio columns } dataItemCnt := InsertLBColumnDataItem(gD, cLB, col, 'visible', gImgCnt-3, -1, 0); dataItemCnt := InsertLBColumnDataItem(gD, cLB, col, 'invisible', gImgCnt-2, -1, 0); dataItemCnt := InsertLBColumnDataItem(gD, cLB, col, 'grayed', gImgCnt-1, -1, 0); END; END; { LB_CreateColDataItems } { **************************** } { setup cLB columns } PROCEDURE LB_LoadColumns(editDisplay, itemDisplay : INTEGER); VAR col: INTEGER; temp_b : BOOLEAN; BEGIN { setup the columns } { we leave the first column out (index 0), since we have labels there } FOR col := 1 TO GetNumLBColumns(gD, cLB) -1 DO BEGIN { reset: apparently Item and Edit display are now (VW 2017 or perhaps before) interchangeable, the last used is valid for both } IF editDisplay > -1 THEN temp_b := SetLBEditDisplayType(gD, cLB, col, editDisplay); IF itemDisplay > -1 THEN temp_b := SetLBItemDisplayType(gD, cLB, col, itemDisplay); { create a list of column data items for each column } { here for each column we make the same list } IF R_GetBooleanItem(gD, cChGr_ColDataItem) THEN LB_CreateColDataItems(col); temp_b := SetLBColumnHeaderToolTip(gD, cLB, col, Concat( 'Item Display choice: ', GetLBItemDisplayType(gD, cLB, col), '; Edit Display choice: ', GetLBEditDisplayType(gD, cLB, col) ), ''); END; { add hints to the first col, that we left outside the loop } temp_b := SetLBColumnHeaderToolTip(gD, cLB, 0, Concat( 'Itemm Display choice: ', GetLBItemDisplayType(gD, cLB, 0), '; Editm Display choice: ', GetLBEditDisplayType(gD, cLB, 0) ), ''); IF EnableLBDragAndDrop(gD, cLB, R_GetBooleanItem(gD, cChGr_DragDrop)) THEN temp_b := SetLBDragDropColumn(gD, cLB, D_PullIntChoice(gD, cPull_DragDrop)); { +1 because the pull index is 0-based } END; { LB_LoadColumns } { ************************************************ } { load rows in a cLB, remember to empty it first! } PROCEDURE LB_LoadRows; VAR colOwner, col, row, n : INTEGER; temp_b : BOOLEAN; BEGIN { pause updating while we reset the cLB, this makes it faster } EnableLBUpdates(gD, cLB, FALSE); { insert 1 row for each Column Owner (cell property) } FOR colOwner := 0 TO 8 DO BEGIN { add a row at the end } row := InsertLBItem(gD, cLB, GetNumLBItems(gD, cLB), gColOwnerStr[colOwner +1]); { +1 because the string array is 1-based } { set the Column Owner name on the first cell of the first column } { setup cell infos in each column of the row } { we leave the first cell out, where we have labels } FOR col := 1 TO GetNumLBColumns(gD, cLB) -1 DO BEGIN { as ColumnOwnerDrawnType I can reuse the column index } { column index = Column Owner Type } IF SetLBColumnOwnerDrawnType(gD, cLB, row, col, colOwner) = FALSE THEN AlrtDialog(Concat('SetLBColumnOwnerDrawnType failed', row, col)) { this never happens } { insert a string and loads the imagine set in gPreloadImg, which is user's choice } ELSE IF SetLBItemInfo(gD, cLB, row, col, Concat(row, '-', col), gPreloadImg) THEN BEGIN CASE col OF kLB_JustStr, kLBctrDiscTriangl : temp_b := SetLBItemInfo(gD, cLB, row, kLBctrDiscTriangl, 'Test-one-two-tree', -1); { add text with a divider: this can display as disclosure } END; { I set each cell to use the ColumnDataItem, if any available. This overrides any value previously defined in SetLBItemInfo } IF R_GetBooleanItem(gD, cChGr_ColDataItem) & (GetNumLBColumnDataItems(gD, cLB, col) > 0) THEN temp_b := SetLBItemUsingColumnDataItem(gD, cLB, row, col, gPreloadImg); IF R_GetBooleanItem(gD, cCh_MultiImages) THEN temp_b := SetLBImageIndexes(gD, cLB, row, col, 'Vectorworks/Standard Images/ViewBarSavedViews.png', 'Vectorworks/Standard Images/Viewports.png', 'Vectorworks/Standard Images/Layers.png' ); { we have one row for each Column Owner } CASE row OF kLBSolidRect, kLBDualSolidRect, kLBPatRect, kLBDualPatRect: BEGIN temp_b := SetLBItemFillForeColor(gD, cLB, row, col, 0, 109, 181); { enough for Solid Rect } temp_b := SetLBItemFillBackColor(gD, cLB, row, col, 255, 255, 255); { needed for dual solid and pattern } temp_b := SetLBItemPenForeColor(gD, cLB, row, col, 255, 255, 255); { white } temp_b := SetLBItemPenBackColor(gD, cLB, row, col, 0, 0, 0); { black } temp_b := SetLBItemPatternIndex(gD, cLB, row, col, 25); { pattern index } END; kLBGradientOrImage: temp_b := SetLBItemGradientOrImageRefNumber(gD, cLB, row, col, gVectorFill); { gradient index } kLBDashedLine: BEGIN temp_b := SetLBItemLineType(gD, cLB, row, col, gLineType, 15); temp_b := SetLBItemPenForeColor(gD, cLB, row, col, 0, 125, 125); temp_b := SetLBItemPenBackColor(gD, cLB, row, col, 255, 192, 0); { Orange } END; END; { CASE } END ELSE AlrtDialog(Concat('SetLBItemInfo failed on col: ', col)); END; { FOR col } END; { FOR colOwner } { add extra cells with defaults: control none, display text } IF R_GetBooleanItem(gD, cCh_MoreRows) THEN FOR n:=0 TO 40 DO BEGIN row := InsertLBItem(gD, cLB, GetNumLBItems(gD, cLB), Concat(row+1, '-0')); FOR col:=1 TO GetNumLBColumns(gD, cLB)-1 DO BEGIN IF SetLBItemInfo(gD, cLB, row, col, Concat(row, '-', col), gPreloadImg) THEN BEGIN { do experiments here } END; { do experiments here } END; END; EnableLBUpdates(gD, cLB, TRUE); temp_b := RefreshLB(gD, cLB); END; { LB_LoadRows } { ************************************************ } { destroy LBs } PROCEDURE LB_Destroy; VAR col : INTEGER; temp_b : BOOLEAN; BEGIN temp_b := DeleteAllLBItems(gD, cLB); FOR col := 0 TO GetNumLBColumns(gD, cLB) -1 DO BEGIN temp_b := DeleteLBColumn(gD, cLB, col); END; END; { LB_Destroy } { ************************************************ } { destroy LBs and rebuild them anew } PROCEDURE LB_Reset; VAR event, eventRow, eventCol, itemIndex, editDisplay, itemDisplay : INTEGER; BEGIN { disable column data item toggles if not chosen } { preload first image } gPreloadImg := D_PullIntChoice(gD, cPull_PreloadImg); editDisplay := -1; IF R_GetBooleanItem(gD, cChGr_EditDisplay) THEN editDisplay := D_PullIntChoice(gD, cPull_EditDisplay); itemDisplay := -1; IF R_GetBooleanItem(gD, cChGr_ItemDisplay) THEN itemDisplay := D_PullIntChoice(gD, cPull_ItemDisplay); LB_Destroy; { destroy all LBs data } (* { try this istead of LB_LoadColumns + LB_LoadRows } LB_CreateClassListLB(editDisplay, itemDisplay); { destroy all LBs data } *) { get users choices for Display and Edit Types } { increased because pull is 0-based } LB_LoadColumns(editDisplay, itemDisplay); { reload all rows with data } LB_LoadRows; { rebuild the rows } { perhaps you want to try this instead of LB_LoadRows } {LB_LoadIndexedResources(gD, cLB, 66);} { here loading hatches, change it as you please } END; { LB_Reset } { DialogDriver } BEGIN CASE item OF SetupDialogC: BEGIN { these arrays don't actually need to be globals or to be here, they are here only for clarity } { Control Type, used for COLUMNS in LB_CreateColumns } { used as title for each column } gControlTypeStr[0] := 'Control Type'; gControlTypeStr[1] := 'Static'; gControlTypeStr[2] := 'Radio'; gControlTypeStr[3] := 'Multi State'; gControlTypeStr[4] := 'Single Instance Icon'; gControlTypeStr[5] := 'Static icon'; gControlTypeStr[6] := 'Number'; gControlTypeStr[7] := 'Multiple Icons'; gControlTypeStr[8] := 'Disclosure Triangle'; { for hierarchical display, introduced by VW 17 (2012) VW 18 (2013) } { Column Owner Type, used for CELLS in LB_LoadRows } { never forget. A COLUMN Owner operates on CELLS } { used on the first cell of each row } gColOwnerStr[0] := 'Col. Owner'; gColOwnerStr[1] := 'None'; gColOwnerStr[2] := 'Solid rect '; gColOwnerStr[3] := 'Dual solid rect '; gColOwnerStr[4] := 'Pattern rect'; gColOwnerStr[5] := 'Dual pattern rect'; gColOwnerStr[6] := 'Gradient or image'; gColOwnerStr[7] := 'Blank'; gColOwnerStr[8] := 'Text'; gColOwnerStr[9] := 'Dashed line'; { Display Type, used as modifier for cells } gDisplayTypeStr[1] := 'Image'; gDisplayTypeStr[2] := 'Text only'; gDisplayTypeStr[3] := 'Image and Text'; { there is Item and Edit Display, they used to be different, now (VW 2017+) they seem to be the same } AddChoice(gD, cPull_ItemDisplay, '<nothing set>', 0); AddChoice(gD, cPull_EditDisplay, '<nothing set>', 0); FOR i:= 1 TO 3 DO BEGIN AddChoice(gD, cPull_ItemDisplay, gDisplayTypeStr[i], R_GetChoiceCount(gD, cPull_ItemDisplay)); AddChoice(gD, cPull_EditDisplay, gDisplayTypeStr[i], R_GetChoiceCount(gD, cPull_EditDisplay)); END; SetBooleanItem(gD, cChGr_ItemDisplay, TRUE); SetBooleanItem(gD, cChGr_EditDisplay, FALSE); SelectChoice(gD, cPull_ItemDisplay, 1, TRUE); { preselects 'Image' } SelectChoice(gD, cPull_EditDisplay, 1, TRUE); SetBooleanItem(gD, cChGr_ColDataItem, TRUE); SetBooleanItem(gD, cRa_txtToggles, FALSE); SetBooleanItem(gD, cRa_imgToggles, TRUE); SetBooleanItem(gD, cCh_MultiImages, TRUE); SetBooleanItem(gD, cCh_ShowEvents, FALSE); SetBooleanItem(gD, cChGr_DragDrop, FALSE); SetBooleanItem(gD, cChGr_Hierarchical, FALSE); { disable column data item toggles if not chosen } { add images to the Icons List, available to the whole List Browser } gImgCnt := -1; { init } gImgCnt := AddListBrowserImage(gD, cLB, 'Vectorworks/Standard Images/Visible.png'); { black open eye 16x14 px } gImgCnt := AddListBrowserImage(gD, cLB, 'Vectorworks/Standard Images/Invisible.png'); { cross 16x14 px } gImgCnt := AddListBrowserImage(gD, cLB, 'Vectorworks/Standard Images/Gray.png'); { gray open eye 16x14 px } gImgCnt := AddListBrowserImage(gD, cLB, 'Vectorworks/Standard Images/DontSave.png'); { forbidden sign } { init image preloading pull } temp_i := InsertEnhanPullDownMenuItem(gD, cPull_PreloadImg, 'Visible', 'Vectorworks/Standard Images/Visible.png'); temp_i := InsertEnhanPullDownMenuItem(gD, cPull_PreloadImg, 'Invisible', 'Vectorworks/Standard Images/Invisible.png'); temp_i := InsertEnhanPullDownMenuItem(gD, cPull_PreloadImg, 'Gray', 'Vectorworks/Standard Images/Gray.png'); temp_i := InsertEnhanPullDownMenuItem(gD, cPull_PreloadImg, 'Forbidden', 'Vectorworks/Standard Images/DontSave.png'); temp_i := InsertEnhanPullDownMenuItem(gD, cPull_PreloadImg, '-1', 'Vectorworks/Standard Images/Blank.png'); { add "-1", empty image } { the preselection of an image from the Column Data Items is useful as starting point } { Note: 'Single Selection' will show only the first two images in the list of Column Data Items if you preselect other images, you'll just be confused } gPreloadImg := 1; SelectChoice(gD, cPull_PreloadImg, gPreloadImg, TRUE); FOR i := 0 TO 8 DO BEGIN AddChoice(gD, cPull_DragDrop, Concat(i, ' ', gControlTypeStr[i]), R_GetChoiceCount(gD, cPull_DragDrop)); AddChoice(gD, cPull_Hierarchical, Concat(i, ' ', gControlTypeStr[i]), R_GetChoiceCount(gD, cPull_Hierarchical)); END; SelectChoice(gD, cPull_DragDrop, kLBctrNumber, TRUE); { preselects Control Type Number } LB_Reset; SetItemText(gD, cSt_Message, 'Click around and see what happens'); END; { SetupDialogC } cLB : BEGIN IF GetLBEventInfo(gD, cLB, event, eventRow, eventCol) THEN BEGIN CASE eventCol OF kLBctrSingleInstance : SetItemText(gD, cSt_Message, 'Single Instance can only toggle between the first two Column Data Items: Visible, Invisible. Preloading other items will only confuse you.'); END; { recursive click on disclosure if option key pressed } recursive := NOT AUTOKEY(temp_L) AND OPTION; { this is very strange, I am aware... } IF R_GetBooleanItem(gD, cChGr_Hierarchical) THEN IF eventCol = D_PullIntChoice(gD, cPull_Hierarchical) THEN IF HierLBItemIsClosed(gD, cLB, eventRow) THEN BEGIN HierLBItemOpened(gD, cLB, eventRow, recursive, temp_i) END ELSE HierLBItemClosed(gD, cLB, eventRow, recursive); IF R_GetBooleanItem(gD, cCh_ShowEvents) THEN AlrtDialog(Concat('event: ', event, Chr(13), 'last sel row: ', eventRow, Chr(13), 'last sel col: ', eventCol)); END ELSE AlrtDialog('GetLBEventInfo returned FALSE! Tell me when.'); END; cPull_PreloadImg, cChGr_ItemDisplay, cChGr_EditDisplay, cPull_ItemDisplay, cPull_EditDisplay : BEGIN IF (D_PullIntChoice(gD, cPull_ItemDisplay) = kLBdispTextOnly) OR (D_PullIntChoice(gD, cPull_EditDisplay) = kLBdispTextOnly) THEN inform := 'You cannot see preloaded images while Display Type is set to "Text Only"' ELSE inform := 'Item and Edit Display are the same from VW 2017'; SetItemText(gD, cSt_Message, inform); LB_Reset; { destroys the LB and rebuilds it } END; cChGr_DragDrop, cPull_DragDrop : BEGIN IF D_PullIntChoice(gD, cPull_DragDrop) <> kLBctrNumber THEN SetItemText(gD, cSt_Message, 'Only works with Control Type "Number". Select a cell in the "Number" column and drag it up and down.'); LB_Reset; { destroys the LB and rebuilds it } END; cChGr_Hierarchical, cPull_Hierarchical: BEGIN SetItemText(gD, cSt_Message, 'Only works with Display Type Image and Text.'); LB_Reset; { destroys the LB and rebuilds it } END; cRa_txtToggles: BEGIN SetItemText(gD, cSt_Message, 'Click on some cells to toggle this sequence independently from the images: Orso, Atta, Ax'); LB_Reset; { destroys the LB and rebuilds it } END; cCh_ShowEvents: BEGIN SetItemText(gD, cSt_Message, 'If on, clicking on a cell will raise an alert showing relevant List Browser events.'); LB_Reset; { destroys the LB and rebuilds it } END; cCh_MoreRows: BEGIN SetItemText(gD, cSt_Message, 'If on, creates more generic cells for you to experiment. You should add cell experiments in the subroutine LB_LoadRows'); LB_Reset; { destroys the LB and rebuilds it } END; cCh_MultiImages, cChGr_ColDataItem, cRa_imgToggles : LB_Reset; { destroys the LB and rebuilds it } { OK button } 1: BEGIN { do you want do something at dialog exit? put it here } END; END; END; { DialogDriver } { ************************************************** } { ********************* MAIN *********************** } BEGIN SetPref(407, TRUE); { compiler mode, remember to turn it off! } GetVersion(n, n, n, n); { last checked value is the platform } gIsMac := (n = 1); gD := DialogLayout; { whatsoever gradient to demonstrate the owner "Gradient or image" } temp_s := 'LB gradient'; temp_h := GetObject(temp_s); IF temp_h = NIL THEN BEGIN temp_h := CreateGradient(temp_s); SetGradientSpotColor(temp_h, 2, 0, 109, 181); { petrol blue } END; gVectorFill := Name2Index(temp_s); { whatsoever line type to demonstrate the owner "Dashed Line" } temp_s := 'LB Line Style'; temp_h := GetObject(temp_s); IF temp_h = NIL THEN SetDashStyleN(temp_s, TRUE, 1, 5", 2"); { this wants page inches } gLineType := Name2Index(temp_s); IF VerifyLayout(gD) THEN temp_L := RunLayoutDialog(gD, DialogDriver) ELSE AlrtDialog('You made a mess again.'); END; RUN(LB_Test);