home *** CD-ROM | disk | FTP | other *** search
- object ExplorForm: TExplorForm
- Left = 244
- Top = 317
- BorderStyle = bsNone
- Caption = 'Explorateur d'#39'images'
- ClientHeight = 118
- ClientWidth = 638
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnHide = FormHide
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PnlImg: TPanel
- Left = 0
- Top = 0
- Width = 638
- Height = 118
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- object ListView: TListView
- Left = 14
- Top = 2
- Width = 622
- Height = 114
- Align = alClient
- AllocBy = 10
- Columns = <>
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- IconOptions.Arrangement = iaLeft
- IconOptions.AutoArrange = True
- IconOptions.WrapText = False
- LargeImages = ExplorList
- ReadOnly = True
- ParentFont = False
- PopupMenu = PopLst
- SortType = stText
- TabOrder = 0
- OnDblClick = ListViewDblClick
- OnKeyPress = ListViewKeyPress
- end
- object PnlBtn: TPanel
- Left = 2
- Top = 2
- Width = 12
- Height = 114
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 1
- object ImgBtn: TImage
- Left = 0
- Top = 0
- Width = 12
- Height = 114
- Align = alClient
- Center = True
- Transparent = True
- OnClick = ImgBtnClick
- end
- end
- end
- object ExplorList: TImageList
- AllocBy = 100
- DrawingStyle = dsFocus
- Masked = False
- Left = 216
- Top = 48
- end
- object PopLst: TPopupMenu
- OnPopup = PopLstPopup
- Left = 88
- Top = 48
- object MenuExplorer: TMenuItem
- Caption = 'Explorer'
- OnClick = MenuExplorerClick
- object MenuExploreDir: TMenuItem
- Caption = 'Un dossier...'
- OnClick = MenuExploreDirClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object MenuExploreImage: TMenuItem
- Caption = 'Le dossier de l'#39'image en cours'
- OnClick = MenuExploreImageClick
- end
- object MenuExploreOuvrir: TMenuItem
- Caption = 'Le dossier d'#39'ouverture'
- OnClick = MenuExploreOuvrirClick
- end
- object MenuExploreSave: TMenuItem
- Caption = 'Le dossier d'#39'enregistrement'
- OnClick = MenuExploreSaveClick
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object MenuExploreSel: TMenuItem
- Caption = 'Le dossier des s'#233'lections'
- OnClick = MenuExploreSelClick
- end
- object MenuExploreMasque: TMenuItem
- Caption = 'Le dossier des masques'
- OnClick = MenuExploreMasqueClick
- end
- object MenuExploreMotif: TMenuItem
- Caption = 'Le dossier des motifs'
- OnClick = MenuExploreMotifClick
- end
- end
- object MenuImage: TMenuItem
- Caption = 'Image'
- object MenuRename: TMenuItem
- Caption = 'Renommer l'#39'image...'
- OnClick = MenuRenameClick
- end
- object MenuMove: TMenuItem
- Caption = 'D'#233'placer l'#39'image vers...'
- OnClick = MenuMoveClick
- end
- object MenuCopy: TMenuItem
- Caption = 'Copier l'#39'image vers...'
- OnClick = MenuCopyClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object MenuDelete: TMenuItem
- Caption = 'Supprimer l'#39'image'
- OnClick = MenuDeleteClick
- end
- end
- object MenuAction: TMenuItem
- Caption = 'Action'
- OnClick = MenuActionClick
- object MenuActionSel: TMenuItem
- Caption = 'Charger cette forme'
- OnClick = MenuActionSelClick
- end
- object MenuActionMasque: TMenuItem
- Caption = 'Lancer PhotoMosque avec ce masque'
- OnClick = MenuActionMasqueClick
- end
- object MenuActionMotif: TMenuItem
- Caption = 'Utiliser comme motif'
- OnClick = MenuActionMotifClick
- end
- object MenuSepAction: TMenuItem
- Caption = '-'
- end
- object MenuActionPF: TMenuItem
- Caption = 'Ouvrir en tant que nouvelle image'
- OnClick = MenuActionPFClick
- end
- object MenuActionShell: TMenuItem
- Caption = 'Ouvrir avec le programme associ'#233
- OnClick = MenuActionShellClick
- end
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object MenuActualiser: TMenuItem
- Caption = 'Actualiser'
- OnClick = MenuActualiserClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object MenuProprietes: TMenuItem
- Caption = 'Propri'#233't'#233's de l'#39'image'
- OnClick = MenuProprietesClick
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object MenuTrier: TMenuItem
- Caption = 'Trier'
- Checked = True
- OnClick = MenuTrierClick
- end
- object MenuRecurssif: TMenuItem
- Caption = 'Inclure les sous-dossiers'
- OnClick = MenuRecurssifClick
- end
- object MenuFiltre: TMenuItem
- Caption = 'Filtre personnalis'#233'...'
- OnClick = MenuFiltreClick
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object MenuVider: TMenuItem
- Caption = 'Vider la liste des vignettes'
- OnClick = MenuViderClick
- end
- end
- end
-