| View previous topic :: View next topic |
| Author |
Message |
Vic D'Elfant Past Contributor


Joined: 26 Jun 2002 Posts: 673 Location: The Netherlands
|
Posted: Fri Oct 03, 2003 8:04 am Post subject: Table element |
|
|
Hi all,
is there anyone who is able to create a dll which can make tables like this:
The capability to expand/collaps certain gourps of items isn't needed.
Guess where I need this table element for
Greetings,
Vic _________________ phpBB Development Team |
|
| Back to top |
|
 |
jules Professional Member


Joined: 14 Sep 2001 Posts: 1043 Location: Cumbria, UK
|
Posted: Fri Oct 03, 2003 8:58 am Post subject: |
|
|
Hmm. Isn't this cheating?  _________________ The Tech Pro
www.tech-pro.net |
|
| Back to top |
|
 |
Skit3000 Admin Team

Joined: 11 May 2002 Posts: 2166 Location: The Netherlands
|
|
| Back to top |
|
 |
CodeScript Moderator Team

Joined: 08 Jun 2003 Posts: 1060 Location: India
|
Posted: Fri Oct 03, 2003 10:19 am Post subject: |
|
|
I don't understand fully well what you are talking I am not drunk
I think vic is talking about integrating a treeview with list view(table in VDS) element
| Vic wrote: | | Guess where I need this table element for |
Dialog Designer Ofcourse ?? _________________ Regards
- CodeScript
Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
 |
Skit3000 Admin Team

Joined: 11 May 2002 Posts: 2166 Location: The Netherlands
|
|
| Back to top |
|
 |
Vic D'Elfant Past Contributor


Joined: 26 Jun 2002 Posts: 673 Location: The Netherlands
|
Posted: Fri Oct 03, 2003 12:33 pm Post subject: |
|
|
Jep, I want to use it for the new DD
Fast thinking of you guys
Vic _________________ phpBB Development Team |
|
| Back to top |
|
 |
Vic D'Elfant Past Contributor


Joined: 26 Jun 2002 Posts: 673 Location: The Netherlands
|
Posted: Fri Oct 03, 2003 12:38 pm Post subject: |
|
|
Could any of the dll-developers perhaps create a dll for the delphi-component?
The developer will get a place in the 'About' box
Thanks in advance,
Vic _________________ phpBB Development Team |
|
| Back to top |
|
 |
PGWARE Web Host

Joined: 29 Dec 2001 Posts: 1566
|
Posted: Fri Oct 03, 2003 1:17 pm Post subject: |
|
|
| vdsobj has a table element already in it, but it doesn't support collapsable items, nor does it support placing other objects inside the cell like your example above with a color combo embedded in the table. |
|
| Back to top |
|
 |
Garrett Moderator Team
Joined: 04 Oct 2001 Posts: 2149 Location: A House
|
Posted: Fri Oct 03, 2003 6:38 pm Post subject: |
|
|
What about the sstreeview.dll?, by William Weckel (MIA) Might that
be of any help for you?
-Garrett _________________ 'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
 |
Vic D'Elfant Past Contributor


Joined: 26 Jun 2002 Posts: 673 Location: The Netherlands
|
Posted: Sat Oct 04, 2003 12:16 pm Post subject: |
|
|
It is just all about that capability to insert combos and buttons in a cell
Greetings,
Vic _________________ phpBB Development Team |
|
| Back to top |
|
 |
Skit3000 Admin Team

