home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri Kaikille K-CD 2008 #18 / KCD200818.ISO / CD.EXE / 0 / RCDATA / TNYHOVEDFORM / TNYHOVEDFORM.txt < prev   
Text File  |  2008-06-16  |  16KB  |  645 lines
  1. object NyHovedForm: TNyHovedForm
  2.   Left = 214
  3.   Top = 230
  4.   BorderStyle = bsNone
  5.   Caption = 'NyHovedForm'
  6.   ClientHeight = 512
  7.   ClientWidth = 800
  8.   Color = 13697023
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'Verdana'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Scaled = False
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 120
  18.   TextHeight = 13
  19.   object Logo: TImage
  20.     Left = 0
  21.     Top = 0
  22.     Width = 180
  23.     Height = 81
  24.     Picture.Data = {<image000.TPNGObject>}
  25.   end
  26.   object SvenskLogo: TImage
  27.     Left = 0
  28.     Top = 0
  29.     Width = 180
  30.     Height = 81
  31.     Picture.Data = {<image001.TPNGObject>}
  32.     Visible = False
  33.   end
  34.   object KProgramKnap: TLMDMMButton
  35.     Left = 0
  36.     Top = 96
  37.     Width = 160
  38.     Height = 32
  39.     Cursor = crHandPoint
  40.     Caption = 'AKTUELT'
  41.     ParentFont = False
  42.     OnClick = KProgramKnapClick
  43.     OnMouseEnter = KnapMouseEnter
  44.     OnMouseExit = KnapMouseExit
  45.     Font.Charset = DEFAULT_CHARSET
  46.     Font.Color = clWhite
  47.     Font.Height = -13
  48.     Font.Name = 'Verdana'
  49.     Font.Style = []
  50.     AllowMouseOver = False
  51.     ButtonFaceImageList = Knapper
  52.     CaptionDown = 0
  53.     ForceTransparent = False
  54.     ButtonFaceIndicesNew2 = {
  55.       0000000000000000000000000000000000000000000000000000000000000000
  56.       0000000000000000000000000000000000000000000000000000000000000000
  57.       0000000000000000}
  58.     ButtonFaceTransColNew = {15525300}
  59.   end
  60.   object ArtikelKnap: TLMDMMButton
  61.     Left = 0
  62.     Top = 316
  63.     Width = 160
  64.     Height = 32
  65.     Cursor = crHandPoint
  66.     Caption = 'UDVALGTE ARTIKLER'
  67.     ParentFont = False
  68.     OnClick = ArtikelKnapClick
  69.     OnMouseEnter = KnapMouseEnter
  70.     OnMouseExit = KnapMouseExit
  71.     Font.Charset = DEFAULT_CHARSET
  72.     Font.Color = clWhite
  73.     Font.Height = -13
  74.     Font.Name = 'Verdana'
  75.     Font.Style = []
  76.     AllowMouseOver = False
  77.     ButtonFaceImageList = Knapper
  78.     CaptionDown = 0
  79.     ForceTransparent = False
  80.     ButtonFaceIndicesNew2 = {
  81.       0000000000000000000000000000000000000000000000000000000000000000
  82.       0000000000000000000000000000000000000000000000000000000000000000
  83.       0000000000000000}
  84.     ButtonFaceTransColNew = {15525300}
  85.   end
  86.   object SpilKnap: TLMDMMButton
  87.     Left = 0
  88.     Top = 272
  89.     Width = 160
  90.     Height = 32
  91.     Cursor = crHandPoint
  92.     Hint = 'Underholdende spil til'#13#10'b'#229'de b'#248'rn og voksne'
  93.     Caption = 'SPIL'
  94.     ParentFont = False
  95.     ParentShowHint = False
  96.     ShowHint = False
  97.     OnClick = SpilKnapClick
  98.     OnMouseEnter = KnapMouseEnter
  99.     OnMouseExit = KnapMouseExit
  100.     Font.Charset = DEFAULT_CHARSET
  101.     Font.Color = clWhite
  102.     Font.Height = -13
  103.     Font.Name = 'Verdana'
  104.     Font.Style = []
  105.     AllowMouseOver = False
  106.     ButtonFaceImageList = Knapper
  107.     CaptionDown = 0
  108.     ForceTransparent = False
  109.     ButtonFaceIndicesNew2 = {
  110.       0000000000000000000000000000000000000000000000000000000000000000
  111.       0000000000000000000000000000000000000000000000000000000000000000
  112.       0000000000000000}
  113.     ButtonFaceTransColNew = {15525300}
  114.   end
  115.   object VaerktoejKnap: TLMDMMButton
  116.     Left = 0
  117.     Top = 184
  118.     Width = 160
  119.     Height = 32
  120.     Cursor = crHandPoint
  121.     Hint = 'Gratis programmer med guider'
  122.     Caption = 'V'#198'RKT'#216'J'
  123.     ParentFont = False
  124.     ParentShowHint = False
  125.     ShowHint = False
  126.     OnClick = VaerktoejKnapClick
  127.     OnMouseEnter = KnapMouseEnter
  128.     OnMouseExit = KnapMouseExit
  129.     Font.Charset = DEFAULT_CHARSET
  130.     Font.Color = clWhite
  131.     Font.Height = -13
  132.     Font.Name = 'Verdana'
  133.     Font.Style = []
  134.     AllowMouseOver = False
  135.     ButtonFaceImageList = Knapper
  136.     CaptionDown = 0
  137.     ForceTransparent = False
  138.     ButtonFaceIndicesNew2 = {
  139.       0000000000000000000000000000000000000000000000000000000000000000
  140.       0000000000000000000000000000000000000000000000000000000000000000
  141.       0000000000000000}
  142.     ButtonFaceTransColNew = {15525300}
  143.   end
  144.   object TypeKnap: TLMDMMButton
  145.     Left = 249
  146.     Top = 20
  147.     Width = 111
  148.     Height = 20
  149.     Cursor = crHandPoint
  150.     Caption = 'LICENS'
  151.     ParentFont = False
  152.     OnClick = TypeClick
  153.     OnMouseEnter = KnapMouseEnter
  154.     OnMouseExit = KnapMouseExit
  155.     Font.Charset = DEFAULT_CHARSET
  156.     Font.Color = clWhite
  157.     Font.Height = -13
  158.     Font.Name = 'Verdana'
  159.     Font.Style = []
  160.     AllowMouseOver = False
  161.     ButtonFaceImageList = Knapper
  162.     CaptionDown = 0
  163.     ForceTransparent = False
  164.     ButtonFaceIndicesNew2 = {
  165.       0000000000000000000000000000000000000000000000000000000000000000
  166.       0000000000000000000000000000000000000000000000000000000000000000
  167.       0000000000000000}
  168.     ButtonFaceTransColNew = {15525300}
  169.   end
  170.   object SektionKnap: TLMDMMButton
  171.     Left = 361
  172.     Top = 20
  173.     Width = 92
  174.     Height = 20
  175.     Cursor = crHandPoint
  176.     Caption = 'SEKTION'
  177.     ParentFont = False
  178.     OnClick = SektionKnapClick
  179.     OnMouseEnter = KnapMouseEnter
  180.     OnMouseExit = KnapMouseExit
  181.     Font.Charset = DEFAULT_CHARSET
  182.     Font.Color = clWhite
  183.     Font.Height = -13
  184.     Font.Name = 'Verdana'
  185.     Font.Style = []
  186.     AllowMouseOver = False
  187.     ButtonFaceImageList = Knapper
  188.     CaptionDown = 0
  189.     ForceTransparent = False
  190.     ButtonFaceIndicesNew2 = {
  191.       0000000000000000000000000000000000000000000000000000000000000000
  192.       0000000000000000000000000000000000000000000000000000000000000000
  193.       0000000000000000}
  194.     ButtonFaceTransColNew = {15525300}
  195.   end
  196.   object NavneKnap: TLMDMMButton
  197.     Left = 454
  198.     Top = 20
  199.     Width = 201
  200.     Height = 20
  201.     Cursor = crHandPoint
  202.     Caption = 'NAVN'
  203.     ParentFont = False
  204.     OnClick = TitelClick
  205.     OnMouseEnter = KnapMouseEnter
  206.     OnMouseExit = KnapMouseExit
  207.     Font.Charset = DEFAULT_CHARSET
  208.     Font.Color = clWhite
  209.     Font.Height = -13
  210.     Font.Name = 'Verdana'
  211.     Font.Style = []
  212.     AllowMouseOver = False
  213.     ButtonFaceStyle = sbTile
  214.     ButtonFaceImageList = Knapper
  215.     CaptionDown = 0
  216.     ForceTransparent = False
  217.     ButtonFaceIndicesNew2 = {
  218.       0000000000000000000000000000000000000000000000000000000000000000
  219.       0000000000000000000000000000000000000000000000000000000000000000
  220.       0000000000000000}
  221.     ButtonFaceTransColNew = {15525300}
  222.   end
  223.   object EmneKnap: TLMDMMButton
  224.     Left = 656
  225.     Top = 20
  226.     Width = 110
  227.     Height = 20
  228.     Cursor = crHandPoint
  229.     Caption = 'EMNE'
  230.     ParentFont = False
  231.     OnClick = EmneKnapClick
  232.     OnMouseEnter = KnapMouseEnter
  233.     OnMouseExit = KnapMouseExit
  234.     Font.Charset = DEFAULT_CHARSET
  235.     Font.Color = clWhite
  236.     Font.Height = -13
  237.     Font.Name = 'Verdana'
  238.     Font.Style = []
  239.     AllowMouseOver = False
  240.     ButtonFaceImageList = Knapper
  241.     CaptionDown = 0
  242.     ForceTransparent = False
  243.     ButtonFaceIndicesNew2 = {
  244.       0000000000000000000000000000000000000000000000000000000000000000
  245.       0000000000000000000000000000000000000000000000000000000000000000
  246.       0000000000000000}
  247.     ButtonFaceTransColNew = {15525300}
  248.   end
  249.   object KlikHer: TLabel
  250.     Left = 4
  251.     Top = 80
  252.     Width = 181
  253.     Height = 13
  254.     AutoSize = False
  255.     Caption = 'Sortering efter sektion:'
  256.     Font.Charset = DEFAULT_CHARSET
  257.     Font.Color = clWindowText
  258.     Font.Height = -11
  259.     Font.Name = 'Verdana'
  260.     Font.Style = []
  261.     ParentFont = False
  262.     WordWrap = True
  263.   end
  264.   object DobbeltklikHer: TLabel
  265.     Left = 212
  266.     Top = 492
  267.     Width = 485
  268.     Height = 13
  269.     AutoSize = False
  270.     Caption = 
  271.       'Dobbeltklik p'#229' et program for at l'#230'se vejledning og installere d' +
  272.       'et.'
  273.     Font.Charset = DEFAULT_CHARSET
  274.     Font.Color = clWindowText
  275.     Font.Height = -11
  276.     Font.Name = 'Verdana'
  277.     Font.Style = []
  278.     ParentFont = False
  279.   end
  280.   object KnapInfo: TLabel
  281.     Left = 212
  282.     Top = 4
  283.     Width = 565
  284.     Height = 13
  285.     AutoSize = False
  286.     Caption = 
  287.       'Brug knapperne til at sortere indholdet. Tryk flere gange for at' +
  288.       ' '#230'ndre sorteringen.'
  289.     Font.Charset = DEFAULT_CHARSET
  290.     Font.Color = clWindowText
  291.     Font.Height = -11
  292.     Font.Name = 'Verdana'
  293.     Font.Style = []
  294.     ParentFont = False
  295.   end
  296.   object K_Frame: TShape
  297.     Left = 160
  298.     Top = 96
  299.     Width = 21
  300.     Height = 33
  301.     Cursor = crHandPoint
  302.     Brush.Color = 11119079
  303.     Pen.Style = psClear
  304.     Pen.Width = 0
  305.     OnMouseDown = K_FrameMouseDown
  306.   end
  307.   object Shape1: TShape
  308.     Left = 160
  309.     Top = 360
  310.     Width = 21
  311.     Height = 33
  312.     Cursor = crHandPoint
  313.     Brush.Color = 14998476
  314.     Pen.Style = psClear
  315.     Pen.Width = 0
  316.     OnMouseDown = VideoMouseDown
  317.   end
  318.   object Shape2: TShape
  319.     Left = 160
  320.     Top = 316
  321.     Width = 21
  322.     Height = 33
  323.     Cursor = crHandPoint
  324.     Brush.Color = 12971966
  325.     Pen.Style = psClear
  326.     Pen.Width = 0
  327.     OnMouseDown = ArtikelMouseDown
  328.   end
  329.   object Shape3: TShape
  330.     Left = 160
  331.     Top = 272
  332.     Width = 21
  333.     Height = 33
  334.     Cursor = crHandPoint
  335.     Brush.Color = 14333649
  336.     Pen.Style = psClear
  337.     Pen.Width = 0
  338.     OnMouseDown = SpilMouseDown
  339.   end
  340.   object InfoKnap: TLMDMMButton
  341.     Left = 0
  342.     Top = 415
  343.     Width = 177
  344.     Height = 32
  345.     Cursor = crHandPoint
  346.     Hint = 'Gratis programmer med guider'
  347.     Caption = 'CD HJ'#198'LP'#13#10
  348.     ParentFont = False
  349.     ParentShowHint = False
  350.     ShowHint = False
  351.     OnClick = InfoClick
  352.     OnMouseEnter = KnapMouseEnter
  353.     OnMouseExit = KnapMouseExit
  354.     Font.Charset = DEFAULT_CHARSET
  355.     Font.Color = clWhite
  356.     Font.Height = -13
  357.     Font.Name = 'Verdana'
  358.     Font.Style = []
  359.     AllowMouseOver = False
  360.     ButtonFaceImageList = Knapper
  361.     CaptionDown = 0
  362.     ForceTransparent = False
  363.     ButtonFaceIndicesNew2 = {
  364.       0000000000000000000000000000000000000000000000000000000000000000
  365.       0000000000000000000000000000000000000000000000000000000000000000
  366.       0000000000000000}
  367.     ButtonFaceTransColNew = {15525300}
  368.   end
  369.   object WWWKnap: TLMDMMButton
  370.     Left = 0
  371.     Top = 455
  372.     Width = 177
  373.     Height = 32
  374.     Cursor = crHandPoint
  375.     Hint = 'Gratis programmer med guider'
  376.     Caption = 'INTERNET'#13#10
  377.     ParentFont = False
  378.     ParentShowHint = False
  379.     ShowHint = False
  380.     OnClick = WWWClick
  381.     OnMouseEnter = KnapMouseEnter
  382.     OnMouseExit = KnapMouseExit
  383.     Font.Charset = DEFAULT_CHARSET
  384.     Font.Color = clWhite
  385.     Font.Height = -13
  386.     Font.Name = 'Verdana'
  387.     Font.Style = []
  388.     AllowMouseOver = False
  389.     ButtonFaceImageList = Knapper
  390.     CaptionDown = 0
  391.     ForceTransparent = False
  392.     ButtonFaceIndicesNew2 = {
  393.       0000000000000000000000000000000000000000000000000000000000000000
  394.       0000000000000000000000000000000000000000000000000000000000000000
  395.       0000000000000000}
  396.     ButtonFaceTransColNew = {15525300}
  397.   end
  398.   object WWWLabel: TLabel
  399.     Left = 0
  400.     Top = 471
  401.     Width = 177
  402.     Height = 13
  403.     Cursor = crHandPoint
  404.     Alignment = taCenter
  405.     AutoSize = False
  406.     Caption = 'Genveje til komputer.dk'
  407.     Font.Charset = DEFAULT_CHARSET
  408.     Font.Color = clWhite
  409.     Font.Height = -11
  410.     Font.Name = 'Verdana'
  411.     Font.Style = []
  412.     ParentFont = False
  413.     Transparent = True
  414.     WordWrap = True
  415.     OnClick = WWWClick
  416.   end
  417.   object InfoLabel: TLabel
  418.     Left = 0
  419.     Top = 431
  420.     Width = 177
  421.     Height = 13
  422.     Cursor = crHandPoint
  423.     Alignment = taCenter
  424.     AutoSize = False
  425.     Caption = 'F'#229' svar p'#229' dine sp'#248'rgsm'#229'l'
  426.     Font.Charset = DEFAULT_CHARSET
  427.     Font.Color = clWhite
  428.     Font.Height = -11
  429.     Font.Name = 'Verdana'
  430.     Font.Style = []
  431.     ParentFont = False
  432.     Transparent = True
  433.     WordWrap = True
  434.     OnClick = InfoClick
  435.   end
  436.   object Image1: TImage
  437.     Left = 208
  438.     Top = 20
  439.     Width = 40
  440.     Height = 20
  441.     Picture.Data = {<image002.TPNGObject>}
  442.   end
  443.   object Image2: TImage
  444.     Left = 767
  445.     Top = 20
  446.     Width = 17
  447.     Height = 20
  448.     Picture.Data = {<image003.TPNGObject>}
  449.   end
  450.   object BladAar: TLMDLabel
  451.     Left = 113
  452.     Top = 15
  453.     Width = 58
  454.     Height = 22
  455.     Bevel.Mode = bmCustom
  456.     Font.Charset = DEFAULT_CHARSET
  457.     Font.Color = clWhite
  458.     Font.Height = -17
  459.     Font.Name = 'Verdana'
  460.     Font.Style = [fsBold, fsItalic]
  461.     Options = []
  462.     ParentFont = False
  463.     Caption = '-2004'
  464.   end
  465.   object BladNr: TLMDLabel
  466.     Left = 71
  467.     Top = 4
  468.     Width = 44
  469.     Height = 37
  470.     Bevel.Mode = bmCustom
  471.     Font.Charset = DEFAULT_CHARSET
  472.     Font.Color = clWhite
  473.     Font.Height = -29
  474.     Font.Name = 'Verdana'
  475.     Font.Style = [fsBold, fsItalic]
  476.     Options = []
  477.     ParentFont = False
  478.     Caption = '15'
  479.   end
  480.   object Shape4: TShape
  481.     Left = 160
  482.     Top = 228
  483.     Width = 21
  484.     Height = 33
  485.     Cursor = crHandPoint
  486.     Brush.Color = 9760729
  487.     Pen.Style = psClear
  488.     Pen.Width = 0
  489.     OnMouseDown = SmagsproveMouseDown
  490.   end
  491.   object SmagsproveKnap: TLMDMMButton
  492.     Left = 0
  493.     Top = 228
  494.     Width = 160
  495.     Height = 32
  496.     Cursor = crHandPoint
  497.     Caption = 'SMAGSPR'#216'VER'
  498.     ParentFont = False
  499.     OnClick = SmagsproveKnapClick
  500.     OnMouseEnter = KnapMouseEnter
  501.     OnMouseExit = KnapMouseExit
  502.     Font.Charset = DEFAULT_CHARSET
  503.     Font.Color = clWhite
  504.     Font.Height = -13
  505.     Font.Name = 'Verdana'
  506.     Font.Style = []
  507.     AllowMouseOver = False
  508.     ButtonFaceImageList = Knapper
  509.     CaptionDown = 0
  510.     ForceTransparent = False
  511.     ButtonFaceIndicesNew2 = {
  512.       0000000000000000000000000000000000000000000000000000000000000000
  513.       0000000000000000000000000000000000000000000000000000000000000000
  514.       0000000000000000}
  515.     ButtonFaceTransColNew = {15525300}
  516.   end
  517.   object VideoKnap: TLMDMMButton
  518.     Left = 0
  519.     Top = 360
  520.     Width = 160
  521.     Height = 32
  522.     Cursor = crHandPoint
  523.     Caption = 'VIDEO'
  524.     ParentFont = False
  525.     OnClick = VideoKnapClick
  526.     OnMouseEnter = KnapMouseEnter
  527.     OnMouseExit = KnapMouseExit
  528.     Font.Charset = DEFAULT_CHARSET
  529.     Font.Color = clWhite
  530.     Font.Height = -13
  531.     Font.Name = 'Verdana'
  532.     Font.Style = []
  533.     AllowMouseOver = False
  534.     ButtonFaceImageList = Knapper
  535.     CaptionDown = 0
  536.     ForceTransparent = False
  537.     ButtonFaceIndicesNew2 = {
  538.       0000000000000000000000000000000000000000000000000000000000000000
  539.       0000000000000000000000000000000000000000000000000000000000000000
  540.       0000000000000000}
  541.     ButtonFaceTransColNew = {15525300}
  542.   end
  543.   object VaerktojShape: TShape
  544.     Left = 160
  545.     Top = 184
  546.     Width = 21
  547.     Height = 33
  548.     Cursor = crHandPoint
  549.     Brush.Color = 9229045
  550.     Pen.Style = psClear
  551.     Pen.Width = 0
  552.     OnMouseDown = VaerktojShapeMouseDown
  553.   end
  554.   object Sikkerhedsknap: TLMDMMButton
  555.     Left = 0
  556.     Top = 140
  557.     Width = 160
  558.     Height = 32
  559.     Cursor = crHandPoint
  560.     Hint = 'Gratis programmer med guider'
  561.     Caption = 'SIKKERHEDSCENTER'
  562.     ParentFont = False
  563.     ParentShowHint = False
  564.     ShowHint = False
  565.     OnClick = SikkerhedsknapClick
  566.     OnMouseEnter = KnapMouseEnter
  567.     OnMouseExit = KnapMouseExit
  568.     Font.Charset = DEFAULT_CHARSET
  569.     Font.Color = clWhite
  570.     Font.Height = -13
  571.     Font.Name = 'Verdana'
  572.     Font.Style = []
  573.     AllowMouseOver = False
  574.     ButtonFaceImageList = Knapper
  575.     CaptionDown = 0
  576.     ForceTransparent = False
  577.     ButtonFaceIndicesNew2 = {
  578.       0000000000000000000000000000000000000000000000000000000000000000
  579.       0000000000000000000000000000000000000000000000000000000000000000
  580.       0000000000000000}
  581.     ButtonFaceTransColNew = {15525300}
  582.   end
  583.   object Sikkerhedsshape: TShape
  584.     Left = 160
  585.     Top = 140
  586.     Width = 21
  587.     Height = 33
  588.     Cursor = crHandPoint
  589.     Brush.Color = 11851940
  590.     Pen.Style = psClear
  591.     Pen.Width = 0
  592.     OnMouseDown = SikkerhedsshapeMouseDown
  593.   end
  594.   object StringGrid1: TStringGrid
  595.     Left = 208
  596.     Top = 41
  597.     Width = 577
  598.     Height = 447
  599.     Cursor = crHandPoint
  600.     Color = clWhite
  601.     DefaultColWidth = 80
  602.     DefaultRowHeight = 36
  603.     FixedColor = 5394965
  604.     FixedCols = 0
  605.     RowCount = 40
  606.     FixedRows = 0
  607.     Font.Charset = DEFAULT_CHARSET
  608.     Font.Color = clInfoText
  609.     Font.Height = -16
  610.     Font.Name = 'Verdana'
  611.     Font.Style = []
  612.     Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goRowMoving, goRowSelect, goThumbTracking]
  613.     ParentFont = False
  614.     ScrollBars = ssVertical
  615.     TabOrder = 0
  616.     OnDblClick = StringGrid1DblClick
  617.     OnDrawCell = StringGrid1DrawCell
  618.     ColWidths = (
  619.       38
  620.       111
  621.       92
  622.       201
  623.       111)
  624.   end
  625.   object VisteIkoner: TLMDImageList
  626.     Left = 544
  627.     Top = 472
  628.     object TLMDImageListItem
  629.       Height = 32
  630.       Width = 32
  631.       Internal = {002000000020000000040000000000000000}
  632.     end
  633.   end
  634.   object Knapper: TLMDGraphicList
  635.     Graphics = <
  636.       item
  637.         Name = 'M'#248'rkegr'#248'n'
  638.         Picture.Data = {<image004.TPNGObject>}
  639.         Index = 0
  640.       end>
  641.     Left = 584
  642.     Top = 472
  643.   end
  644. end
  645.