NTK - Main Forum  »   Clipper Loads Program

Hi
Was trying to use "NTK_PutClipbText()" to move data around active read arrays.
- seemed tough, until I found "NTK_SetGetValue()"
- wow, now it easy!

I can wait to learn all the NTK_ commands
(JN when are you going to finish the help file?)

I now need to save my edited memo field to a text file. Does anyone have (or could tell me where to find) a sample of code with typical "file" "save-as" directory browser / file name get ?

bye Al.

Wilson thanks for this. I will have some fun tonight.

also

I have had success copying my selected 'array gets' into my 'memo get' (that's working nicely now). Is there a way to instruct the memo field to paint a horizontal scroll bar rather than wrapping long lines - I can make my get box bigger but would rather no?

another one (sorry for all this)

When I write the memo text to a text file called 'invoices.cdf' I'd like to help the operator by launching 'windows notepad' (with the output file open). I'm trying:

DoRun("NOTEPAD.EXE", "invoices.cdf")

without success

any thoughts?

cheers
Al

Hi Al,

Glad to see you're coming along with NTK.

>I have had success copying my selected 'array gets' into my 'memo get' (that's working nicely now). Is
>there a way to instruct the memo field to paint a horizontal scroll bar rather than wrapping long lines
>I can make my get box bigger but would rather no?

I think you should add the WS_HSCROLL to your memo style.


>I'm finding notepad opens great with
>run("NOTEPAD.EXE", cFile )

NTK_Run() or NTK_ShellExecute() work both very well.
Personally, my favorite is the RUN command. (NTKRAD.PDF, chap 0.36)

e.g.
RUN ( cMyReport ) AND WAIT


Hope it helps.

Cheers,
Ab.

Hi each

Ab - WS_HSCROLL works beautifully. Thanks for pointing-out this very basic stuff

Luckily my 'petzold' book has just arrive - wow (it's enormous!!)
When I've read (a bit of it) I should be better able to discuss win32 programming also (hopefully) produce some better code.

Wilson - run( "NOTEPAD.EXE", cFile )is working just great (thanks). I'll concentrate on learning some more basics before I look at these other methods.

I would like to add that (being just a few-days-in) I'm really enjoying using NTK and I really admire the work which that has been done in producing this library of very good and powerful functions.

I'm not sure if all win32 programming platforms are this was. However, mistakes in clipper 'annoyingly' halt the program 'with the dreaded red box'.
Where as as my mistakes in NTK (there's lots just now) 'invisibly' just fail to work, leaving all the other bits still running!! (this is very encouraging for a new starter like me!)

thanks everyone

Hi everyone,

To Alastair:
Al, thank you very much for your kind words about NTK. I do appreciate.


To All:
And yes, NTK is the result of many years of big effort - not only from me as the main author, but also from other NTK Team members: Sylvain, Marco and Jne (even if sometimes life is forcing us to go different ways) who have spent lot of their spare time testing, debugging and writting the basic NTKCore and NTKRad tutorials, and so on...

Also,
I don't forget the very first NTK members/donators like Ab or Dieter for their precious support, ideas and also for their smart contribs.

Your comments are welcome, your support and encouragments too.

Cheers,
Jean-Noël.

Hi Al,


>Can I remove an item from the 'CAPTION' array (aLbChoices) whilst the READ is live. If I can what.s the best procedure?

I've exhumed the followings from my own libs:

 
function LB_RemoveItem( nGetID, aLbChoices, nItemIdx )
// Retrieve the handle to the list box
local hWndLB := NTK_GiveGetHandle(aGetList, nGetID)

// Remove the item from the NTK/xHarbour array
aDel(aLbChoices, nItemIdx)
aSize(aLbChoices, Len(aLbChoices)-1)


// Tell Windows to delete the concerned item in the list box.
// (Note: Win32 LB arrays are always zero based)
NTK_SendMessage( hWndLB, LB_DELETESTRING, nItemIdx-1, 0)

Return( aLbChoices )


function LB_InsertItem( nGetID, aLbChoices, nItemIdx, cItem )
// Retrieve the handle to the list box
local hWndLB := NTK_GiveGetHandle(aGetList, nGetID)

// Insert new item to the NTK/xHarbour array
aSize(aLbChoices, Len(aLbChoices)+1)
aIns(aLbChoices, cItem)


// Tell Windows to insert the new item in the list box.
// (Note: Win32 LB arrays are always zero based)
NTK_SendMessage( hWndLB, LB_INSERTSTRING, nItemIdx-1, @cItem)

Return( aLbChoices )

////////////////////////////////////////////////////////////////////////////

Use this for removing an item:

// { "Plum", "Banana", "Apple", "Peach" } // , "Apricot" }
aLbChoices := LB_RemoveItem( ID_GETLBOX6, aLbChoices, 5 )
REFRESH GET ID ID_GETLBOX6

or this for inserting a new item:

// { "Plum", "Banana", "Coconut", "Apple", "Peach" }
aLbChoices := LB_InsertItem( ID_GETLBOX6, aLbChoices, 3, "Coconut" )
REFRESH GET ID ID_GETLBOX6

Hope it helps.

Ab.

Al,
Congratulation for buying your Petzold book. IMO, you won't regret your purchase, it's really worth its weight (in gold)!
More seriously, this book is a must and a real gold mine for everyone wanting to go deeper in Win32 world.

Happy bedtime reading.
JN

Hi Ab,

>I am very happy with our AdoRddNtk. Hope not speaking too soon, but the mySql remote access seems to work
>as expected and even more! I just need to complete the Maintainance module in order to get rid
>definitively of phpMyAdmin (very useful until now, I must admit).

That's good news - feel free to keep us in touch with your lastest news about this technology.
(Maybe I will have to use it in some future developments)

Cheers,
Jean-Noël


P.S. Never say never.

Hi Al,

I don't think you're experimenting any Windows OS issues. I would opt for cpu resources hogging, due to a long treatment. Keep in mind Windows is a multitask system. Did you try to put something like IF NTK_PeekMessage(...); NTK_GetMessage(...) or simply NtkInkey(-1) in your 'Do While' loop? (just to tell Windows: 'hey, I am still a living process!')
Cheers,
Ab

Hi everyone

My NTK app is growing nicely..

However, I'm going around in circles with one item.

Can anyone suggest where i need to look...

My app is cloned from "getdemo" (I used it's main page CREATE WINDOW etc)

I've added my own buttons and written a nice data capture function (Which is working nicely).


However, because my data takes some time to load (was causing "Not Responding") I wanted to create a pop-up a child window showing progress (and to see if I could implement tgauge progress...)

Only, I'm not quite there yet!

When NTK_updatewindow()runs it duplicates my main window buttons in both the main window and also in my new child window....?

I have checked the syntax and names of CREATE WINDOW - ON INIT and ON PAINT, which seem correct and unique.

What do I do in order to separate their refresh content.... ???

ID and INSTANCE parameters remain unspecified in each CREATE WINDOW call. is this right??

(main window)
CREATE WINDOW hWndP ;
TITLE "FASTLANE - Sagemake11" ;
AT 10,10 SIZE 800,600 ;
ON INIT DoInit() ;
ON PAINT DoRePaint() ;
ON EXIT DoExit() ;
ON MSG DoHandleMsg()


(child window)
CREATE WINDOW hWndPG ;
CHILD OF hWndP ;
TITLE "test" ;
AT 0,0 ;
SIZE 630,250 ;
ON PAINT doChildPaint() ;
ON EXIT myWndExit()


thanks if you suggest where I need to look
Al

Hey Guys

When I'm GETing an array list

How do I know when one or more selections have been made... So I can enable/disable one of my buttons?

Again, sorry for these basic questions. My learning curve is quite a long one!

regards
Al

Good Morning Jn

Thank you for this helpfull feedback.

Yes, I am using a listbox GET (as you've presumed).

I am also using NTK_EnableBtnID() to control my button avaliability.

My question now is:

How, whilst the user is selecting (or de-selecting) from a 300 array element listbox GET, do I monitor "aVar"?

I need to be able to trigger a routine from keyboard or mouse activity whilst reading this GET....
If we dont monitor the keyboard & mouse. How can I set a shared process running to watch aVar?

Al

Hi Jn
Thanks for this
You've guided me in another direction

I was busy writing some tests in my message handler, trying to workout which process I was in and which WM_? to look at (WM_KeyDown looked hopeful??)

but

OnEvent sounds much more like the one I need ;-)

bye
Al

Hi Al,


sorry JN, don't want to interfer your discussion, but like Al
I experimented the same situation a while ago. Here is what I wrote:

 
FUNCTION LB_GetSelItem(hWndLB)
local nItemIdx, nItemMax, nItemLen, cItemBuf
local nItemSel, aItemSel, xRetItem

aItemSel := {}
nItemMax := NTK_SendMessage( hWndLB, LB_GETCOUNT, 0, 0 )
for nItemIdx := 1 TO nItemMax
    // (Note: Win32 LB arrays are always zero based)
    xItemRet := NTK_SendMessage( hWndLB, LB_GETSEL, nItemIdx-1, 0 )
    if xItemRet # 0
       nItemLen := NTK_SendMessage( hWndLB, LB_GETTEXTLEN, nItemIdx-1, 0 )
       cItemBuf := SPACE(nItemLen)
       NTK_SendMessage( hWndLB, LB_GETTEXT, nItemIdx-1, @cItemBuf )
       AADD( aItemSel, STRTRAN(cItemBuf, chr(0), "") ) // cut C NULL strings
    endif
next

Return( aItemSel )


FUNCTION LB_EventCatch(nGetID)
local nI
local nEvCode
local hWndLB := NTK_GiveGetHandle(aGetList, nGetID)
local aItemSel := {}
local cOutputTest := ""

nEvCode := NTK_LastGetEvent()

if nEvCode==LBN_SELCHANGE  // .OR. nEvCode==LBN_DBLCLK
   // Retrieves all selected items in the LB
   aItemSel :=  LB_GetSelItem(hWndLB)
 
/*
 * Uncomment the following code to show the selected item list.
   for nI := 1 TO LEN(aItemSel)
       cOutputTest := cOutputTest + aItemSel[nI] +CR
   next

   if empty(aItemSel)
      NTK_MessageBox( , "None", "Selected Item(s):", MB_OK)
   else
      NTK_MessageBox( , cOutputTest, "Selected Item(s):", MB_OK)
   endif
*/
endif

Return( .T. )

Of course, don't forget to add something like 'ONEVENT LB_EventCatch(nYourGetID)' to your GET declaration.

Hope you'll find it useful.
Ab

Hi Guys,

To Ab:
>sorry JN, don't want to interfer your discussion, but like Al
Interfer? Are you joking? Ab, you're always welcome young IT man!
Your answers are often relevant. Furthermore, as I am currently very busy with my work, I do really appreciate that you take the time to share your experience on our newsgroup.

P.S. very nice code, congratulations!


To Al:
>I have adapted these lines into my program and now have my list-box working exactly how wanted - >GREAT!
That's really great - U are progressing by leaps and bounds...


Bye for now.
JN

Hi Al,

In the new NTKDIC, I resize a ListBox with this method

// Parameters : Handleobject, X,Y, Width, Height, Flag repaint )
NTK_MoveWindow( NTK_GetDlgItem(hWnd, GET_LISTBOX), X, Y, (NewSizeX-DefSizeX+WidthListBox), HeightListBox, .T. ))

You must call this function before Repaint your window.
You can use this method with any object.

Create a function for replace and resize all your objects of your window and call it when your window is resize.

I hope that's help you.

Markus II

Thanks Jn

NTK_SendMessage( hWndLB, LB_SETHORIZONTALEXTENT, nWidth, 0 )

great fix! - it turns-on the illusive horizonatal scroll bar in ListBox Gets (with WS_HSCROLL STYLE)


....I did think I would spend until xmas learning NTKRAD - not a chance!
Everyday I'm dipping into NTKCORE and reading MSDN forums (and loving every bit) - thanks guys

bye
Al

Hi all,


I have a NtkTBrowse() question...
(I've looked but haven't found a solution in help files or sample programs.)


I would like to color the background of more than one NtkTBrowse rows when the customer is the same as the one in the selected cell. Then, clear the colors when the selected cell changes.


I am calling my function like this:



oCol[X]:bgColor := {|| mysetbgcolor( oB_WB ) }





FUNCTION mysetbgcolor( oB_WB )
LOCAL bgcolor
LOCAL aCellData := oB_WB:getCellData() // getCellData(nRow,nCol) -> {xData , Picture}
LOCAL xCellvalue // cell content

xCellValue := aCellData[1] // content of cell curently being given color to be compared with selected cell customer

bgcolor := {|| IIF((oB_WB:alias)->customer == xCellvalue, NTK_RGB(255,0,0), ntk_rgb(0,0,255)) }

RETURN bgcolor




This function not working. It's colouring the complete column (not the ones where customer = selected cell customer). I guess (oB_WB:alias)->customer is looking at the cell being painted not the cell which is selected.

Can I use oB_WB: nCurRec???

I look forward to your useful guidance
Thanks
Al

Oh. how do you guys paste your code into this forum the way you do???

Hi all,

December 2010 has been a good learning period and lots of progress has been made (99% thanks to JN).

I am now developing a user interface using the powerful NtkTBrowse class for one module of the project, which is called 'workbook' (WB).

1. I am doing quite a lot of database interrogation when a cell is selected (in-order to change background colours etc..)
Unfortunately this makes scroll bar movements slow (when bigger databases are viewed).
Is there any way to avoid changing selected cell (i.e. freeze selection) when a scroll bar movement is undertaken.... So we only change cell selection with a mouse click or arrow movement??

2. WB database is shared by several users. Some users would like to view different groups within the database.
Setting-up stared index files with numerous filter-on configurations will be too complicated!
I would like to either set individual NTKBrowse row heights (0 = hide data) or else use a logical array which tells NtkTBrowse if a row is visible....... is this possible??


Happy new year and best wishes for 2011.

Al

To all: Happy new year and best wishes, too!


To Al:

It's always a pleasure to hear that my small contribution to NTK-Project is useful for someone

Yes, I'm aware of this problem. Jn sent me a private e-mail a few days ago. As I told him I can't work on this for now, because I'm very busy with my job at my company. But don't worry, I will probe the PromptMenu source code as soon as possible.

Cheers,
Ab

Hi guys

I've got a quickie - ( Jn knows what this means ;-) )


My daybook app displays a single list of drivers using NtkTBrowse.
(This is works well)

However, I'm trying to expand this to show up to 3 columns(one at a time)... (Switching the viewed by clicking column heading).


I've added two more colums to make the tbrowse hold three
and I've set nubHeadBlock to call a function to (hopefuly) change the selected cell.
This works, but only when all three colmns are small enough to be visable!!

The moment I widen any column to show only 1 visable, moving to the next column, using oB:right(), gets stuck!!



My thought, to make this work and keep all three columns visable, is to use "oB:SetColWidth" and to make unselected columns very narrow.



I tried calling oB:SetColumnWidth( nColPos, nWidth)

but every time I get an error saying:

Variable does not exist: OBRW
Called from NTKTBROWSE:SETCOLWIDTH(2494)


Does anyone have any suggestions of how I can overcome this or a better way to fulfil what I'm trying to do her??


(also Ab & Jn, this version of PrompMnu works great - thanks)


A+
Al


code lang="xbase"
STATIC FUNCTION OnClickSwitchColumn(oB)
LOCAL nThisCol := oB:ColPos

// make all three narrow so visable
oB:SetColWidth( 1, 2)
oB:SetColWidth( 2, 2)
oB:SetColWidth( 3, 2)

oB:Configure()
oB:RefreshAll()

// move selected column right (or back to 1)and widen selected column
If nThiscol >= 03
oB:Panhome()
oB:SetColWidth( 1, 22)
Else
oB:Right()
oB:SetColWidth( nThiscol+1, 22)
EndIf

oB:Configure()
oB:RefreshAll()

RETURN(Nil)
/code

Hi Al,

hmmm sounds like the oBRW var used to intialize your Tbrowse object is not existing anymore when you invoke the setcolwidth() method? Did you try to declare oBRW Static or Private?

regards,
Ab





It works fine for me.

STATIC FUNCTION OnClickSwitchColumn(oB)
LOCAL nThisCol := oB:ColPos

// some code here . . .

RETURN(Nil)

I think you forgot to check the 'SyntaxHighlighter' option in place of default 'Html' option.

For i := 1 to 10
   ? i
NEXT

Hi Guys!

Please, *** do not search anymore for this mysterious 'oBRW' variable!***
This is my mistake - I forgot to remove or comment a couple lines of testing code last time I made improvements in NTKBRWSE.LIB.
I'm a little bit confuse. So, I apologise for the inconvenient.

However, the issue is now fixed - the ::SetColWidth() method is working fine again!
Feel free to connect to the NTKWIP space, a new fixed NTKBRWSE.LIB is available for download.

Also, take advantage of this slight counter-time for downloading the whole update (libs+includes). Do not hesitate to glance at [http://www.ntkproject.com/ntkwip/lastestversion/changelog.txt] in order to learn more about lastest NTK-Pro fixes and improvements.

Kind regards,
JN

Hi Guys,

Can anyone provide me with the detail of the specification of array: 'aCellData', (returned by oB:getcelldata())?

I'd like to detect the presence of :Bitmap in the cell....

thanks
Alastair