>TYPE   	D
>NAME   	reg169.d
>CODE   	reg169.cod
>BY     	@(#)$Author: Peter $
>DATE   	@(#)$Date: 08-03-25 9:14 $
>VERSION	@(#)$Revision: 4 $
>ID     	7039

>FILES ROWS 0
#type id  name        dbtype mode autoload r0 r1 r2 r3 r4 r5 comment

>TEXTINFO ROWS 4 SIZE 67
#id    value    flags    text
IDL_100  100  -  Ordernr saknas
IDL_101  101  -  TO saknas
IDL_102  102  -  Radera huvudgrupp %1
IDL_103  103  -  Radera undergrupp %1


>STACK ROWS 100 SIZE 3000

>FONT ROWS 9
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
2   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
3   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
4   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
5   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"


>COLOR ROWS 16
#id color	comment
1   0x0        	""
2   0x808080   	""
3   0x80       	""
4   0x8080     	""
5   0x8000     	""
6   0x808000   	""
7   0x800000   	""
8   0x800080   	""
9   0xffffff   	""
A   0xc0c0c0   	""
B   0xff       	""
C   0xffff     	""
D   0xff00     	""
E   0xffff00   	""
F   0xff0000   	""
G   0xff00ff   	""


>BRUSH ROWS 5 SIZE 100
#id type	text
1   0	0xc0c0c0
2   1	pattern
3   2	tegel.bmp
5   4	0xff
6   5	0x0


>APPEVENTS ROWS 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     20    90   246   390 SBL	-	-	"-"	  0	"788 Projektgrupper"

>FORM MAIN ROWS 7 SIZE 111 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  384 -	PhmZ	-	win4	-	""
TB   124   18    4  184  382 -	PWZ	-	tab1	-	"&Projektgrupp,&Undergrupper"
B3    12  204    4   15   50 -	TPw	-	pbSave	-	"save.bmp,&Spara"
B3  2210  204   58   15   50 -	xTPhw	-	pbNew	-	"new.bmp,&Ny"
B3   137  204  112   15   50 -	xTPhw	-	pbDelete	-	"del.bmp,&Ta bort"
B3  4109  204  196   15   60 -	xTDPhw	-	pbGetTemplate	-	"copy.bmp,&Hämta mall"
B3     2  204  336   15   50 -	xTPhwz	-	pbCancel	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 1
#Id	sp
169	-
>FORM tab1 ROWS 4 SIZE 4 "623 - tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   627   12    2   32  376 -	Ph	-	win5	-	""
WW   680   48    2  132  378 -	P	-	win1	-	""
WW   682   48    2  134  378 -	HPWZ	-	win2	-	""
FR   630   46    4    1  374 -	pZ	-	-	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 13 SIZE 94 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB  4111   12   66   10   36 -	RP	-	rbOrder	-	"Order"
D   4114   24   66   13   60 -	PU	-	edOrder	#16925	""
XB  4116   50   66   10   96 -	RP	-	xbCloseGroup	#16921	"Projektgrupp avslutad"
DP  4118   66   66   13   56 D8	P	-	dpCloseDate	#16922	""
D   2212   80   66   13  116 -	P	-	edINFO1	#16911	""
D    105   94   66   13  116 -	P	-	edINFO2	#16912	""
T   4113   26   16   11   46 -	p	-	-	-	"Ordernr:"
T   1170   96   16   11   46 -	p	-	-	-	"Info 2:"
B3  4115   24  128   13   15 -	SxTpfF	-	pbOrder	-	"seek.bmp"
T   1169   82   16   11   46 -	p	-	-	-	"Info 1:"
RB  4112   12  106   10   28 -	RP	-	rbTO	-	"TO"
T   4119   68   16   11   48 -	p	-	-	-	"Avslutsdatum:"
GB  4117    4    6   40  176 -	p	-	-	-	"Huvudorder"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win2 ROWS 7 SIZE 33 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  4082   14    2  100  184 -	PW	-	lcMainGroups	-	""
GR  4083   14  192  100  184 -	PWZ	-	lcSubGroups	-	""
T   4084    2    2   11  184 -	p	C9D6F7	txLabel1	-	" Huvudgrupper"
T   4085    2  192   11  184 -	pZ	C9D6F7	txLabel2	-	" Undergrupper"
SP  4087    2  188  130    2 -	pW	-	spSplit	-	""
WW  4088  118    4   14  184 -	Pw	-	win8	-	""
WW  4089  118  194   14  184 -	PZw	-	win9	-	""

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win9 ROWS 3 SIZE 42 "win9"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
PB  4093    0    0   13   58 -	xP	-	pbNewSubGroup	-	"Ny &undergrupp"
PB  4094    0   62   13   58 -	xP	-	pbChangeSubGroup	-	"Än&dra grupp"
PB  4095    0  124   13   58 -	xP	-	pbDeleteSubGroup	-	"Rad&era grupp"

>FORMFILES win9 ROWS 0
#Id	sp
>FORM win4 ROWS 23 SIZE 23 "Tool"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
FR  1990    0    0   13    1 -	Hp	-	-	-	""
FR  1991    0    0   13    1 -	Hp	-	-	-	""
FR  1992    0    0   13    1 -	Hp	-	-	-	""
FR  1993    0    0   13    1 -	Hp	-	-	-	""
FR  1994    0    0   13    1 -	Hp	-	-	-	""
FR  1995    0    0   13    1 -	Hp	-	-	-	""
FR  1996    0    0   13    1 -	Hp	-	-	-	""
B3  2000    0    8   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
FU  4071    0    0   15  384 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 6 SIZE 64 "head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    103    4   66   13   60 -	PU	-	edCode	#16901	""
D    108   18   66   13  128 -	P	-	edName	#16905	""
B3  4072    4  128   13   15 -	SxTpfF	-	pbCode	-	"seek.bmp"
B3  4105   18  196   13   15 -	SxTpfF	-	pbName	-	"seek.bmp"
B3  4106    4    0   13   64 -	TpfFh	-	pbKeyCode	-	"key.bmp,&Projektgrupp"
B3  4107   18    0   13   64 -	TpfFh	-	pbKeyName	-	"nokey.bmp,&Beteckning"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM lcUtlbet ROWS 2 SIZE 20 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2215    1    1   11   34 -	Hp	-	-	#15153	"Språkkod"
T   2216    0   32   11  184 -	Hp	-	-	#15155	"Beteckning"

>FORM win8 ROWS 3 SIZE 42 "win8"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
PB  4090    0    0   13   58 -	xP	-	pbNewMainGroup	-	"N&y huvudgrupp"
PB  4091    0   62   13   58 -	xP	-	pbChangeMainGroup	-	"Än&dra grupp"
PB  4092    0  124   13   58 -	xP	-	pbDeleteMainGroup	-	"Rad&era grupp"

>FORMFILES win8 ROWS 0
#Id	sp
>FORM lcMainGroups ROWS 4 SIZE 36 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4096    1    1   11   48 -	Hph	-	-	#16952	"Huvudgrupp"
T   4097    1   49   11   62 -	Hp	-	-	#16955	"Beteckning"
T   4098    1  111   11   30 -	Hp	-	-	#16956	"Info 1"
T   4099    1  141   11   30 -	Hp	-	-	#16957	"Info 2"

>FORMFILES lcMainGroups ROWS 1
#Id	sp
16950	r
>FORM lcSubGroups ROWS 5 SIZE 47 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4110    1  171   11    0 -	Hp	-	-	#16952	"Huvudgrupp"
T   4100    1    1   11   48 -	Hph	-	-	#16953	"Undergrupp"
T   4101    1   49   11   62 -	Hp	-	-	#16955	"Beteckning"
T   4102    1  111   11   30 -	Hp	-	-	#16956	"Info 1"
T   4103    1  141   11   30 -	Hp	-	-	#16957	"Info 2"

>FORMFILES lcSubGroups ROWS 1
#Id	sp
16950	r
>SOURCE
