object NyHovedForm: TNyHovedForm Left = 214 Top = 230 BorderStyle = bsNone Caption = 'NyHovedForm' ClientHeight = 512 ClientWidth = 800 Color = 13697023 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] OldCreateOrder = False Scaled = False OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 13 object Logo: TImage Left = 0 Top = 0 Width = 180 Height = 81 Picture.Data = {} end object SvenskLogo: TImage Left = 0 Top = 0 Width = 180 Height = 81 Picture.Data = {} Visible = False end object KProgramKnap: TLMDMMButton Left = 0 Top = 96 Width = 160 Height = 32 Cursor = crHandPoint Caption = 'AKTUELT' ParentFont = False OnClick = KProgramKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object ArtikelKnap: TLMDMMButton Left = 0 Top = 316 Width = 160 Height = 32 Cursor = crHandPoint Caption = 'UDVALGTE ARTIKLER' ParentFont = False OnClick = ArtikelKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object SpilKnap: TLMDMMButton Left = 0 Top = 272 Width = 160 Height = 32 Cursor = crHandPoint Hint = 'Underholdende spil til'#13#10'b'#229'de b'#248'rn og voksne' Caption = 'SPIL' ParentFont = False ParentShowHint = False ShowHint = False OnClick = SpilKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object VaerktoejKnap: TLMDMMButton Left = 0 Top = 184 Width = 160 Height = 32 Cursor = crHandPoint Hint = 'Gratis programmer med guider' Caption = 'V'#198'RKT'#216'J' ParentFont = False ParentShowHint = False ShowHint = False OnClick = VaerktoejKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object TypeKnap: TLMDMMButton Left = 249 Top = 20 Width = 111 Height = 20 Cursor = crHandPoint Caption = 'LICENS' ParentFont = False OnClick = TypeClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object SektionKnap: TLMDMMButton Left = 361 Top = 20 Width = 92 Height = 20 Cursor = crHandPoint Caption = 'SEKTION' ParentFont = False OnClick = SektionKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object NavneKnap: TLMDMMButton Left = 454 Top = 20 Width = 201 Height = 20 Cursor = crHandPoint Caption = 'NAVN' ParentFont = False OnClick = TitelClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceStyle = sbTile ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object EmneKnap: TLMDMMButton Left = 656 Top = 20 Width = 110 Height = 20 Cursor = crHandPoint Caption = 'EMNE' ParentFont = False OnClick = EmneKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object KlikHer: TLabel Left = 4 Top = 80 Width = 181 Height = 13 AutoSize = False Caption = 'Sortering efter sektion:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False WordWrap = True end object DobbeltklikHer: TLabel Left = 212 Top = 492 Width = 485 Height = 13 AutoSize = False Caption = 'Dobbeltklik p'#229' et program for at l'#230'se vejledning og installere d' + 'et.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object KnapInfo: TLabel Left = 212 Top = 4 Width = 565 Height = 13 AutoSize = False Caption = 'Brug knapperne til at sortere indholdet. Tryk flere gange for at' + ' '#230'ndre sorteringen.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object K_Frame: TShape Left = 160 Top = 96 Width = 21 Height = 33 Cursor = crHandPoint Brush.Color = 11119079 Pen.Style = psClear Pen.Width = 0 OnMouseDown = K_FrameMouseDown end object Shape1: TShape Left = 160 Top = 360 Width = 21 Height = 33 Cursor = crHandPoint Brush.Color = 14998476 Pen.Style = psClear Pen.Width = 0 OnMouseDown = VideoMouseDown end object Shape2: TShape Left = 160 Top = 316 Width = 21 Height = 33 Cursor = crHandPoint Brush.Color = 12971966 Pen.Style = psClear Pen.Width = 0 OnMouseDown = ArtikelMouseDown end object Shape3: TShape Left = 160 Top = 272 Width = 21 Height = 33 Cursor = crHandPoint Brush.Color = 14333649 Pen.Style = psClear Pen.Width = 0 OnMouseDown = SpilMouseDown end object InfoKnap: TLMDMMButton Left = 0 Top = 415 Width = 177 Height = 32 Cursor = crHandPoint Hint = 'Gratis programmer med guider' Caption = 'CD HJ'#198'LP'#13#10 ParentFont = False ParentShowHint = False ShowHint = False OnClick = InfoClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object WWWKnap: TLMDMMButton Left = 0 Top = 455 Width = 177 Height = 32 Cursor = crHandPoint Hint = 'Gratis programmer med guider' Caption = 'INTERNET'#13#10 ParentFont = False ParentShowHint = False ShowHint = False OnClick = WWWClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object WWWLabel: TLabel Left = 0 Top = 471 Width = 177 Height = 13 Cursor = crHandPoint Alignment = taCenter AutoSize = False Caption = 'Genveje til komputer.dk' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False Transparent = True WordWrap = True OnClick = WWWClick end object InfoLabel: TLabel Left = 0 Top = 431 Width = 177 Height = 13 Cursor = crHandPoint Alignment = taCenter AutoSize = False Caption = 'F'#229' svar p'#229' dine sp'#248'rgsm'#229'l' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False Transparent = True WordWrap = True OnClick = InfoClick end object Image1: TImage Left = 208 Top = 20 Width = 40 Height = 20 Picture.Data = {} end object Image2: TImage Left = 767 Top = 20 Width = 17 Height = 20 Picture.Data = {} end object BladAar: TLMDLabel Left = 113 Top = 15 Width = 58 Height = 22 Bevel.Mode = bmCustom Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -17 Font.Name = 'Verdana' Font.Style = [fsBold, fsItalic] Options = [] ParentFont = False Caption = '-2004' end object BladNr: TLMDLabel Left = 71 Top = 4 Width = 44 Height = 37 Bevel.Mode = bmCustom Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -29 Font.Name = 'Verdana' Font.Style = [fsBold, fsItalic] Options = [] ParentFont = False Caption = '15' end object Shape4: TShape Left = 160 Top = 228 Width = 21 Height = 33 Cursor = crHandPoint Brush.Color = 9760729 Pen.Style = psClear Pen.Width = 0 OnMouseDown = SmagsproveMouseDown end object SmagsproveKnap: TLMDMMButton Left = 0 Top = 228 Width = 160 Height = 32 Cursor = crHandPoint Caption = 'SMAGSPR'#216'VER' ParentFont = False OnClick = SmagsproveKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object VideoKnap: TLMDMMButton Left = 0 Top = 360 Width = 160 Height = 32 Cursor = crHandPoint Caption = 'VIDEO' ParentFont = False OnClick = VideoKnapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object VaerktojShape: TShape Left = 160 Top = 184 Width = 21 Height = 33 Cursor = crHandPoint Brush.Color = 9229045 Pen.Style = psClear Pen.Width = 0 OnMouseDown = VaerktojShapeMouseDown end object Sikkerhedsknap: TLMDMMButton Left = 0 Top = 140 Width = 160 Height = 32 Cursor = crHandPoint Hint = 'Gratis programmer med guider' Caption = 'SIKKERHEDSCENTER' ParentFont = False ParentShowHint = False ShowHint = False OnClick = SikkerhedsknapClick OnMouseEnter = KnapMouseEnter OnMouseExit = KnapMouseExit Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Verdana' Font.Style = [] AllowMouseOver = False ButtonFaceImageList = Knapper CaptionDown = 0 ForceTransparent = False ButtonFaceIndicesNew2 = { 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000} ButtonFaceTransColNew = {15525300} end object Sikkerhedsshape: TShape Left = 160 Top = 140 Width = 21 Height = 33 Cursor = crHandPoint Brush.Color = 11851940 Pen.Style = psClear Pen.Width = 0 OnMouseDown = SikkerhedsshapeMouseDown end object StringGrid1: TStringGrid Left = 208 Top = 41 Width = 577 Height = 447 Cursor = crHandPoint Color = clWhite DefaultColWidth = 80 DefaultRowHeight = 36 FixedColor = 5394965 FixedCols = 0 RowCount = 40 FixedRows = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clInfoText Font.Height = -16 Font.Name = 'Verdana' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goRowMoving, goRowSelect, goThumbTracking] ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnDblClick = StringGrid1DblClick OnDrawCell = StringGrid1DrawCell ColWidths = ( 38 111 92 201 111) end object VisteIkoner: TLMDImageList Left = 544 Top = 472 object TLMDImageListItem Height = 32 Width = 32 Internal = {002000000020000000040000000000000000} end end object Knapper: TLMDGraphicList Graphics = < item Name = 'M'#248'rkegr'#248'n' Picture.Data = {} Index = 0 end> Left = 584 Top = 472 end end