object JobPreviewForm: TJobPreviewForm Left = 480 Top = 115 HelpContext = 4 BorderStyle = bsDialog Caption = 'Aper�u' ClientHeight = 430 ClientWidth = 556 Color = clBtnFace Constraints.MinHeight = 377 Constraints.MinWidth = 389 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False PopupMenu = PopupMenu1 Position = poScreenCenter Scaled = False ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnKeyUp = FormKeyUp OnMouseWheel = FormMouseWheel OnMouseWheelDown = FormMouseWheelDown OnMouseWheelUp = FormMouseWheelUp OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Panel1: TPanel Left = 0 Top = 392 Width = 556 Height = 38 Anchors = [akBottom] BevelOuter = bvNone TabOrder = 2 object PauseButton: TSpeedButton Left = 173 Top = 8 Width = 24 Height = 23 Hint = 'Pause' AllowAllUp = True GroupIndex = 1 Enabled = False Flat = True Glyph.Data = { 6E000000424D6E000000000000003E000000280000000C0000000C0000000100 010000000000300000000000000000000000020000000200000000000000FFFF FF00FFF00000C6300000C6300000C6300000C6300000C6300000C6300000C630 0000C6300000C6300000C6300000FFF00000} OnClick = PauseButtonClick end object StopButton: TSpeedButton Left = 197 Top = 8 Width = 24 Height = 23 Hint = 'Arr�te la lecture et retourne � la premi�re image.' AllowAllUp = True GroupIndex = 1 Down = True Enabled = False Flat = True Glyph.Data = { 6E000000424D6E000000000000003E000000280000000C0000000C0000000100 010000000000300000000000000000000000020000000200000000000000FFFF FF00FFF000008010000080100000801000008010000080100000801000008010 0000801000008010000080100000FFF00000} OnClick = StopButtonClick end object Bevel4: TBevel Left = 227 Top = 7 Width = 2 Height = 26 end object DisableFilterButton: TSpeedButton Tag = -1 Left = 344 Top = 8 Width = 71 Height = 25 Hint = 'D�sactive les filtres vid�o.' AllowAllUp = True GroupIndex = 10 Caption = 'Filtre inactif' Enabled = False Flat = True OnClick = DisableFilterButtonClick end object Bevel2: TBevel Left = 336 Top = 6 Width = 2 Height = 26 end object PrevFrameButton: TSpeedButton Tag = -1 Left = 235 Top = 8 Width = 24 Height = 23 Hint = 'Retourne � l'#39'image pr�c�dente.' AllowAllUp = True Anchors = [akRight, akBottom] GroupIndex = 2 Enabled = False Flat = True Glyph.Data = { 6E000000424D6E000000000000003E000000280000000C0000000C0000000100 010000000000300000000000000000000000020000000200000000000000FFFF FF00FFF00000FFF00000BDD00000B9900000B1100000A0100000A0100000B110 0000B9900000BDD00000FFF00000FFF00000} OnClick = FrameSeekButtonClick OnMouseDown = FrameSeekButtonMouseDown OnMouseUp = FrameSeekButtonMouseUp end object BackwardButton: TSpeedButton Tag = -5 Left = 259 Top = 8 Width = 24 Height = 23 Hint = 'Retour' AllowAllUp = True Anchors = [akRight, akBottom] GroupIndex = 2 Enabled = False Flat = True Glyph.Data = { 6E000000424D6E000000000000003E000000280000000C0000000C0000000100 010000000000300000000000000000000000020000000200000000000000FFFF FF00FFF00000FFF00000FBB00000F3300000E2300000C0300000C0300000E230 0000F3300000FBB00000FFF00000FFF00000} OnClick = BackwardButtonClick OnMouseDown = BackwardButtonMouseDown OnMouseUp = BackwardButtonMouseUp end object ForwardButton: TSpeedButton Tag = 5 Left = 283 Top = 8 Width = 24 Height = 23 Hint = 'Avance rapide.' AllowAllUp = True Anchors = [akRight, akBottom] GroupIndex = 2 Enabled = False Flat = True Glyph.Data = { 6E000000424D6E000000000000003E000000280000000C0000000C0000000100 010000000000300000000000000000000000020000000200000000000000FFFF FF00FFF00000FFF00000DDF00000CCF00000C4700000C0300000C0300000C470 0000CCF00000DDF00000FFF00000FFF00000} OnClick = BackwardButtonClick OnMouseDown = BackwardButtonMouseDown OnMouseUp = BackwardButtonMouseUp end object NextFrameButton: TSpeedButton Tag = 1 Left = 307 Top = 8 Width = 24 Height = 23 Hint = 'Avance � l'#39'image suivante' AllowAllUp = True Anchors = [akRight, akBottom] GroupIndex = 2 Enabled = False Flat = True Glyph.Data = { 6E000000424D6E000000000000003E000000280000000C0000000C0000000100 010000000000300000000000000000000000020000000200000000000000FFFF FF00FFF00000FFF00000BBD0000099D0000088D00000805000008050000088D0 000099D00000BBD00000FFF00000FFF00000} OnClick = FrameSeekButtonClick OnMouseDown = FrameSeekButtonMouseDown OnMouseUp = FrameSeekButtonMouseUp end object PlayButton: TSpeedButton Left = 149 Top = 8 Width = 24 Height = 23 Hint = 'Lit la s�quence.' AllowAllUp = True GroupIndex = 1 Enabled = False Flat = True Glyph.Data = { 6E000000424D6E000000000000003E000000280000000C0000000C0000000100 010000000000300000000000000000000000020000000200000000000000FFFF FF00FFF000009FF0000087F0000081F000008070000080100000801000008070 000081F0000087F000009FF00000FFF00000} OnClick = PlayButtonClick end end object PreviewPanel: TPanel Left = 5 Top = 5 Width = 547 Height = 387 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 0 OnDblClick = N8Click object ResultVideoBox: TDXPaintBox Left = 0 Top = 18 Width = 543 Height = 345 AutoStretch = True Center = True KeepAspect = True Stretch = True ViewWidth = 0 ViewHeight = 0 Align = alClient OnClick = ResultVideoBoxClick OnDblClick = N8Click end object FrameInfoLabel: TLabel Left = 0 Top = 0 Width = 543 Height = 16 Align = alTop AutoSize = False Color = clBtnFace ParentColor = False end object Label1: TLabel Left = 0 Top = 16 Width = 543 Height = 2 Align = alTop AutoSize = False end object Label2: TLabel Left = 0 Top = 363 Width = 543 Height = 4 Align = alBottom AutoSize = False end object VideoScrollBar: TScrollBar Left = 0 Top = 367 Width = 543 Height = 16 Align = alBottom Enabled = False PageSize = 1 TabOrder = 0 OnChange = VideoScrollBarChange OnKeyDown = VideoScrollBarKeyDown end end object CloseButton: TButton Left = 489 Top = 399 Width = 62 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Fermer' TabOrder = 1 OnClick = CloseButtonClick end object PopupMenu1: TPopupMenu Left = 128 Top = 72 object N1: TMenuItem Tag = 1 Caption = 'Taille originale' OnClick = N1Click end object N2: TMenuItem Tag = 2 Caption = 'Zoom 2x' OnClick = N1Click end object N3: TMenuItem Tag = 3 Caption = 'Zoom 3x' OnClick = N1Click end object N4: TMenuItem Tag = 4 Caption = 'Zoom 4x' OnClick = N1Click end object N6: TMenuItem Caption = 'Agrandir automatiquement lors de l'#39'affichage' OnClick = N1Click end object N7: TMenuItem Tag = -100 Caption = 'Taille maximum' Visible = False OnClick = N1Click end object N8: TMenuItem Caption = 'Plein �cran' Visible = False OnClick = N8Click end object N5: TMenuItem Caption = '-' end object CopyClipboardMenuItem: TMenuItem Caption = '&Copier dans presse-papiers' ShortCut = 16451 OnClick = CopyClipboardMenuItemClick end end object JogCommandProcessor: TJogCommandProcessor OnDisplayFrame = JogCommandProcessorDisplayFrame OnPlayStates = JogCommandProcessorPlayStates OnPlayStart = JogCommandProcessorPlayStart OnPlayStop = JogCommandProcessorPlayStop OnGetReferenceTime = JogCommandProcessorGetReferenceTime Left = 128 Top = 128 end end