>TYPE   	D
>NAME   	reg1790.d
>CODE   	reg1790.cod
>BY     	@(#)$Author: Jessica $
>DATE   	@(#)$Date: 08-11-21 9:43 $
>VERSION	@(#)$Revision: 6 $
>ID     	24001

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

>TEXTINFO ROWS 13 SIZE 323
#id    value    flags    text
IDL_100  100  -  Dimensionen finns redan
IDL_101  101  -  Dimensionen saknas
IDL_102  102  -  Radera dimension
IDL_103  103  -  Spara påbörjad variant
IDL_104  104  -  Radera variant
IDL_105  105  -  Fel vid radering av post i register %1. Ec=%2
IDL_106  106  -  Längd måste anges
IDL_107  107  -  Kan inte hitta raden i listkontrollen
IDL_108  108  -  Fel vid selektering av rad %1
IDL_109  109  -  Spara dimension
IDL_110  110  -  Variantkoden måste innehålla %1 tecken
IDL_111  111  -  Radera %1
IDL_112  112  -  Får inte avslutas med punkt


>STACK ROWS 500 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     10    10   316   380 SBL	-	-	"-"	  0	"473 Dimensioner"

>FORM MAIN ROWS 6 SIZE 86 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  370 -	PhmZ	-	win4	-	""
WW 24037   18    6   20  300 -	P	-	win6	-	""
B3   137   68  318   15   55 -	TPhz	-	pbCancel	-	"cancel.bmp,Makul&era"
B3 24103   50  318   15   55 -	TPz	-	pbSave	-	"save.bmp,&Spara"
B3     2  269  318   15   55 -	xTPhwz	-	pbExit	-	"exit.bmp,St&äng"
TB 24191   39    6  247  307 -	P	-	tab2	-	"D&imension,&Utlandsbenämningar"

>FORMFILES MAIN 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 -	STHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	STHpfF	-	pbTool	-	""
FU  4071    0    0   15  368 -	pZ	-	-	-	""

>FORM win6 ROWS 2 SIZE 48 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3 24039    2    0   15   74 -	TPM	-	pbNewDim	-	"new.bmp,&Ny dimension"
B3 24040    2   78   15   74 -	TPM	-	pbChangeDim	-	"edit.bmp,Än&dra dimension"

>FORM tab2 ROWS 4 SIZE 4 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24192   48    2  190  301 -	P	-	win9	-	""
WW 24205   51    2  190  301 -	P	-	win11	-	""
WW 24215   12    2   32  303 -	P	-	win14	-	""
FR 24221   46    8    1  290 -	pZ	-	-	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win9 ROWS 2 SIZE 33 "Dimension"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 24204    3    4   76  293 -	pWZ	-	lcVariants	-	""
TB 24047   83    4  106  293 -	PZw	-	tab1	-	"&Variantkod,U&tlandsbenämningar"

>FORMFILES win9 ROWS 0
#Id	sp
>FORM tab1 ROWS 4 SIZE 4 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24186   13    2   16  287 -	P	-	win8	-	""
WW 24053   33    2   68  286 -	P	-	win7	-	""
FR   630   31    6    1  280 -	pZ	-	-	-	""
WW 24208   35    3   67  285 -	P	-	win12	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win7 ROWS 5 SIZE 69 "Variant"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24075    2   52   13  138 70A	P	-	edVariantLabel	#1795	""
T  24076    4    6   11   42 -	p	-	-	-	"Benämning:"
B3 24035   52    6   15   60 -	TPw	-	pbSaveRow	-	"save.bmp,&Spara rad"
B3  2210   52   70   15   60 -	TPhw	-	pbNewRow	-	"new.bmp,N&y rad"
B3 24044   52  134   15   60 -	TPw	-	pbDeleteRow	-	"del.bmp,&Ta bort rad"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM win8 ROWS 2 SIZE 13 "Huvud"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24187    2   52   13   60 -	PU	-	edVariant	#1793	""
T  24188    4    6   11   43 -	p	-	-	-	"Variantkod:"

>FORMFILES win8 ROWS 0
#Id	sp
>FORM lcVariants ROWS 2 SIZE 21 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24206    0    1   11   50 -	Hp	-	-	#1793	"Variantkod"
T  24207    0   51   11  132 -	Hp	-	-	#1795	"Benämning"

>FORMFILES lcVariants ROWS 1
#Id	sp
1790	r
>FORM win11 ROWS 4 SIZE 27 "Utlandsbeteckningar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 24228    4    7   52  288 -	PZ	-	lcDimForeignName	-	""
PB 24229   59    6   13   56 -	xP	-	pbDimForeignNew	-	"N&y..."
PB 24230   59   66   13   56 -	xP	-	pbDimForeignChange	-	"Än&dra..."
PB 24231   59  126   13   56 -	xP	-	pbDimForeignDelete	-	"Ta &bort"

>FORMFILES win11 ROWS 0
#Id	sp
>FORM win12 ROWS 4 SIZE 27 "Utlandbeteckning"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
PB 24233   52    3   13   56 -	xP	-	pbVarForeignNew	-	"N&y..."
PB 24234   52   63   13   56 -	xP	-	pbVarForeignChange	-	"Än&dra..."
PB 24235   52  123   13   56 -	xP	-	pbVarForeignDelete	-	"Ta &bort"
GR 24248    2    2   47  281 -	P	-	lcVarForeignName	-	""

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win14 ROWS 9 SIZE 63 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24217    4   46   13   62 -	PU	-	edDimension	#1710	""
D  24222    4  190   13  106 -	P	-	edName	#1711	""
D  24227   18   46   13   22 -	P	-	edLength	#1712	""
B3 24219    3  119   13    9 -	xTpfF	-	pbNextDimension	-	"arrowr.bmp"
B3 24220    3  129   13   15 -	TpfF	-	pbDimension	-	"seek.bmp"
T  24216    6    6   11   40 -	p	-	-	-	"Dimension:"
T  24223    6  150   11   39 -	p	-	-	-	"Benämning:"
T  24226   20    6   11   37 -	p	-	-	-	"Längd:"
B3 24218    3  109   13    9 -	xTpfF	-	pbPrevDimension	-	"arrowl.bmp"

>FORMFILES win14 ROWS 0
#Id	sp
>FORM lcDimForeignName ROWS 2 SIZE 19 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24238    1    1   11   40 -	Hp	-	-	#15174	"Språkkod"
T  24239    1   41   11   50 -	Hp	-	-	#15175	"Benämning"

>FORMFILES lcDimForeignName ROWS 1
#Id	sp
15170	r
>FORM lcVarForeignName ROWS 2 SIZE 19 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24249    0    1   11   40 -	Hp	-	-	#15174	"Språkkod"
T  24250    0   41   11   50 -	Hp	-	-	#15175	"Benämning"

>FORMFILES lcVarForeignName ROWS 1
#Id	sp
15170	r
>SOURCE