Joined: 11 May 2002 Posts: 2166 Location: The Netherlands
|
Posted: Sat Oct 04, 2003 3:14 pm Post subject: |
|
|
Is this code any of your use?
| Code: | #define command,TableEdit
DIALOG CREATE,Property Editor,-1,0,299,304
DIALOG ADD,TABLE,TABLE1,5,5,290,265,Name[80]|Value[205],,CLICK
# Use the TableEdit after the DIALOG ADD command, so that the TABs will be right...
TableEdit Table1
DIALOG ADD,BUTTON,BUTTON1,275,195,100,25,View output
DIALOG SHOW
list add,table1,Name:@tab()Just a name...
list add,table1,-
list add,table1,Top:@tab()10
list add,table1,Left:@tab()20
list add,table1,Width:@tab()300
list add,table1,Height:@tab()200
list add,table1,-
list add,table1,Value:@tab()A value?!
list add,table1,Tooltip:@tab()Hi there... ^_^
list add,table1,-
list add,table1,Style 1:@tab()READONLY
list add,table1,Style 2:@tab()WRAP
list add,table1,Style 3:@tab()MULTI
list add,table1,Style 4:@tab()CLICK
list add,table1,Style 5:@tab()DBLCLICK
list add,table1,Style 5:@tab()STYLE1
:Evloop
wait event,0.1
goto @event()
:Timer
TableEdit Table1
goto Evloop
:Table1CLICK
TableEdit Table1
goto Evloop
:Button1BUTTON
info @text(Table1)
goto Evloop
:Close
exit
# --- INCLUDE THIS IN YOUR SCRIPT --- #
:TableEdit
%%Table = %1
if @unequal(%%TableEdit1,Exists)
DIALOG ADD,EDIT,TABLEEDIT1,999,999,151,18
DIALOG ADD,BUTTON,TABLEEDIT2,1,1,0,0,BUTTON1,,DEFAULT
%%TempGrid = @sendmsg(@winexists(~%%Table),@sum($1000,54),0,$21)
%%TableEdit1 = Exists
end
if @equal(@index(%%Table),"-1")
dialog hide,TABLEEDIT1
exit
else
if @equal(@focus(),%%Table)
dialog show,TABLEEDIT1
end
end
if @unequal(%%Index,@index(%%Table))
if @unequal(@dlgtext(TABLEEDIT1),%%Value)
%%Fieldsep = @fsep()
option fieldsep,@tab()
parse "%%Name",@item(%%Table)
option fieldsep,%%Fieldsep
%%Temp = @index(%%Table)
if @greater(%%Index,0)
list seek,%%Table,%%Index
end
%%Value = @dlgtext(TABLEEDIT1)
list put,%%Table,%%Name@tab()%%Value
if @greater(%%Index,0)
list seek,%%Table,%%Index
end
end
end
%%ColumnWidth1 = @sendmsg(@winexists(~%%Table),@sum($1000,29),0,0)
%%ColumnWidth2 = @sendmsg(@winexists(~%%Table),@sum($1000,29),1,0)
%%Index = @index(%%Table)
%%TopListItem = @sendmsg(@winexists(~%%Table),@sum($1000,39),0,0)
%%Top = @sum(@dlgpos(%%Table,T),@prod(@sum(%%Index,-%%TopListItem,1),17),3)
%%Left = @sum(@dlgpos(%%Table,L),%%ColumnWidth1,3)
%%Width = @sum(%%ColumnWidth2,2)
if @greater(@sum(%%ColumnWidth1,%%Width,20),@dlgpos(%%Table,W))
if @greater(@count(%%Table),@sendmsg(@winexists(~%%Table),@sum($1000,40),0,0))
%%Width = @sum(@dlgpos(%%Table,W),-%%ColumnWidth1,-21)
else
%%Width = @sum(@dlgpos(%%Table,W),-%%ColumnWidth1,-5)
end
end
if @not(@greater(@sum(%%Index,-%%TopListItem,1),@sendmsg(@winexists(~%%Table),@sum($1000,40),0,0)))
if @greater(@sum(%%Index,-%%TopListItem,1),0)
dialog setpos,TABLEEDIT1,%%Top,%%Left,%%Width
if @equal(@focus(),%%Table)
%%Fieldsep = @fsep()
option fieldsep,@tab()
parse ";%%Value",@item(%%Table)
dialog set,TABLEEDIT1,%%Value
option fieldsep,%%Fieldsep
if @equal(%2,FOCUS)
dialog show,TABLEEDIT1
if @equal(%%Exit,TRUE)
dialog focus,TABLEEDIT1
%%Exit = False
else
dialog focus,TABLEEDIT1
window send,@winexists(~TABLEEDIT1),@key(END)
end
end
else
if @unequal(@focus(),TABLEEDIT1)
dialog hide,TABLEEDIT1
%%Fieldsep = @fsep()
option fieldsep,@tab()
parse "%%Name",@item(%%Table)
option fieldsep,%%Fieldsep
%%Value = @dlgtext(TABLEEDIT1)
list put,%%Table,%%Name@tab()%%Value
end
end
else
dialog hide,TABLEEDIT1
end
else
dialog hide,TABLEEDIT1
end
exit
:TableEdit2BUTTON
if @equal(@focus(),TABLEEDIT1)
dialog focus,%%Table
%%Fieldsep = @fsep()
option fieldsep,@tab()
parse "%%Name",@item(%%Table)
option fieldsep,%%Fieldsep
%%Value = @dlgtext(TABLEEDIT1)
if @unequal(@trim(%%Value),)
list put,%%Table,%%Name@tab()%%Value
else
list put,%%Table,%%Name@tab()@fill(5," ")@tab()
end
%%Exit = TRUE
end
goto Evloop |
_________________ [ Add autocomplete functionality to your VDS IDE windows! ]
Voor Nederlandse beginners met VDS: bekijk ook eens deze tutorial! |
|
| Back to top |
|
 |
Vic D'Elfant Past Contributor


Joined: 26 Jun 2002 Posts: 673 Location: The Netherlands
|
Posted: Sat Oct 04, 2003 3:29 pm Post subject: |
|
|
Yeah! Thanks!
Vic _________________ phpBB Development Team |
|
| Back to top |
|
 |
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You can attach files in this forum You can download files in this forum
|
|