Paradox Community

Items in pnews.paradox-programming

Subject:Re: TableFrame or ListBox
Date:7 Jul 2022 04:51:42 -0400
From:"Kevin" <shcsbaker@gmail.com>
Newsgroups:pnews.paradox-programming

Jure
THANKS!!

modridirkac <jure.zorko@gmail.com> wrote:
>Hm, yes.
>
>proc padString(s string, l smallint) string
>   if s.size() > l then
>	return(s.SubStr(1,l)
>   else
>     return(s+fill(" ",l-s.size() ) )
>   endIf
>endProc
>
>var q query
>	 TCtmp TCursor
>endVar;
>First get your data:q = query
>
>     :db:xyz.db | Col1 | Col2 | Col3 |
>                | Check | Check | Check |
>
>endQuery
>q.ExecuteQBE(TCtmp)
>
>; now put it into list
>myList.list.list.selection = TCtmp.nRecords()
>scan TCtmp:
>
>    myList.list.list.selection = TCtmp.recNo()
>    myList.list.list.value =  padString(TCtmp."Col1",11) + "| "
>                             +padString(TCtmp."Col2",7) + "| "
>                             +padString(TCtmp."Col3",8)
>endScan
>
>Jure
>
>>
>> Jure,
>> Thanks!  For the padding, I need to pull the data from a db. I trying
to
>> Pad each column with a specific number of characters.  "Column" 1 = max
 
>> 10
>> Characters + space | space
>> "Column" 2 = max 6 Characters + space | space
>> "Column" 3 = max 8 Characters
>>
>> the listbox would look like:
>> 12/10/2021 | 123456 | 12345678
>> 12/11/2021 | 1234   | 12345
>> 01/01/2022 | 12345  | 12
>>
>> Is this possible?
>>
>> modridirkac <jure.zorko@gmail.com> wrote:
>>> ------------phWsru9JzVF5noLndtr7Xt
>>>
>>>> I need to know if it's possible to either have a tableframe to display
>>
>>>> fields only (the user can select a row, but not change anything)
>>>
>>> On a form:
>>> Menu  Format - Data model, right click on table and select Read only.
>>>
>>>
>>>> can create how to use a listbox with a fixed font and padding to
>>>> simulate a multicolumn listbox.
>>>
>>> Yes, you can pad, but with spaces, not tabs.
>>> Just one trick, rename that default name #List6 to "list".
>>> And then use
>>> 	myList.list.list.selection = 1
>>> 	myList.list.list.value = "a  a"
>>> 	myList.list.list.selection = 2
>>> 	myList.list.list.value = "b  b"
>>>
>>>
>>> Jure
>>> ------------phWsru9JzVF5noLndtr7Xt
>>
>
>
>-- 
>Using Opera's mail client: http://www.opera.com/mail/


Copyright © 2004 thedbcommunity.com