NC Clone

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

User avatar
AUGE_OHR
Posts: 547
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 68 times
Been thanked: 121 times

Re: NC Clone

Post by AUGE_OHR » Wed Jan 29, 2020 7:46 am

hi,

have include

F1 Help (under construction)
Crtl-F1 "GOD Mode"
Compare (Shift-F2) or "=" in Toolbar
NumPad "+" and "-"
F2 and F12
HBFM021.zip
(1.3 MiB) Downloaded 18 times
---

Compare try to find Difference of left / right side and mark them.
if file not found on other side it will be "mark"

for existing files i do test this

Code: Select all

DO CASE
   CASE aSource[ nPosi ] [ F_SIZE ] < 2           // old Dummy files
   CASE nSize <> aSource[ nPosi ] [ F_SIZE ]      // Target Size is different
   CASE dDate <> aSource[ nPosi ] [ F_DATE ]      // Target Date is different
   CASE dDate = aSource[ nPosi ] [ F_DATE ]       // Target Date is same
ENDCASE
DO CASE
   CASE aTarget[ nPosi ] [ F_SIZE ] < 2           // old Dummy files
   CASE nSize <> aTarget[ nPosi ] [ F_SIZE ]      // Source Size is different
   CASE dDate <> aTarget[ nPosi ] [ F_DATE ]      // Source Date is different
   CASE dDate = aTarget[ nPosi ] [ F_DATE ]       // Source Date is same
ENDCASE
if DATE is same i do test TIME.

! Note : i don´t support 1 Hour Daylight Difference

---

NumPad "+" is to select Wildcat for Files e.g. "*.PRG"
NumPad "-" is to de-select matching files

---

F2 : System Folder
Name begin with "cm" are "All User" Folder

F12 : here i call Windows *.MSC and *.CPL Tool

p.s. need Mouse to push F12 Button ... does not work with Keyboard ( see here http://hmgforum.com/viewtopic.php?f=20&t=3858&p=49940 )

---

many F12 Description are in German ...
who can help me to translate Description.
MSC_CPL.ZIP
(1.22 KiB) Downloaded 17 times
now i use a Array ... not the best Way for multi Language
have to think about other Concept.

---

as it is all Windows so it is safe to use e.g. "Disk Cleanup" -> cleanmgr.exe /lowdisk
you also can call these from CMD ... when you remember Name.

---

about Sort F_NAME

i don´t like how it sort F_NAME now ... i like "group by Extension"

a.) like in my Xbase++ App separate Name and Extension in different Column
b.) handle internal sort "by Extension" as Default

btw. you can click on GRID Header to sort

what do you think :?:

---

next to come

if think next will be F3 / F4 to include DBF / SQL Part
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 547
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 68 times
Been thanked: 121 times

Post by AUGE_OHR » Sun Feb 02, 2020 7:39 am

hi,

here Version 0.29
HBFM29.JPG
HBFM29.JPG (276.52 KiB) Viewed 237 times
New :
Setup (Ctrl-S) for Color
switch GRID left-right using Ctrl-U
DBF View/Edit Detail
Viewer TXT, RTF, Image
Re-Size with "ChangeFontSize" / LISTVIEW_SETCOLUMNWIDTH()
Sort Name Group by Extension

change :
F12 -> F11

about Color :
have include a Checkbox for Darkmode. when press "reset" it will load "default" Color
you can change every Color but you must "re-load" it for Main (how can i update "Main" ? )

most what i need is include now so if you have more Idea :idea:
Comment welcome
HBFM029.zip
(1.39 MiB) Downloaded 20 times
have fun
Jimmy

User avatar
Anand
Posts: 450
Joined: Tue May 24, 2016 4:36 pm
DBs Used: DBF
Has thanked: 154 times
Been thanked: 62 times

Post by Anand » Sun Feb 02, 2020 10:22 am

Hi Jimmy,

I must acknowledge that, you are working very very hard and thank you for contributing and helping HMG to grow.

Regards,

Anand
Image

franco
Posts: 402
Joined: Sat Nov 02, 2013 5:42 am
DBs Used: DBF
Been thanked: 14 times

Post by franco » Sun Feb 02, 2020 6:13 pm

Jimmy, +1
All The Best,
Franco Bushie
Canada

User avatar
AUGE_OHR
Posts: 547
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 68 times
Been thanked: 121 times

Post by AUGE_OHR » Sun Feb 02, 2020 10:27 pm

