home *** CD-ROM | disk | FTP | other *** search
- object NyHovedForm: TNyHovedForm
- Left = 81
- Top = 232
- 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 = 96
- TextHeight = 13
- object Logo: TImage
- Left = 0
- Top = 0
- Width = 180
- Height = 81
- Picture.Data = {<image000.TPNGObject>}
- end
- object KProgramKnap: TLMDMMButton
- Left = 0
- Top = 113
- Width = 160
- Height = 32
- Cursor = crHandPoint
- Caption = 'K-PROGRAMMER'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- OnClick = KProgramKnapClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object SkoleKnap: TLMDMMButton
- Left = 0
- Top = 179
- Width = 160
- Height = 32
- Cursor = crHandPoint
- Caption = 'SKOLER'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- OnClick = SkoleKnapClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object SpilKnap: TLMDMMButton
- Left = 0
- Top = 245
- Width = 160
- Height = 32
- Cursor = crHandPoint
- Hint = 'Underholdende spil til'#13#10'b'#229'de b'#248'rn og voksne'
- Caption = 'SPIL'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- OnClick = SpilKnapClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object TilbehoerKnap: TLMDMMButton
- Left = 0
- Top = 311
- Width = 160
- Height = 32
- Cursor = crHandPoint
- Hint = 'Gratis programmer med guider'
- Caption = 'TILBEH'#216'R'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- OnClick = TilbehoerKnapClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object TypeKnap: TLMDMMButton
- Left = 249
- Top = 20
- Width = 111
- Height = 20
- Cursor = crHandPoint
- Caption = 'TYPE'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- OnClick = TypeClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object SektionKnap: TLMDMMButton
- Left = 361
- Top = 20
- Width = 92
- Height = 20
- Cursor = crHandPoint
- Caption = 'SEKTION'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- OnClick = SektionKnapClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object NavneKnap: TLMDMMButton
- Left = 454
- Top = 20
- Width = 201
- Height = 20
- Cursor = crHandPoint
- Caption = 'NAVN'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- OnClick = TitelClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceStyle = sbTile
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object EmneKnap: TLMDMMButton
- Left = 656
- Top = 20
- Width = 110
- Height = 20
- Cursor = crHandPoint
- Caption = 'EMNE'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- OnClick = EmneKnapClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object KlikHer: TLabel
- Left = 4
- Top = 96
- 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 KProgLabel: TLabel
- Left = 4
- Top = 151
- Width = 177
- Height = 13
- AutoSize = False
- Caption = 'Programmer til artikler'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object SkoleLabel: TLabel
- Left = 4
- Top = 216
- Width = 197
- Height = 13
- AutoSize = False
- Caption = 'Arkiv og aktuelle programmer'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object SpilLabel: TLabel
- Left = 4
- Top = 280
- Width = 184
- Height = 13
- AutoSize = False
- Caption = 'Gratis spil og nye spildemoer'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object EkstraLabel: TLabel
- Left = 4
- Top = 344
- Width = 179
- Height = 13
- AutoSize = False
- Caption = 'Gratis software med guider'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- 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 = 113
- 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 = 311
- Width = 21
- Height = 33
- Cursor = crHandPoint
- Brush.Color = 14998476
- Pen.Style = psClear
- Pen.Width = 0
- OnMouseDown = Shape1MouseDown
- end
- object Shape2: TShape
- Left = 160
- Top = 245
- Width = 21
- Height = 33
- Cursor = crHandPoint
- Brush.Color = 12971966
- Pen.Style = psClear
- Pen.Width = 0
- OnMouseDown = Shape2MouseDown
- end
- object Shape3: TShape
- Left = 160
- Top = 179
- Width = 21
- Height = 33
- Cursor = crHandPoint
- Brush.Color = 14333649
- Pen.Style = psClear
- Pen.Width = 0
- OnMouseDown = Shape3MouseDown
- end
- object InfoKnap: TLMDMMButton
- Left = 0
- Top = 375
- Width = 177
- Height = 32
- Cursor = crHandPoint
- Hint = 'Gratis programmer med guider'
- Caption = 'K-CD HJ'#198'LP'#13#10
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- OnClick = InfoClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object IndstilKnap: TLMDMMButton
- Left = 0
- Top = 455
- Width = 177
- Height = 32
- Cursor = crHandPoint
- Hint = 'Gratis programmer med guider'
- Caption = 'INDSTILLINGER'#13#10
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- OnClick = IndstilClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object WWWKnap: TLMDMMButton
- Left = 0
- Top = 415
- Width = 177
- Height = 32
- Cursor = crHandPoint
- Hint = 'Gratis programmer med guider'
- Caption = 'INTERNET'#13#10
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- OnClick = WWWClick
- OnMouseEnter = KnapMouseEnter
- OnMouseExit = KnapMouseExit
- AllowMouseOver = False
- ButtonFaceImageList = Knapper
- ForceTransparent = False
- ButtonFaceIndicesNew2 = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000}
- ButtonFaceTransColNew = {15525300}
- end
- object WWWLabel: TLabel
- Left = 0
- Top = 431
- 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 = 391
- 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 IndstilLabel: TLabel
- Left = 0
- Top = 471
- Width = 177
- Height = 13
- Cursor = crHandPoint
- Alignment = taCenter
- AutoSize = False
- Caption = 'Skift ops'#230'tning p'#229' K-CD'#39'en'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- OnClick = IndstilClick
- end
- object Image1: TImage
- Left = 208
- Top = 20
- Width = 40
- Height = 20
- Picture.Data = {<image001.TPNGObject>}
- end
- object Image2: TImage
- Left = 767
- Top = 20
- Width = 17
- Height = 20
- Picture.Data = {<image002.TPNGObject>}
- 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 = '-2003'
- 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 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 = {<image003.TPNGObject>}
- Index = 0
- end>
- Left = 584
- Top = 472
- end
- end
-