[طيباوي ابو علي1]

النموذج

الاسم
Bloc.dfm

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  BiDiMode = bdRightToLeft
  Color = clBtnFace
  Font.Charset = ARABIC_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000000000000000000078888888888888888888880800000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFF0F000FF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    0FF0FF0FF0FF0FF0FF0FF7080000007F0FF0FF0FF0FF0FF0FF0FF70800000007
    F77F77F77F77F77F77F77F70000000000000000000000000000000000000F000
    001FE000000FC0000007C0000007C0000007C0000007C0000007C0000007C000
    0007C0000007C0000007C0000007C0000007C0000007C0000007C0000007C000
    0007C0000007C0000007C0000007C0000007C0000007C0000007C0000007C000
    0007C0000007C0000007C0000007C0000007C0000007E000000FF24924BF}
  Menu = MainMenu1
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 407
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 407
    Width = 688
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 96
    object file1: TMenuItem
      Caption = '&'#1605#1604#1601
      object new1: TMenuItem
        Caption = '&'#1580#1583#1610#1583
        ShortCut = 16462
        OnClick = new1Click
      end
      object open1: TMenuItem
        Caption = '&'#1601#1578#1581
        ShortCut = 16463
        OnClick = open1Click
      end
      object save1: TMenuItem
        Caption = '&'#1581#1601#1592
        ShortCut = 16467
        OnClick = save1Click
      end
      object saveas1: TMenuItem
        Caption = '&'#1581#1601#1592' '#1576#1575#1587#1605
        OnClick = saveas1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object exit1: TMenuItem
        Caption = #1582#1585#1608#1580
        ShortCut = 16499
        OnClick = exit1Click
      end
    end
    object edit1: TMenuItem
      Caption = #1578#1581#1585#1610#1585
      object cut1: TMenuItem
        Caption = '&'#1602#1589
        ShortCut = 16472
        OnClick = cut1Click
      end
      object copy1: TMenuItem
        Caption = '&'#1606#1587#1582
        ShortCut = 16451
        OnClick = copy1Click
      end
      object past1: TMenuItem
        Caption = '&'#1604#1589#1602
        ShortCut = 16470
        OnClick = past1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object select1: TMenuItem
        Caption = #1578#1581#1583#1610#1583
        ShortCut = 16449
        OnClick = select1Click
      end
      object clear1: TMenuItem
        Caption = #1605#1587#1581
        OnClick = clear1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object DateTime1: TMenuItem
        Caption = #1578#1575#1585#1610#1582' '#1608#1575#1604#1608#1602#1578
        OnClick = DateTime1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&'#1575#1593#1600#1600#1600#1583#1575#1583
      object Fonts1: TMenuItem
        Caption = '&'#1582#1600#1600#1600#1591
        OnClick = Fonts1Click
      end
      object Color1: TMenuItem
        Caption = '&'#1604#1600#1600#1600#1608#1606
        OnClick = Color1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Left1: TMenuItem
        Caption = 'Right'
        OnClick = Left1Click
      end
      object Right1: TMenuItem
        Caption = 'Left'
        OnClick = Left1Click
      end
      object Center1: TMenuItem
        Caption = 'Center'
        OnClick = Left1Click
      end
    end
    object help1: TMenuItem
      Caption = #1605#1587#1575#1593#1583#1577
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'fichier texte|*.txt|tout les fichiers|*.*'
    InitialDir = '.'
    Left = 192
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'fichier texte|*.txt|tout les fichiers|*.*'
    InitialDir = '.'
    Left = 224
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 256
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 288
  end
end