Komputer for Alle 2003 #3/K-CD-3-2003.ISO/Tools/Utility.exe/0/RCDATA/TEDITFORM/TEDITFORM.txt

Text File | 2002-10-04 | 21.7 KB | 903 lines

object EditForm: TEditForm
  Left = 275
  Top = 266
  Width = 624
  Height = 411
  Caption = 'EditForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 616
    Height = 365
    ActivePage = TabSheet2
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabIndex = 1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Generelt'
      object Label4: TLabel
        Left = 16
        Top = 58
        Width = 104
        Height = 16
        Caption = 'Antal lektioner:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label2: TLabel
        Left = 16
        Top = 98
        Width = 50
        Height = 16
        Caption = 'Folder:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label3: TLabel
        Left = 16
        Top = 130
        Width = 80
        Height = 16
        Caption = 'Installation:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object LektionSpinner: TSpinEdit
        Left = 160
        Top = 56
        Width = 49
        Height = 22
        MaxValue = 20
        MinValue = 1
        TabOrder = 0
        Value = 12
        OnChange = LektionSpinnerChange
      end
      object FolderEdit: TEdit
        Left = 88
        Top = 93
        Width = 121
        Height = 21
        TabOrder = 1
        Text = 'FolderEdit'
      end
      object InstallerEdit: TEdit
        Left = 112
        Top = 125
        Width = 97
        Height = 21
        TabOrder = 2
        Text = 'InstallerEdit'
      end
      object TekstSamler: TRichEdit
        Left = 288
        Top = 16
        Width = 305
        Height = 161
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          'TekstSamler')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object Udskriv: TButton
        Left = 288
        Top = 192
        Width = 81
        Height = 20
        Caption = 'Udskriv'
        TabOrder = 4
        OnClick = UdskrivClick
      end
      object SammelTekst: TButton
        Left = 408
        Top = 192
        Width = 89
        Height = 20
        Caption = 'Saml tekst'
        TabOrder = 5
        OnClick = SammelTekstClick
      end
      object GemTekst: TButton
        Left = 536
        Top = 192
        Width = 57
        Height = 20
        Caption = 'Gem'
        TabOrder = 6
        OnClick = GemTekstClick
      end
      object NavnEdit: TEdit
        Left = 16
        Top = 8
        Width = 233
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        Text = 'Programnavn'
      end
      object Afslut: TButton
        Left = 536
        Top = 304
        Width = 57
        Height = 20
        Caption = 'Afslut'
        TabOrder = 8
        OnClick = AfslutClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'IntroOutro'
      ImageIndex = 1
      object Label1: TLabel
        Left = 24
        Top = 64
        Width = 74
        Height = 16
        Caption = 'IntroTekst:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label12: TLabel
        Left = 304
        Top = 61
        Width = 75
        Height = 16
        Caption = 'Outrotekst:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label13: TLabel
        Left = 304
        Top = 149
        Width = 102
        Height = 16
        Caption = 'Evt. ObsTekst:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object IntroEdit: TMemo
        Left = 24
        Top = 80
        Width = 257
        Height = 57
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'Introtekst')
        ParentFont = False
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 24
        Top = 16
        Width = 257
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = 'IntroTitel'
      end
      object OuttroEdit: TMemo
        Left = 304
        Top = 80
        Width = 257
        Height = 57
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'Outtrotekst')
        ParentFont = False
        TabOrder = 2
      end
      object ObsEdit: TMemo
        Left = 304
        Top = 169
        Width = 257
        Height = 88
        Lines.Strings = (
          'ObsTekst')
        TabOrder = 3
        OnChange = IndtastTekstChange
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Lektion'
      ImageIndex = 2
      object BagLabel: TLabel
        Left = 224
        Top = 165
        Width = 72
        Height = 16
        Caption = 'Baggrund:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label5: TLabel
        Left = 16
        Top = 149
        Width = 90
        Height = 16
        Caption = 'VidereTekst:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 360
        Top = 165
        Width = 94
        Height = 16
        Caption = 'P'#229' baggrund:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label10: TLabel
        Left = 16
        Top = 5
        Width = 90
        Height = 16
        Caption = 'LektionsTitel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label11: TLabel
        Left = 16
        Top = 61
        Width = 59
        Height = 16
        Caption = 'Manchet'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object TitelEdit: TEdit
        Left = 16
        Top = 24
        Width = 321
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'TitelEdit'
      end
      object UnderEdit: TMemo
        Left = 16
        Top = 80
        Width = 321
        Height = 57
        Lines.Strings = (
          'UndertitelEdit')
        TabOrder = 1
      end
      object VidereEdit: TMemo
        Left = 16
        Top = 164
        Width = 185
        Height = 49
        Lines.Strings = (
          'VidereEdit')
        TabOrder = 2
      end
      object VindueEdit: TEdit
        Left = 224
        Top = 184
        Width = 97
        Height = 21
        TabOrder = 3
        Text = 'VindueEdit'
      end
      object VindueEkstra: TEdit
        Left = 360
        Top = 184
        Width = 97
        Height = 21
        TabOrder = 4
        Text = 'VindueEkstra'
      end
      object Tilbage: TButton
        Left = 16
        Top = 296
        Width = 81
        Height = 25
        Caption = '<< Tilbage'
        TabOrder = 5
        OnClick = TilbageClick
      end
      object Frem: TButton
        Left = 512
        Top = 304
        Width = 81
        Height = 25
        Caption = 'Frem  >>'
        TabOrder = 6
        OnClick = FremClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Komponent'
      ImageIndex = 3
      object Label6: TLabel
        Left = 16
        Top = 19
        Width = 82
        Height = 16
        Caption = 'Komponent:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object IndtastTekst: TMemo
        Left = 16
        Top = 41
        Width = 305
        Height = 96
        Lines.Strings = (
          'IndtastTekst')
        TabOrder = 0
        OnChange = IndtastTekstChange
      end
      object KomponentSpinEdit: TLMDExtSpinEdit
        Left = 112
        Top = 16
        Width = 41
        Height = 21
        Cursor = crIBeam
        BackFX.AlphaBlend.Strength = 0.600000023841858100
        Bevel.Mode = bmWindows
        Caret.BlinkRate = 500
        Caret.ImageIndex = 0
        Caret.ListIndex = 0
        TabOrder = 1
        OnChange = KomponentSpinEditModified
        Step = 1
        LargeStep = 10
        FractionStep = 0.100000000000000000
        MinValue = 1
        MaxValue = 20
        Value = 1
        DateTime = 0
      end
      object SletKomponentKnap: TButton
        Left = 128
        Top = 302
        Width = 193
        Height = 20
        Caption = 'Slet komponent'
        TabOrder = 2
        OnClick = SletKomponentKnapClick
      end
      object Insert: TButton
        Left = 216
        Top = 14
        Width = 105
        Height = 20
        Caption = 'S'#230't ind'
        TabOrder = 3
        OnClick = InsertClick
      end
      object GroupBox1: TGroupBox
        Left = 336
        Top = 8
        Width = 257
        Height = 233
        Caption = 'Grafik'
        TabOrder = 4
        object Label8: TLabel
          Left = 128
          Top = 27
          Width = 23
          Height = 13
          Caption = 'Top'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label9: TLabel
          Left = 128
          Top = 59
          Width = 23
          Height = 13
          Caption = 'Left'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object FindGrafik: TButton
          Left = 16
          Top = 24
          Width = 97
          Height = 20
          Caption = 'Find grafik'
          TabOrder = 0
          OnClick = FindGrafikClick
        end
        object PlacerGrafik: TButton
          Left = 16
          Top = 48
          Width = 97
          Height = 20
          Caption = 'Plac'#233'r grafik'
          TabOrder = 1
          OnClick = PlacerGrafikClick
        end
        object SprogGrafik: TCheckBox
          Left = 16
          Top = 96
          Width = 97
          Height = 17
          Caption = 'SprogGrafik'
          TabOrder = 2
          OnClick = SprogGrafikClick
        end
        object FjernGrafik: TButton
          Left = 118
          Top = 158
          Width = 83
          Height = 20
          Caption = 'Fjern grafik'
          TabOrder = 3
          OnClick = FjernGrafikClick
        end
        object GrafikY: TSpinEdit
          Left = 168
          Top = 24
          Width = 73
          Height = 22
          MaxValue = 500
          MinValue = 120
          TabOrder = 4
          Value = 120
          OnChange = GrafikPosChange
        end
        object GrafikX: TSpinEdit
          Left = 168
          Top = 56
          Width = 73
          Height = 22
          MaxValue = 500
          MinValue = 42
          TabOrder = 5
          Value = 42
          OnChange = GrafikPosChange
        end
        object GemGrafik: TButton
          Left = 134
          Top = 86
          Width = 107
          Height = 20
          Caption = 'Gem grafikpos.'
          TabOrder = 6
          OnClick = GemGrafikClick
        end
        object VisRegion: TCheckBox
          Left = 16
          Top = 72
          Width = 89
          Height = 17
          Caption = 'Vis region'
          TabOrder = 7
          OnClick = VisRegionClick
        end
        object RClickGraphics: TButton
          Left = 16
          Top = 197
          Width = 89
          Height = 20
          Caption = 'Klik-billede'
          TabOrder = 8
          OnClick = RClickGraphicsClick
        end
        object UseRightCheck: TLMDCheckBox
          Left = 112
          Top = 200
          Width = 113
          Height = 17
          Caption = 'Brug h'#248'jre tast'
          DownGlyph = False
          Alignment.Alignment = agTopLeft
          Alignment.Spacing = 4
          TabOrder = 9
          BackFX.AlphaBlend.Strength = 0.600000023841858100
        end
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 152
        Width = 105
        Height = 169
        Caption = 'Henvis'
        TabOrder = 5
        object Henvis: TLMDCheckBox
          Left = 16
          Top = 25
          Width = 81
          Height = 17
          Caption = 'Henvis'
          DownGlyph = False
          Alignment.Alignment = agTopLeft
          Alignment.Spacing = 4
          TabOrder = 0
          OnClick = HenvisClick
          BackFX.AlphaBlend.Strength = 0.600000023841858100
        end
        object HenvisL: TSpinEdit
          Left = 16
          Top = 48
          Width = 73
          Height = 22
          Enabled = False
          MaxValue = 20
          MinValue = 1
          TabOrder = 1
          Value = 1
          OnChange = HenvisLChange
        end
        object HenvisK: TSpinEdit
          Left = 16
          Top = 80
          Width = 73
          Height = 22
          Enabled = False
          MaxValue = 20
          MinValue = 1
          TabOrder = 2
          Value = 1
          OnChange = HenvisKChange
        end
        object GemHenvis: TButton
          Left = 16
          Top = 110
          Width = 75
          Height = 20
          Caption = 'Gem Henvis'
          TabOrder = 3
          OnClick = GemHenvisClick
        end
        object FjernHenvis: TButton
          Left = 16
          Top = 136
          Width = 75
          Height = 20
          Caption = 'Fjern henvis'
          TabOrder = 4
        end
      end
      object GroupBox3: TGroupBox
        Left = 128
        Top = 152
        Width = 193
        Height = 145
        Caption = 'HopTil'
        TabOrder = 6
        object HopTil: TLMDCheckBox
          Left = 104
          Top = 89
          Width = 81
          Height = 17
          Caption = 'Hop til:'
          DownGlyph = False
          Alignment.Alignment = agTopLeft
          Alignment.Spacing = 4
          TabOrder = 0
          OnChange = HopTilChange
          BackFX.AlphaBlend.Strength = 0.600000023841858100
        end
        object HopDest: TSpinEdit
          Left = 104
          Top = 112
          Width = 73
          Height = 22
          Enabled = False
          MaxValue = 20
          MinValue = 1
          TabOrder = 1
          Value = 1
          OnChange = HopDestChange
        end
        object RightClickNext: TLMDCheckBox
          Left = 16
          Top = 89
          Width = 81
          Height = 17
          Caption = 'H'#248'jrefrem'
          DownGlyph = False
          Alignment.Alignment = agTopLeft
          Alignment.Spacing = 4
          TabOrder = 2
          OnChange = RightClickNextChange
          BackFX.AlphaBlend.Strength = 0.600000023841858100
        end
        object HarHilite: TLMDCheckBox
          Left = 16
          Top = 113
          Width = 81
          Height = 17
          Caption = 'Har hilite'
          DownGlyph = False
          Alignment.Alignment = agTopLeft
          Alignment.Spacing = 4
          TabOrder = 3
          OnChange = HarHiliteChange
          BackFX.AlphaBlend.Strength = 0.600000023841858100
        end
        object LavBlink: TButton
          Left = 16
          Top = 24
          Width = 89
          Height = 20
          Caption = 'Lav blinker'
          TabOrder = 4
          OnClick = LavBlinkClick
        end
        object FindBlinkGrafik: TButton
          Left = 16
          Top = 54
          Width = 89
          Height = 20
          Caption = 'Blinker billede'
          TabOrder = 5
          OnClick = FindBlinkGrafikClick
        end
        object ErTimer: TCheckBox
          Left = 32
          Top = 161
          Width = 73
          Height = 17
          Caption = 'Er timer'
          TabOrder = 6
          OnClick = ErTimerClick
        end
      end
    end
  end
  object FindBillede: TOpenPictureDialog
    DefaultExt = 'jpg'
    Filter =
      'All (*.jpg;*.jpeg;*.bmp;*.ico)|*.jpg;*.jpeg;*.png;*.bmp;*.ico|JP' +
      'EG Image File (*.jpg)|*.jpg;*.jpeg|PNG Image File (*.png)|*.png|' +
      'Windows Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico'
    Left = 640
    Top = 280
  end
  object FindFil: TOpenDialog
    DefaultExt = '*.jpg'
    Left = 648
    Top = 320
  end
  object MainMenu: TMainMenu
    Left = 568
    Top = 24
    object Program1: TMenuItem
      Caption = '&Program'
      object Navn1: TMenuItem
        Caption = '&Navn'
      end
      object Folder1: TMenuItem
        Caption = '&Folder'
      end
      object Lektionantal1: TMenuItem
        Caption = '&Lektionantal'
      end
      object Installer1: TMenuItem
        Caption = '&Installer'
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
      end
    end
    object Lektion1: TMenuItem
      Caption = '&Lektion'
      object itel1: TMenuItem
        Caption = 'Titel'
      end
      object UnderTitel1: TMenuItem
        Caption = 'UnderTitel'
      end
      object VidereTekst1: TMenuItem
        Caption = 'VidereTekst'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Vindue1: TMenuItem
        Caption = 'Vindue'
      end
      object EkstraVindue1: TMenuItem
        Caption = 'EkstraVindue'
      end
    end
    object Komponent1: TMenuItem
      Caption = '&Komponent'
      object Henvis1: TMenuItem
        Caption = 'Henvis'
      end
      object Ertimer1: TMenuItem
        Caption = 'Er timer'
      end
      object Hoptil1: TMenuItem
        Caption = 'Hop til'
      end
      object HjreFrem1: TMenuItem
        Caption = 'H'#248'jreFrem'
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Sletkomponent1: TMenuItem
        Caption = 'Slet komponent'
      end
    end
    object Grafik1: TMenuItem
      Caption = '&Grafik'
      object Findgrafik1: TMenuItem
        Caption = 'Find grafik'
        OnClick = FindGrafikClick
      end
      object Placergrafik1: TMenuItem
        Caption = 'Placer grafik'
        OnClick = PlacerGrafikClick
      end
      object Grafikpsprog1: TMenuItem
        Caption = 'Sproggrafik'
        OnClick = SprogGrafikClick
      end
      object Fjerngrafik1: TMenuItem
        Caption = 'Fjern grafik'
        OnClick = FjernGrafikClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Lavblinker1: TMenuItem
        Caption = 'Lav blinker'
        OnClick = LavBlinkClick
      end
      object Harhilite1: TMenuItem
        Caption = 'Har hilite'
      end
    end
    object IntroOutro1: TMenuItem
      Caption = '&IntroOutro'
      object IntroTekst1: TMenuItem
        Caption = 'IntroTekst'
      end
      object OutroTekst1: TMenuItem
        Caption = 'OutroTekst'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object UnderIntro1: TMenuItem
        Caption = 'UnderIntro'
      end
      object UnderOutro1: TMenuItem
        Caption = 'UnderOutro'
      end
    end
    object ekstsamling1: TMenuItem
      Caption = '&Tekstsamling'
      object Samltekst1: TMenuItem
        Caption = 'Saml tekst'
        OnClick = SammelTekstClick
      end
      object GemsomRTF1: TMenuItem
        Caption = 'Gem som RTF'
        OnClick = GemTekstClick
      end
      object Udskriv1: TMenuItem
        Caption = 'Udskriv'
        OnClick = UdskrivClick
      end
    end
  end
end