hi,

sorry i have a BUG in FMsetup when press "save" ...

there was a Statusbar which i have disable but there was some Code line in "save" to access Statusbar.
so do NOT press "save" ... it will save Data when QUIT.

hope i have no oversee more .. please report if you find a Error, THX
will fix it in next Version (more Option for DBF)
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 547
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 68 times
Been thanked: 121 times

Post by AUGE_OHR » Mon Feb 03, 2020 7:42 am

have fix "save" and add more for DBF : Index and SEEK / Scope


have used a InputBox to get Value for SEEK.

Question : InputBox seems to hide (?) Parent (here BROWSE). can i avoid it :?:

Code: Select all

PROCEDURE DoSeek(cPath)
LOCAL cSeek
LOCAL nRec := RECNO()
LOCAL cTitle := SP_GetWahl()

   cSeek := InputBox ( "seek", cTitle )
   cSeek := TRIM(cSeek)
   IF !EMPTY(cSeek)
      SEEK (cSeek)
      IF FOUND()
         Domethod( "Browse_View", "BrowserView", "Refresh" )
      ELSE
         GOTO(nRec)
      ENDIF
   ENDIF
RETURN
i have spend some time to find out why Code seems not to work as Display does not change.
i have SET BROWSESYNC ON and Record is FOUND and in Debugger i can see right Record.

after some time i found out this

Code: Select all

   IF FOUND()
      nRec := RECNO()
      SetProperty( "Browse_View", "BrowserView", "Value", nRec)
      Domethod( "Browse_View", "BrowserView", "Refresh" )
the BROWSE seem not to "Sync" when using SEEK ... have to set "VALUE" for re-position :!:

---

F6 for Index Selection is multiselect but i have Problem to "set" more than 1 Index.
see here http://hmgforum.com/viewtopic.php?f=5&t=6307

for *.CDX i have to found out how to "get Tag-Name"

---

Scope / Browse : when Cursor is in Row 1 and i set SCOPE than 1st ROW is "out of Range" ... is this a BUG :?:

---

have re-upload last Version while does not work correct with ScopeBottom (fixed)
HBFM031.zip
(1.39 MiB) Downloaded 19 times
have fun
Jimmy

User avatar
Steed
Posts: 389
Joined: Sat Dec 12, 2009 3:40 pm
Has thanked: 2 times
Been thanked: 2 times

Post by Steed » Wed Feb 05, 2020 4:30 am

Thanks

User avatar
AUGE_OHR
Posts: 547
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 68 times
Been thanked: 121 times

Post by AUGE_OHR » Mon Feb 10, 2020 6:22 am

v0.33
New :
USB-Detect when arrive or remove. will update Combobox
SH-File Function now in Thread !
HBFM033.zip
(1.39 MiB) Downloaded 24 times
! Note : i note that i can start more than 1 x Copy which Thread ... not sure if it is safe :?:

p.s. Combobox have no Image while RES\*.ICO are not include
have fun
Jimmy

Tiger
Posts: 58
Joined: Mon Aug 31, 2015 11:28 am
Location: Taipei
Has thanked: 14 times
Been thanked: 12 times

Post by Tiger » Tue Feb 11, 2020 4:49 am

Hi Jimmy,

I got a problem when running the hbfm.exe ( HBFM033.zip) from win10 traditional chinese version , the error message is listed below

Error DBFNTX/1020 Data type error: COLOR1

Called from C_FMSETUP(198)
Called from MAIN(307)

I attached the msc_cpl.zip ... please check if the translation is ok or not ...
Attachments
MSC_CPL.ZIP
(1.25 KiB) Downloaded 11 times

User avatar
AUGE_OHR
Posts: 547
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 68 times
Been thanked: 121 times

Post by AUGE_OHR » Tue Feb 11, 2020 11:26 am

hi,

i can´t reproduce your Error Message

COLOR1 to COLOR14 are "N",9 and creation is after INIT() so it must work ...

Code: Select all

   SP_INIT()
   IF !FILE( cFile )
      C_FMSETUP( cFile )
   ENDIF
have you use a older Version before :?:
please delete FMSETUP.DBF and FMSETUP.FPT and try again

---

you also can check Registry HKEY_CURRENT_USER\Control Panel\Colors
these are Original Theme Color which are load when not use DarkMode.

---

thx for translation MSC_CPL into english Description
have fun
Jimmy

Post Reply