From c010ad2ba5aec0aff195abbc59692f168f6ad2d1 Mon Sep 17 00:00:00 2001 From: Patrick Tingen Date: Thu, 24 Dec 2020 12:49:32 +0100 Subject: [PATCH 1/4] Updated readme for DD25 --- README.md | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index f711167..637d291 100644 --- a/README.md +++ b/README.md @@ -28,8 +28,9 @@ In 2008 I needed a tool like this and ended up with DataHack made by Richard Tar ## Version history: -Full changelog can be found [here](https://raw.githubusercontent.com/patrickTingen/DataDigger/develop/DataDigger.txt) +Full changelog can be found [here](https://raw.githubusercontent.com/patrickTingen/DataDigger/master/DataDigger.txt) +- DataDigger 25 - 24 dec 2020 (Rudolf) - DataDigger 24 - 3 oct 2018 (Pure Gold) - DataDigger 23 - 15 apr 2017 (Easter Egg Edition) - DataDigger 22 - 20 feb 2017 (Titanium) @@ -54,4 +55,4 @@ Full changelog can be found [here](https://raw.githubusercontent.com/patrickTing - DataDigger 3 - 9 jul 2009 - DataDigger 2 - 6 feb 2009 (Mother-in-law edition) - DataDigger 1 - jan 2009 -- DataDigger 0 - dec 2008 (DataHack) \ No newline at end of file +- DataDigger 0 - dec 2008 (DataHack) From 8bdaad00d77af96e2b845def8307c110721815f3 Mon Sep 17 00:00:00 2001 From: Patrick Date: Mon, 28 Dec 2020 15:39:10 +0100 Subject: [PATCH 2/4] Missing checks in getDataserver.p re-added --- getDataserver.p | 24 +++++++- wDataDigger.w | 150 ++++++++++++++++++++++++------------------------ wDataDigger.wrx | Bin 2560 -> 2560 bytes 3 files changed, 98 insertions(+), 76 deletions(-) diff --git a/getDataserver.p b/getDataserver.p index 4953925..6cc5773 100644 --- a/getDataserver.p +++ b/getDataserver.p @@ -29,6 +29,8 @@ DEFINE VARIABLE cDontShow AS CHARACTER NO-UNDO. DEFINE VARIABLE lDontShowSchemaHr AS LOGICAL NO-UNDO. DEFINE VARIABLE iStartTime AS INTEGER NO-UNDO. DEFINE VARIABLE hWindow AS HANDLE NO-UNDO. +DEFINE VARIABLE iItem AS INTEGER NO-UNDO. +DEFINE VARIABLE cConnectedDatabases AS CHARACTER NO-UNDO. DEFINE BUFFER bDb FOR dictdb._db. @@ -158,7 +160,13 @@ FOR EACH ttDataserver BY ttDataserver.iServerNr: CONNECT VALUE(ttDataserver.cConnectString) NO-ERROR. - IF ERROR-STATUS:GET-MESSAGE(1) <> ? AND ERROR-STATUS:GET-MESSAGE(1) <> "" THEN + IF ERROR-STATUS:GET-MESSAGE(1) <> ? + AND ERROR-STATUS:GET-MESSAGE(1) <> "" + AND (IF ERROR-STATUS:GET-NUMBER(1) = 43 AND program-name(3) BEGINS "btnDisconnectChoose " THEN + NO + ELSE + YES) + THEN DO: MESSAGE SUBSTITUTE( TRIM( @@ -185,6 +193,20 @@ FOR EACH ttDataserver BY ttDataserver.iServerNr: ttDataserver.lConnected = CONNECTED(ttDataserver.cLDbNameDataserver). END. /* FOR EACH */ +if program-name(3) begins "btnDisconnectChoose " then +do: + do iItem = 1 to num-dbs: + cConnectedDatabases = trim(cConnectedDatabases + "," + ldbname(iItem), ","). + end. + + for each ttDataserver by ttDataserver.iServerNr: + if not can-do(cConnectedDatabases, ttDataserver.cLDbNameSchema) then + do: + piDataserverNr = piDataserverNr - 1. + delete ttDataserver. + end. + end. +end. PROCEDURE removeParameter: DEFINE INPUT PARAMETER pcParam AS CHARACTER NO-UNDO. diff --git a/wDataDigger.w b/wDataDigger.w index 83b73d9..5145892 100644 --- a/wDataDigger.w +++ b/wDataDigger.w @@ -190,15 +190,15 @@ DEFINE VARIABLE glUseColorsFavouriteTable AS LOGICAL NO-UNDO. ~{&OPEN-QUERY-brIndexes} /* Standard List Definitions */ -&Scoped-Define ENABLED-OBJECTS rctQuery rctEdit fiTableFilter ~ -cbDatabaseFilter btnFavourite tgSelAll fiIndexNameFilter fiFlagsFilter ~ -fiFieldsFilter btnClearIndexFilter brTables brFields brIndexes tgDebugMode ~ -btnClearTableFilter btnTableFilter btnAddFavGroup fiTableDesc ~ -cbFavouriteGroup btnWhere ficWhere btnQueries btnView btnTools btnTabTables ~ -btnClear btnClearFieldFilter btnClipboard btnMoveBottom btnMoveDown ~ -btnMoveTop btnMoveUp btnReset btnTabFavourites btnTabFields btnTabIndexes ~ -btnNextQuery btnPrevQuery btnDump btnLoad btnDelete btnResizeVer btnClone ~ -btnAdd btnEdit fiFeedback +&Scoped-Define ENABLED-OBJECTS rctQuery rctEdit btnFavourite fiTableFilter ~ +cbDatabaseFilter tgSelAll fiIndexNameFilter fiFlagsFilter fiFieldsFilter ~ +btnClearIndexFilter btnClearTableFilter brTables brFields brIndexes ~ +tgDebugMode btnTableFilter fiTableDesc cbFavouriteGroup ficWhere ~ +btnAddFavGroup btnWhere btnQueries btnView btnTools btnTabTables btnClear ~ +btnClearFieldFilter btnClipboard btnMoveBottom btnMoveDown btnMoveTop ~ +btnMoveUp btnReset btnTabFavourites btnTabFields btnTabIndexes btnNextQuery ~ +btnPrevQuery btnDump btnLoad btnDelete btnResizeVer btnClone btnAdd btnEdit ~ +fiFeedback &Scoped-Define DISPLAYED-OBJECTS fiTableFilter cbDatabaseFilter tgSelAll ~ fiIndexNameFilter fiFlagsFilter fiFieldsFilter fiTableDesc cbFavouriteGroup ~ ficWhere fiFeedback @@ -988,29 +988,29 @@ ttTable.iNumQueries /* ************************ Frame Definitions *********************** */ DEFINE FRAME frMain + btnFavourite AT Y 236 X 269 WIDGET-ID 310 fiTableFilter AT Y 3 X 56 NO-LABEL cbDatabaseFilter AT Y 3 X 117 COLON-ALIGNED NO-LABEL - btnFavourite AT Y 236 X 269 WIDGET-ID 310 tgSelAll AT Y 5 X 345 WIDGET-ID 6 fiIndexNameFilter AT Y 5 X 815 COLON-ALIGNED NO-LABEL WIDGET-ID 168 fiFlagsFilter AT Y 5 X 890 COLON-ALIGNED NO-LABEL WIDGET-ID 164 fiFieldsFilter AT Y 5 X 945 COLON-ALIGNED NO-LABEL WIDGET-ID 166 btnClearIndexFilter AT Y 5 X 1095 WIDGET-ID 160 + btnClearTableFilter AT Y 3 X 237 WIDGET-ID 222 brTables AT Y 27 X 56 WIDGET-ID 300 brFields AT Y 27 X 325 WIDGET-ID 100 brIndexes AT Y 28 X 829 WIDGET-ID 200 tgDebugMode AT Y 29 X 38 WIDGET-ID 238 NO-TAB-STOP - btnClearTableFilter AT Y 3 X 237 WIDGET-ID 222 btnTableFilter AT Y 3 X 257 WIDGET-ID 38 - btnAddFavGroup AT Y 236 X 248 WIDGET-ID 318 fiTableDesc AT Y 236 X 57 NO-LABEL WIDGET-ID 90 cbFavouriteGroup AT Y 236 X 75 COLON-ALIGNED NO-LABEL WIDGET-ID 316 - btnWhere AT Y 265 X 683 WIDGET-ID 236 ficWhere AT Y 266 X 80 NO-LABEL + btnAddFavGroup AT Y 236 X 248 WIDGET-ID 318 + fiWarning AT Y 520 X 480 COLON-ALIGNED NO-LABEL WIDGET-ID 172 + btnWhere AT Y 265 X 683 WIDGET-ID 236 btnQueries AT Y 265 X 745 WIDGET-ID 190 btnView AT Y 520 X 200 WIDGET-ID 4 btnTools AT Y 0 X 1 WIDGET-ID 264 - fiWarning AT Y 520 X 480 COLON-ALIGNED NO-LABEL WIDGET-ID 172 btnTabTables AT Y 45 X 34 WIDGET-ID 300 btnClear AT Y 265 X 725 WIDGET-ID 30 btnClearFieldFilter AT Y 5 X 765 WIDGET-ID 232 @@ -1044,46 +1044,17 @@ DEFINE FRAME frMain AT X 0 Y 0 SIZE-PIXELS 1498 BY 560 DROP-TARGET. -DEFINE FRAME frSettings - btnQueries-txt AT Y 175 X 37 WIDGET-ID 294 - btnDataDigger AT Y 35 X 1 WIDGET-ID 126 - btnSettings AT Y 70 X 1 WIDGET-ID 210 - btnDict AT Y 105 X 1 WIDGET-ID 224 - btnDataAdmin AT Y 140 X 1 WIDGET-ID 214 - btnQueries-3 AT Y 175 X 1 WIDGET-ID 190 - btnQueryTester AT Y 210 X 1 WIDGET-ID 232 - btnConnections AT Y 245 X 1 WIDGET-ID 212 - btnEditor AT Y 280 X 1 WIDGET-ID 228 - btnHelp AT Y 315 X 1 WIDGET-ID 260 - btnAbout AT Y 350 X 1 WIDGET-ID 196 - btnExpand AT Y 485 X 1 WIDGET-ID 306 - btnExpand-txt AT Y 485 X 35 WIDGET-ID 308 - btnEditor-txt AT Y 280 X 37 WIDGET-ID 290 - btnQueryTester-txt AT Y 210 X 37 WIDGET-ID 298 - btnAbout-txt AT Y 350 X 37 WIDGET-ID 266 - btnConnections-txt AT Y 245 X 37 WIDGET-ID 270 - btnDataAdmin-txt AT Y 140 X 37 WIDGET-ID 274 - btnDataDigger-txt AT Y 35 X 37 WIDGET-ID 278 - btnHelp-txt AT Y 315 X 37 WIDGET-ID 286 - btnSettings-txt AT Y 70 X 37 WIDGET-ID 302 - btnTools-2 AT Y 0 X 1 WIDGET-ID 264 - btnDict-txt AT Y 105 X 37 WIDGET-ID 282 - btnTools-txt AT Y 0 X 35 WIDGET-ID 304 +DEFINE FRAME frData + btnClearDataFilter AT Y 5 X 761 WIDGET-ID 76 + btnDataSort AT Y 4 X 5 WIDGET-ID 300 + fiNumSelected AT Y 198 X 636 COLON-ALIGNED NO-LABEL WIDGET-ID 298 + fiNumRecords AT Y 198 X 665 COLON-ALIGNED NO-LABEL WIDGET-ID 210 + rctData AT Y 0 X 0 WIDGET-ID 272 + rctDataFilter AT Y 1 X 0 WIDGET-ID 296 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY - SIDE-LABELS NO-UNDERLINE - AT COL 1 ROW 2.43 - SIZE 28 BY 24.76 - BGCOLOR 15 WIDGET-ID 500. - -DEFINE FRAME frHint - edHint AT Y 4 X 35 NO-LABEL WIDGET-ID 2 - btGotIt AT Y 110 X 104 WIDGET-ID 4 - imgArrow AT Y 0 X 0 WIDGET-ID 10 - WITH 1 DOWN KEEP-TAB-ORDER OVERLAY - SIDE-LABELS TOP-ONLY NO-UNDERLINE THREE-D - AT X 1150 Y 15 - SIZE-PIXELS 285 BY 140 - BGCOLOR 14 WIDGET-ID 600. + SIDE-LABELS NO-UNDERLINE THREE-D + AT COL 7 ROW 15.05 + SIZE 158 BY 10.24 WIDGET-ID 700. DEFINE FRAME frWhere btnBegins AT Y 123 X 17 WIDGET-ID 74 @@ -1121,17 +1092,46 @@ DEFINE FRAME frWhere TITLE "Query Editor" DEFAULT-BUTTON btnOK WIDGET-ID 400. -DEFINE FRAME frData - btnClearDataFilter AT Y 5 X 761 WIDGET-ID 76 - btnDataSort AT Y 4 X 5 WIDGET-ID 300 - fiNumSelected AT Y 198 X 636 COLON-ALIGNED NO-LABEL WIDGET-ID 298 - fiNumRecords AT Y 198 X 665 COLON-ALIGNED NO-LABEL WIDGET-ID 210 - rctData AT Y 0 X 0 WIDGET-ID 272 - rctDataFilter AT Y 1 X 0 WIDGET-ID 296 +DEFINE FRAME frHint + edHint AT Y 4 X 35 NO-LABEL WIDGET-ID 2 + btGotIt AT Y 110 X 104 WIDGET-ID 4 + imgArrow AT Y 0 X 0 WIDGET-ID 10 + WITH 1 DOWN KEEP-TAB-ORDER OVERLAY + SIDE-LABELS TOP-ONLY NO-UNDERLINE THREE-D + AT X 1150 Y 15 + SIZE-PIXELS 285 BY 140 + BGCOLOR 14 WIDGET-ID 600. + +DEFINE FRAME frSettings + btnQueries-txt AT Y 175 X 37 WIDGET-ID 294 + btnDataDigger AT Y 35 X 1 WIDGET-ID 126 + btnSettings AT Y 70 X 1 WIDGET-ID 210 + btnDict AT Y 105 X 1 WIDGET-ID 224 + btnDataAdmin AT Y 140 X 1 WIDGET-ID 214 + btnQueries-3 AT Y 175 X 1 WIDGET-ID 190 + btnQueryTester AT Y 210 X 1 WIDGET-ID 232 + btnConnections AT Y 245 X 1 WIDGET-ID 212 + btnEditor AT Y 280 X 1 WIDGET-ID 228 + btnHelp AT Y 315 X 1 WIDGET-ID 260 + btnAbout AT Y 350 X 1 WIDGET-ID 196 + btnExpand AT Y 485 X 1 WIDGET-ID 306 + btnExpand-txt AT Y 485 X 35 WIDGET-ID 308 + btnEditor-txt AT Y 280 X 37 WIDGET-ID 290 + btnQueryTester-txt AT Y 210 X 37 WIDGET-ID 298 + btnAbout-txt AT Y 350 X 37 WIDGET-ID 266 + btnConnections-txt AT Y 245 X 37 WIDGET-ID 270 + btnDataAdmin-txt AT Y 140 X 37 WIDGET-ID 274 + btnDataDigger-txt AT Y 35 X 37 WIDGET-ID 278 + btnHelp-txt AT Y 315 X 37 WIDGET-ID 286 + btnSettings-txt AT Y 70 X 37 WIDGET-ID 302 + btnTools-2 AT Y 0 X 1 WIDGET-ID 264 + btnDict-txt AT Y 105 X 37 WIDGET-ID 282 + btnTools-txt AT Y 0 X 35 WIDGET-ID 304 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY - SIDE-LABELS NO-UNDERLINE THREE-D - AT COL 7 ROW 15.05 - SIZE 158 BY 10.24 WIDGET-ID 700. + SIDE-LABELS NO-UNDERLINE + AT COL 1 ROW 2.43 + SIZE 28 BY 24.76 + BGCOLOR 15 WIDGET-ID 500. /* *********************** Procedure Settings ************************ */ @@ -1409,15 +1409,15 @@ OPEN QUERY {&SELF-NAME} FOR EACH ttTable. CREATE CONTROL-FRAME CtrlFrame ASSIGN FRAME = FRAME frMain:HANDLE - ROW = 25.52 - COLUMN = 91 - HEIGHT = 1.43 - WIDTH = 6 + ROW = 1.29 + COLUMN = 43 + HEIGHT = .81 + WIDTH = 4 WIDGET-ID = 292 HIDDEN = yes SENSITIVE = yes. /* CtrlFrame OCXINFO:CREATE-CONTROL from: {F0B88A90-F5DA-11CF-B545-0020AF6ED35A} type: PSTimer */ - CtrlFrame:MOVE-AFTER(FRAME frData:HANDLE). + CtrlFrame:MOVE-AFTER(btnClearIndexFilter:HANDLE IN FRAME frMain). &ENDIF @@ -6769,11 +6769,11 @@ PROCEDURE enable_UI : fiFlagsFilter fiFieldsFilter fiTableDesc cbFavouriteGroup ficWhere fiFeedback WITH FRAME frMain IN WINDOW C-Win. - ENABLE rctQuery rctEdit fiTableFilter cbDatabaseFilter btnFavourite tgSelAll + ENABLE rctQuery rctEdit btnFavourite fiTableFilter cbDatabaseFilter tgSelAll fiIndexNameFilter fiFlagsFilter fiFieldsFilter btnClearIndexFilter - brTables brFields brIndexes tgDebugMode btnClearTableFilter - btnTableFilter btnAddFavGroup fiTableDesc cbFavouriteGroup btnWhere - ficWhere btnQueries btnView btnTools btnTabTables btnClear + btnClearTableFilter brTables brFields brIndexes tgDebugMode + btnTableFilter fiTableDesc cbFavouriteGroup ficWhere btnAddFavGroup + btnWhere btnQueries btnView btnTools btnTabTables btnClear btnClearFieldFilter btnClipboard btnMoveBottom btnMoveDown btnMoveTop btnMoveUp btnReset btnTabFavourites btnTabFields btnTabIndexes btnNextQuery btnPrevQuery btnDump btnLoad btnDelete btnResizeVer @@ -8802,10 +8802,10 @@ PROCEDURE initVisuals : btnSettings:LOAD-IMAGE (getImagePath("Settings.gif")). btnConnections:LOAD-IMAGE (getImagePath("Connections.gif")). btnDict:LOAD-IMAGE (getImagePath("Dictionary.gif")). - btnEditor:LOAD-IMAGE (getImagePath("Editor.gif")). + btnEditor:LOAD-IMAGE (getImagePath("Editor.gif")). btnQueries-3:LOAD-IMAGE (getImagePath("SavedQueries.gif")). btnQueryTester:LOAD-IMAGE (getImagePath("QTester.gif")). - btnDataAdmin:LOAD-IMAGE(getImagePath("Administration.gif")). + btnDataAdmin:LOAD-IMAGE (getImagePath("Administration.gif")). btnAbout:LOAD-IMAGE (getImagePath("About.gif")). btnResizeVer:LOAD-IMAGE (getImagePath("ResizeVer.gif")). btnDataDigger:LOAD-IMAGE (getImagePath("DataDigger24x24.gif")). @@ -8817,7 +8817,7 @@ PROCEDURE initVisuals : btnSettings-txt:FONT = giDefaultFont. btnConnections-txt:FONT = giDefaultFont. btnDict-txt:FONT = giDefaultFont. - btnEditor-txt:FONT = giDefaultFont. + btnEditor-txt:FONT = giDefaultFont. btnQueries-txt:FONT = giDefaultFont. btnQueryTester-txt:FONT = giDefaultFont. btnDataAdmin-txt:FONT = giDefaultFont. diff --git a/wDataDigger.wrx b/wDataDigger.wrx index 602b85deca7bc7fafc3f74cafecf4ca836bc89d6..25524e095d410bcc3e9de8e2faefda7504d1bb0b 100644 GIT binary patch delta 49 zcmZn=X%N|v!@{QUt@eW2-N{8PMSLF`K+J255TVVVSi+cDMHm;tCNdZiuev({|RJXV}uB8{=^c-%qqvgz#zBTmt!*{06LQu A3jhEB From 4cfd6e0b41af2fcad919d7d9d9c0f00ad913d12f Mon Sep 17 00:00:00 2001 From: Patrick Date: Tue, 29 Dec 2020 20:31:05 +0100 Subject: [PATCH 3/4] Post delivery fixes --- build.i | 2 +- wDataDigger.w | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/build.i b/build.i index 761a4ff..2b25a14 100644 --- a/build.i +++ b/build.i @@ -1 +1 @@ -20201218 \ No newline at end of file +20201229 \ No newline at end of file diff --git a/wDataDigger.w b/wDataDigger.w index 5145892..4594ed8 100644 --- a/wDataDigger.w +++ b/wDataDigger.w @@ -8333,6 +8333,7 @@ PROCEDURE initObjects : /* Set Table or Favourites view */ cSetting = getRegistry("DataDigger","TableView"). + IF cSetting = ? THEN cSetting = 'T'. glShowFavourites = (cSetting BEGINS "F"). IF glShowFavourites THEN RUN setPage({&PAGE-FAVOURITES}). RUN setTableView(glShowFavourites,YES). @@ -8433,6 +8434,9 @@ PROCEDURE initSettingsFile : /* Position of resize bar */ IF getRegistry("DataDigger", "ResizeBar:Y" ) = ? THEN setRegistry("DataDigger", "ResizeBar:Y", "260" ). + /* Initial tab to show (tables) */ + IF getRegistry("DataDigger","TableView") = ? THEN setRegistry("DataDigger","TableView","T"). + /* Add column for recid / rowid */ IF getRegistry("DataDigger","AddDataColumnForRecid") = ? THEN setRegistry("DataDigger","AddDataColumnForRecid","yes"). IF getRegistry("DataDigger","AddDataColumnForRowid") = ? THEN setRegistry("DataDigger","AddDataColumnForRowid","no"). From 9a30dff7d60cc5f8cc8292f6b6d5fe114d288281 Mon Sep 17 00:00:00 2001 From: Patrick Date: Tue, 29 Dec 2020 21:00:31 +0100 Subject: [PATCH 4/4] New user welcome wizard not showing --- wDataDigger.w | 113 ++++++++++++++++++++++++------------------------ wDataDigger.wrx | Bin 2560 -> 2560 bytes 2 files changed, 56 insertions(+), 57 deletions(-) diff --git a/wDataDigger.w b/wDataDigger.w index 4594ed8..fbe96c3 100644 --- a/wDataDigger.w +++ b/wDataDigger.w @@ -193,8 +193,8 @@ DEFINE VARIABLE glUseColorsFavouriteTable AS LOGICAL NO-UNDO. &Scoped-Define ENABLED-OBJECTS rctQuery rctEdit btnFavourite fiTableFilter ~ cbDatabaseFilter tgSelAll fiIndexNameFilter fiFlagsFilter fiFieldsFilter ~ btnClearIndexFilter btnClearTableFilter brTables brFields brIndexes ~ -tgDebugMode btnTableFilter fiTableDesc cbFavouriteGroup ficWhere ~ -btnAddFavGroup btnWhere btnQueries btnView btnTools btnTabTables btnClear ~ +tgDebugMode btnTableFilter fiTableDesc cbFavouriteGroup btnAddFavGroup ~ +ficWhere btnWhere btnQueries btnView btnTools btnTabTables btnClear ~ btnClearFieldFilter btnClipboard btnMoveBottom btnMoveDown btnMoveTop ~ btnMoveUp btnReset btnTabFavourites btnTabFields btnTabIndexes btnNextQuery ~ btnPrevQuery btnDump btnLoad btnDelete btnResizeVer btnClone btnAdd btnEdit ~ @@ -1004,10 +1004,10 @@ DEFINE FRAME frMain btnTableFilter AT Y 3 X 257 WIDGET-ID 38 fiTableDesc AT Y 236 X 57 NO-LABEL WIDGET-ID 90 cbFavouriteGroup AT Y 236 X 75 COLON-ALIGNED NO-LABEL WIDGET-ID 316 - ficWhere AT Y 266 X 80 NO-LABEL btnAddFavGroup AT Y 236 X 248 WIDGET-ID 318 - fiWarning AT Y 520 X 480 COLON-ALIGNED NO-LABEL WIDGET-ID 172 + ficWhere AT Y 266 X 80 NO-LABEL btnWhere AT Y 265 X 683 WIDGET-ID 236 + fiWarning AT Y 520 X 480 COLON-ALIGNED NO-LABEL WIDGET-ID 172 btnQueries AT Y 265 X 745 WIDGET-ID 190 btnView AT Y 520 X 200 WIDGET-ID 4 btnTools AT Y 0 X 1 WIDGET-ID 264 @@ -1044,17 +1044,46 @@ DEFINE FRAME frMain AT X 0 Y 0 SIZE-PIXELS 1498 BY 560 DROP-TARGET. -DEFINE FRAME frData - btnClearDataFilter AT Y 5 X 761 WIDGET-ID 76 - btnDataSort AT Y 4 X 5 WIDGET-ID 300 - fiNumSelected AT Y 198 X 636 COLON-ALIGNED NO-LABEL WIDGET-ID 298 - fiNumRecords AT Y 198 X 665 COLON-ALIGNED NO-LABEL WIDGET-ID 210 - rctData AT Y 0 X 0 WIDGET-ID 272 - rctDataFilter AT Y 1 X 0 WIDGET-ID 296 +DEFINE FRAME frSettings + btnQueries-txt AT Y 175 X 37 WIDGET-ID 294 + btnDataDigger AT Y 35 X 1 WIDGET-ID 126 + btnSettings AT Y 70 X 1 WIDGET-ID 210 + btnDict AT Y 105 X 1 WIDGET-ID 224 + btnDataAdmin AT Y 140 X 1 WIDGET-ID 214 + btnQueries-3 AT Y 175 X 1 WIDGET-ID 190 + btnQueryTester AT Y 210 X 1 WIDGET-ID 232 + btnConnections AT Y 245 X 1 WIDGET-ID 212 + btnEditor AT Y 280 X 1 WIDGET-ID 228 + btnHelp AT Y 315 X 1 WIDGET-ID 260 + btnAbout AT Y 350 X 1 WIDGET-ID 196 + btnExpand AT Y 485 X 1 WIDGET-ID 306 + btnExpand-txt AT Y 485 X 35 WIDGET-ID 308 + btnEditor-txt AT Y 280 X 37 WIDGET-ID 290 + btnQueryTester-txt AT Y 210 X 37 WIDGET-ID 298 + btnAbout-txt AT Y 350 X 37 WIDGET-ID 266 + btnConnections-txt AT Y 245 X 37 WIDGET-ID 270 + btnDataAdmin-txt AT Y 140 X 37 WIDGET-ID 274 + btnDataDigger-txt AT Y 35 X 37 WIDGET-ID 278 + btnHelp-txt AT Y 315 X 37 WIDGET-ID 286 + btnSettings-txt AT Y 70 X 37 WIDGET-ID 302 + btnTools-2 AT Y 0 X 1 WIDGET-ID 264 + btnDict-txt AT Y 105 X 37 WIDGET-ID 282 + btnTools-txt AT Y 0 X 35 WIDGET-ID 304 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY - SIDE-LABELS NO-UNDERLINE THREE-D - AT COL 7 ROW 15.05 - SIZE 158 BY 10.24 WIDGET-ID 700. + SIDE-LABELS NO-UNDERLINE + AT COL 1 ROW 2.43 + SIZE 28 BY 24.76 + BGCOLOR 15 WIDGET-ID 500. + +DEFINE FRAME frHint + edHint AT Y 4 X 35 NO-LABEL WIDGET-ID 2 + btGotIt AT Y 110 X 104 WIDGET-ID 4 + imgArrow AT Y 0 X 0 WIDGET-ID 10 + WITH 1 DOWN KEEP-TAB-ORDER OVERLAY + SIDE-LABELS TOP-ONLY NO-UNDERLINE THREE-D + AT X 1150 Y 15 + SIZE-PIXELS 285 BY 140 + BGCOLOR 14 WIDGET-ID 600. DEFINE FRAME frWhere btnBegins AT Y 123 X 17 WIDGET-ID 74 @@ -1092,46 +1121,17 @@ DEFINE FRAME frWhere TITLE "Query Editor" DEFAULT-BUTTON btnOK WIDGET-ID 400. -DEFINE FRAME frHint - edHint AT Y 4 X 35 NO-LABEL WIDGET-ID 2 - btGotIt AT Y 110 X 104 WIDGET-ID 4 - imgArrow AT Y 0 X 0 WIDGET-ID 10 - WITH 1 DOWN KEEP-TAB-ORDER OVERLAY - SIDE-LABELS TOP-ONLY NO-UNDERLINE THREE-D - AT X 1150 Y 15 - SIZE-PIXELS 285 BY 140 - BGCOLOR 14 WIDGET-ID 600. - -DEFINE FRAME frSettings - btnQueries-txt AT Y 175 X 37 WIDGET-ID 294 - btnDataDigger AT Y 35 X 1 WIDGET-ID 126 - btnSettings AT Y 70 X 1 WIDGET-ID 210 - btnDict AT Y 105 X 1 WIDGET-ID 224 - btnDataAdmin AT Y 140 X 1 WIDGET-ID 214 - btnQueries-3 AT Y 175 X 1 WIDGET-ID 190 - btnQueryTester AT Y 210 X 1 WIDGET-ID 232 - btnConnections AT Y 245 X 1 WIDGET-ID 212 - btnEditor AT Y 280 X 1 WIDGET-ID 228 - btnHelp AT Y 315 X 1 WIDGET-ID 260 - btnAbout AT Y 350 X 1 WIDGET-ID 196 - btnExpand AT Y 485 X 1 WIDGET-ID 306 - btnExpand-txt AT Y 485 X 35 WIDGET-ID 308 - btnEditor-txt AT Y 280 X 37 WIDGET-ID 290 - btnQueryTester-txt AT Y 210 X 37 WIDGET-ID 298 - btnAbout-txt AT Y 350 X 37 WIDGET-ID 266 - btnConnections-txt AT Y 245 X 37 WIDGET-ID 270 - btnDataAdmin-txt AT Y 140 X 37 WIDGET-ID 274 - btnDataDigger-txt AT Y 35 X 37 WIDGET-ID 278 - btnHelp-txt AT Y 315 X 37 WIDGET-ID 286 - btnSettings-txt AT Y 70 X 37 WIDGET-ID 302 - btnTools-2 AT Y 0 X 1 WIDGET-ID 264 - btnDict-txt AT Y 105 X 37 WIDGET-ID 282 - btnTools-txt AT Y 0 X 35 WIDGET-ID 304 +DEFINE FRAME frData + btnClearDataFilter AT Y 5 X 761 WIDGET-ID 76 + btnDataSort AT Y 4 X 5 WIDGET-ID 300 + fiNumSelected AT Y 198 X 636 COLON-ALIGNED NO-LABEL WIDGET-ID 298 + fiNumRecords AT Y 198 X 665 COLON-ALIGNED NO-LABEL WIDGET-ID 210 + rctData AT Y 0 X 0 WIDGET-ID 272 + rctDataFilter AT Y 1 X 0 WIDGET-ID 296 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY - SIDE-LABELS NO-UNDERLINE - AT COL 1 ROW 2.43 - SIZE 28 BY 24.76 - BGCOLOR 15 WIDGET-ID 500. + SIDE-LABELS NO-UNDERLINE THREE-D + AT COL 7 ROW 15.05 + SIZE 158 BY 10.24 WIDGET-ID 700. /* *********************** Procedure Settings ************************ */ @@ -1205,7 +1205,7 @@ ASSIGN NO-ENABLE */ /* SETTINGS FOR FRAME frMain FRAME-NAME */ -/* BROWSE-TAB brTables frHint frMain */ +/* BROWSE-TAB brTables btnClearTableFilter frMain */ /* BROWSE-TAB brFields brTables frMain */ /* BROWSE-TAB brIndexes brFields frMain */ /* SETTINGS FOR BROWSE brFields IN FRAME frMain @@ -6772,7 +6772,7 @@ PROCEDURE enable_UI : ENABLE rctQuery rctEdit btnFavourite fiTableFilter cbDatabaseFilter tgSelAll fiIndexNameFilter fiFlagsFilter fiFieldsFilter btnClearIndexFilter btnClearTableFilter brTables brFields brIndexes tgDebugMode - btnTableFilter fiTableDesc cbFavouriteGroup ficWhere btnAddFavGroup + btnTableFilter fiTableDesc cbFavouriteGroup btnAddFavGroup ficWhere btnWhere btnQueries btnView btnTools btnTabTables btnClear btnClearFieldFilter btnClipboard btnMoveBottom btnMoveDown btnMoveTop btnMoveUp btnReset btnTabFavourites btnTabFields btnTabIndexes @@ -12487,12 +12487,11 @@ PROCEDURE startSession : /* Check if this is the first run, a new version or a new build */ iVersion = INTEGER(getRegistry('DataDigger', 'Version')) NO-ERROR. - IF iVersion = ? THEN iVersion = {&version}. - cBuild = getRegistry('DataDigger', 'Build'). IF cBuild = ? THEN cBuild = ''. lNewUser = (iVersion = ?). + IF iVersion = ? THEN iVersion = {&version}. lNewVersion = (iVersion <> {&version}). lNewBuild = (cBuild <> '{&build}'). diff --git a/wDataDigger.wrx b/wDataDigger.wrx index 25524e095d410bcc3e9de8e2faefda7504d1bb0b..57805cd0aaf7526969050a06158ca44aa8e94c04 100644 GIT binary patch delta 38 ncmZn=X%N|v!@|Zew_=aXy~#x^MSKSsK+J255TVVVSol~07rqYf delta 38 ncmZn=X%N|v!@{QUt@eW2-N{8PMSLF`K+J255TVVVSol~0J-QJ0