object FrmCell: TFrmCell Left = 185 Top = 106 BorderIcons = [biSystemMenu, biMaximize, biHelp] ClientHeight = 385 ClientWidth = 484 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnKeyUp = FormKeyUp OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 484 Height = 32 Align = alTop BevelOuter = bvNone TabOrder = 0 object SpecialiseBtn: TBitBtn Left = 120 Top = 13 Width = 120 Height = 20 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = SpecialiseBtnClick Glyph.Data = { 8E000000424D8E00000000000000760000002800000007000000060000000100 04000000000018000000C30E0000C30E0000100000001000000000000000CED6 D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111101110 111011000110100000100000000011111110} end object CommunBtn: TBitBtn Left = 0 Top = 13 Width = 120 Height = 20 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = CommunBtnClick Glyph.Data = { 8E000000424D8E00000000000000760000002800000007000000060000000100 04000000000018000000C30E0000C30E0000100000001000000000000000CED6 D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111101110 111011000110100000100000000011111110} end end object Panel2: TPanel Left = 0 Top = 344 Width = 484 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 1 object Panel3: TPanel Left = 313 Top = 0 Width = 171 Height = 41 Align = alRight BevelOuter = bvNone TabOrder = 0 object Button1: TButton Left = 10 Top = 11 Width = 72 Height = 22 HelpContext = 49 Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 0 end object Button2: TButton Left = 90 Top = 11 Width = 72 Height = 22 HelpContext = 44 Cancel = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 1 end end end object SyntaxMemo: TSyntaxMemo Left = 0 Top = 32 Width = 484 Height = 312 HelpContext = 1176 Align = alClient ClipCopyFormats = [smTEXT, smRTF, smUNICODE] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] GutterFont.Charset = DEFAULT_CHARSET GutterFont.Color = clWindowText GutterFont.Height = -11 GutterFont.Name = 'MS Sans Serif' GutterFont.Style = [] HideSelection = False HyperCursor = crDefault IndentStep = 1 Margin = 2 Modified = False MonoPrint = True Options = [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowRMargin, smoShowWrapColumn, smoTitleAsFilename, smoProcessDroppedFiles, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack, smoUseTAB, smoSmartFill, smoOLEDragSource, smoLineNumbers] PopupMenu = PopupMenu3 ReadOnly = False RightMargin = 80 SaveFormat = sfTEXT ScrollBars = ssBoth SelLineStyle = lsCRLF SelStart = 0 SelLength = 0 SelTextColor = clWhite SelTextBack = clNavy TabDefault = 4 TabOrder = 2 Version = '3.00.39' VisiblePropEdPages = [ppOPTIONS, ppHIGHLIGHTING, ppAUTOCORRECT, ppTEMPLATES] WrapAtColumn = 2048 CanMoveGutter = False OnEnter = SyntaxMemoEnter OnExit = SyntaxMemoExit OnKeyDown = SyntaxMemoKeyDown ActiveParser = 1 end object PopupMenu1: TPopupMenu AutoPopup = False Left = 416 Top = 1 object LettrageGlobale1: TMenuItem ShortCut = 16452 OnClick = LettrageGlobale1Click end object EnTete1: TMenuItem object H11: TMenuItem ShortCut = 24625 OnClick = Gras1Click end object H21: TMenuItem ShortCut = 24626 OnClick = Gras1Click end object H31: TMenuItem ShortCut = 24627 OnClick = Gras1Click end object H41: TMenuItem ShortCut = 24628 OnClick = Gras1Click end object H51: TMenuItem ShortCut = 24629 OnClick = Gras1Click end object H61: TMenuItem ShortCut = 24630 OnClick = Gras1Click end end object Gras1: TMenuItem ShortCut = 16455 OnClick = Gras1Click end object Italique1: TMenuItem ShortCut = 16457 OnClick = Gras1Click end object Souligner1: TMenuItem ShortCut = 16469 OnClick = Gras1Click end object AligneGauche1: TMenuItem ShortCut = 24647 OnClick = Gras1Click end object Centre1: TMenuItem ShortCut = 16453 OnClick = Gras1Click end object AligneDroite1: TMenuItem ShortCut = 24644 OnClick = Gras1Click end object PopJustifier: TMenuItem ShortCut = 24650 OnClick = Gras1Click end object Reference1: TMenuItem OnClick = Gras1Click end object Preformate1: TMenuItem OnClick = Gras1Click end object Retour1: TMenuItem ShortCut = 16450 OnClick = Gras1Click end object NOBR1: TMenuItem OnClick = Gras1Click end object Paragraphe1: TMenuItem ShortCut = 16464 OnClick = Gras1Click end object Commentaires1: TMenuItem ShortCut = 49229 OnClick = Gras1Click end end object PopupMenu2: TPopupMenu AutoPopup = False Left = 388 Top = 1 object Image1: TMenuItem ShortCut = 41031 OnClick = ImgBtnClick end object Imageencoordonnes1: TMenuItem ShortCut = 41037 OnClick = SpeedButton4Click end object Lienexterne1: TMenuItem ShortCut = 41048 OnClick = SpeedButton7Click end object Lieninterne1: TMenuItem ShortCut = 41033 OnClick = SpeedButton9Click end end object PopupMenu3: TPopupMenu Images = frmTop.ilmenu OnPopup = PopupMenu3Popup Left = 445 Top = 1 object AnnulerRefaire1: TMenuItem ImageIndex = 5 ShortCut = 16474 OnClick = AnnulerRefaire1Click end object redo1: TMenuItem ImageIndex = 6 ShortCut = 24666 OnClick = AnnulerRefaire1Click end object N1: TMenuItem Caption = '-' end object Couper1: TMenuItem ImageIndex = 7 ShortCut = 16472 OnClick = AnnulerRefaire1Click end object Copier1: TMenuItem ImageIndex = 8 ShortCut = 16451 OnClick = AnnulerRefaire1Click end object Coller1: TMenuItem ImageIndex = 9 ShortCut = 16470 OnClick = AnnulerRefaire1Click end object mnuDelete: TMenuItem ShortCut = 16430 OnClick = AnnulerRefaire1Click end object N2: TMenuItem Caption = '-' end object mnuSelectAll: TMenuItem ShortCut = 16449 OnClick = AnnulerRefaire1Click end end end