Changeset 220


Ignore:
Timestamp:
Jun 18, 2007, 3:41:12 PM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current/Tools
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • oup/current/Tools/Extractor.dfm

    r105 r220  
    11inherited Form_Extractor: TForm_Extractor
    2   Caption = 'Extractor'
    3   ClientHeight = 491
    4   ExplicitHeight = 518
     2  Caption = 'Form_Extractor'
     3  OnCreate = FormCreate
    54  PixelsPerInch = 96
    65  TextHeight = 13
    7   inherited Splitter1: TSplitter
    8     Left = 483
    9     Height = 491
    10     Align = alRight
    11     Visible = False
    12     ExplicitLeft = 172
    13     ExplicitTop = -8
    14     ExplicitHeight = 423
    15   end
    16   inherited panel_files: TPanel
    17     Width = 333
    18     Height = 491
    19     ExplicitWidth = 333
    20     ExplicitHeight = 491
    21     inherited filelist: TListBox
    22       Width = 333
    23       Height = 338
    24       MultiSelect = True
    25       ExplicitWidth = 333
    26       ExplicitHeight = 338
     6  inherited panel_basecontent: TPanel
     7    inherited splitter_content: TSplitter
     8      Left = 300
    279    end
    28     inherited panel_extension: TPanel
    29       Width = 333
    30       ExplicitWidth = 333
    31       inherited Bevel1: TBevel
    32         Width = 327
    33         ExplicitWidth = 327
    34       end
    35       inherited combo_extension: TComboBox
    36         Width = 325
    37         ExplicitWidth = 325
    38       end
    39       inherited check_zerobyte: TCheckBox
     10    inherited panel_files: TPanel
     11      Width = 300
     12      ExplicitWidth = 300
     13      inherited filelist: TListBox
     14        Width = 300
     15      end
     16      inherited panel_extension: TPanel
     17        Width = 300
     18        inherited bevel_filelist: TBevel
     19          Width = 299
     20        end
     21        inherited combo_extension: TComboBox
     22          Width = 296
     23        end
     24        inherited edit_filtername: TEdit
     25          Width = 296
     26        end
     27      end
     28    end
     29    inherited panel_content: TPanel
     30      Left = 308
     31      Width = 290
     32      object group_extract: TGroupBox
     33        AlignWithMargins = True
     34        Left = 6
     35        Top = 3
     36        Width = 278
     37        Height = 415
     38        Margins.Left = 6
     39        Margins.Right = 6
     40        Align = alClient
     41        Caption = '2. Select extract-method'
     42        TabOrder = 0
     43        ExplicitWidth = 138
     44        ExplicitHeight = 374
     45        DesignSize = (
     46          278
     47          415)
     48        object label_export_sel: TLabel
     49          Left = 7
     50          Top = 18
     51          Width = 62
     52          Height = 20
     53          AutoSize = False
     54          Caption = 'Export ...'
     55        end
     56        object label_path: TLabel
     57          Left = 7
     58          Top = 136
     59          Width = 30
     60          Height = 18
     61          AutoSize = False
     62          Caption = 'Path:'
     63        end
     64        object check_dat: TCheckBox
     65          Left = 7
     66          Top = 75
     67          Width = 121
     68          Height = 18
     69          Caption = 'Export .dat-entries'
     70          Checked = True
     71          State = cbChecked
     72          TabOrder = 0
     73        end
     74        object check_raw: TCheckBox
     75          Left = 7
     76          Top = 94
     77          Width = 121
     78          Height = 18
     79          Caption = 'Export .raw-entries'
     80          TabOrder = 1
     81        end
     82        object check_convert: TCheckBox
     83          Left = 7
     84          Top = 112
     85          Width = 121
     86          Height = 18
     87          Caption = 'Convert files'
     88          TabOrder = 2
     89        end
     90        object radio_selected: TRadioButton
     91          Left = 7
     92          Top = 36
     93          Width = 113
     94          Height = 17
     95          Caption = 'selected files'
     96          Checked = True
     97          TabOrder = 3
     98          TabStop = True
     99        end
     100        object radio_all: TRadioButton
     101          Left = 7
     102          Top = 52
     103          Width = 113
     104          Height = 17
     105          Caption = 'all files in list'
     106          TabOrder = 4
     107        end
     108        object edit_path: TEdit
     109          Left = 36
     110          Top = 133
     111          Width = 168
     112          Height = 21
     113          Anchors = [akLeft, akTop, akRight]
     114          ReadOnly = True
     115          TabOrder = 5
     116          Text = 'C:\'
     117          ExplicitWidth = 276
     118        end
     119        object btn_path: TButton
     120          Left = 210
     121          Top = 133
     122          Width = 62
     123          Height = 21
     124          Anchors = [akTop, akRight]
     125          Caption = 'Select...'
     126          TabOrder = 6
     127          OnClick = btn_pathClick
     128          ExplicitLeft = 318
     129        end
     130        object btn_export: TButton
     131          Left = 7
     132          Top = 180
     133          Width = 75
     134          Height = 25
     135          Caption = 'Export!'
     136          TabOrder = 7
     137          OnClick = btn_exportClick
     138        end
     139      end
     140      object group_progress: TGroupBox
     141        AlignWithMargins = True
     142        Left = 6
     143        Top = 422
     144        Width = 278
     145        Height = 104
     146        Margins.Left = 6
     147        Margins.Top = 1
     148        Margins.Right = 6
     149        Margins.Bottom = 6
     150        Align = alBottom
     151        Caption = 'Progress ...'
     152        TabOrder = 1
    40153        Visible = False
    41       end
    42       inherited edit_filtername: TEdit
    43         Width = 325
    44         ExplicitWidth = 325
    45       end
    46       inherited combo_connection: TComboBox
    47         Width = 263
    48         ExplicitWidth = 263
    49       end
    50     end
    51   end
    52   inherited content: TPanel
    53     Left = 333
    54     Width = 150
    55     Height = 491
    56     ExplicitLeft = 333
    57     ExplicitWidth = 150
    58     ExplicitHeight = 491
    59     object group_extract: TGroupBox
    60       AlignWithMargins = True
    61       Left = 6
    62       Top = 3
    63       Width = 138
    64       Height = 374
    65       Margins.Left = 6
    66       Margins.Right = 6
    67       Align = alClient
    68       Caption = '2. Select extract-method'
    69       TabOrder = 0
    70       DesignSize = (
    71         138
    72         374)
    73       object label_export_sel: TLabel
    74         Left = 7
    75         Top = 18
    76         Width = 62
    77         Height = 20
    78         AutoSize = False
    79         Caption = 'Export ...'
    80       end
    81       object label_path: TLabel
    82         Left = 7
    83         Top = 136
    84         Width = 30
    85         Height = 18
    86         AutoSize = False
    87         Caption = 'Path:'
    88       end
    89       object check_dat: TCheckBox
    90         Left = 7
    91         Top = 75
    92         Width = 121
    93         Height = 18
    94         Anchors = [akLeft, akTop, akRight]
    95         Caption = 'Export .dat-entries'
    96         Checked = True
    97         State = cbChecked
    98         TabOrder = 0
    99       end
    100       object check_raw: TCheckBox
    101         Left = 7
    102         Top = 94
    103         Width = 121
    104         Height = 18
    105         Anchors = [akLeft, akTop, akRight]
    106         Caption = 'Export .raw-entries'
    107         TabOrder = 1
    108       end
    109       object check_convert: TCheckBox
    110         Left = 7
    111         Top = 112
    112         Width = 121
    113         Height = 18
    114         Anchors = [akLeft, akTop, akRight]
    115         Caption = 'Convert files'
    116         TabOrder = 2
    117       end
    118       object radio_selected: TRadioButton
    119         Left = 7
    120         Top = 36
    121         Width = 113
    122         Height = 17
    123         Caption = 'selected files'
    124         Checked = True
    125         TabOrder = 3
    126         TabStop = True
    127       end
    128       object radio_all: TRadioButton
    129         Left = 7
    130         Top = 52
    131         Width = 113
    132         Height = 17
    133         Caption = 'all files in list'
    134         TabOrder = 4
    135       end
    136       object edit_path: TEdit
    137         Left = 36
    138         Top = 133
    139         Width = 28
    140         Height = 21
    141         Anchors = [akLeft, akTop, akRight]
    142         ReadOnly = True
    143         TabOrder = 5
    144         Text = 'C:\'
    145         OnClick = btn_pathClick
    146       end
    147       object btn_path: TButton
    148         Left = 70
    149         Top = 133
    150         Width = 62
    151         Height = 21
    152         Anchors = [akTop, akRight]
    153         Caption = 'Select...'
    154         TabOrder = 6
    155         OnClick = btn_pathClick
    156       end
    157       object btn_export: TButton
    158         Left = 7
    159         Top = 180
    160         Width = 75
    161         Height = 25
    162         Caption = 'Export!'
    163         TabOrder = 7
    164         OnClick = btn_exportClick
    165       end
    166     end
    167     object group_progress: TGroupBox
    168       AlignWithMargins = True
    169       Left = 6
    170       Top = 381
    171       Width = 138
    172       Height = 104
    173       Margins.Left = 6
    174       Margins.Top = 1
    175       Margins.Right = 6
    176       Margins.Bottom = 6
    177       Align = alBottom
    178       Caption = 'Progress ...'
    179       TabOrder = 1
    180       Visible = False
    181       DesignSize = (
    182         138
    183         104)
    184       object lbl_progress: TLabel
    185         Left = 8
    186         Top = 40
    187         Width = 265
    188         Height = 17
    189         AutoSize = False
    190         Caption = 'Files done: 0/0'
    191       end
    192       object lbl_estimated: TLabel
    193         Left = 8
    194         Top = 56
    195         Width = 265
    196         Height = 17
    197         AutoSize = False
    198         Caption = 'Estimated finishing time: 00:00:00'
    199       end
    200       object progress: TProgressBar
    201         Left = 8
    202         Top = 16
    203         Width = 122
    204         Height = 17
    205         Anchors = [akLeft, akTop, akRight]
    206         Smooth = True
    207         TabOrder = 0
    208       end
    209       object btn_abort: TButton
    210         Left = 8
    211         Top = 72
    212         Width = 97
    213         Height = 23
    214         Caption = 'Abort'
    215         Enabled = False
    216         TabOrder = 1
    217         OnClick = btn_abortClick
     154        ExplicitTop = 381
     155        ExplicitWidth = 138
     156        DesignSize = (
     157          278
     158          104)
     159        object lbl_progress: TLabel
     160          Left = 8
     161          Top = 40
     162          Width = 257
     163          Height = 17
     164          Anchors = [akLeft, akTop, akRight]
     165          AutoSize = False
     166          Caption = 'Files done: 0/0'
     167          ExplicitWidth = 265
     168        end
     169        object lbl_estimated: TLabel
     170          Left = 8
     171          Top = 56
     172          Width = 257
     173          Height = 17
     174          Anchors = [akLeft, akTop, akRight]
     175          AutoSize = False
     176          Caption = 'Estimated finishing time: 00:00:00'
     177          ExplicitWidth = 265
     178        end
     179        object progress: TProgressBar
     180          Left = 8
     181          Top = 17
     182          Width = 261
     183          Height = 17
     184          Anchors = [akLeft, akTop, akRight]
     185          Smooth = True
     186          TabOrder = 0
     187          ExplicitWidth = 369
     188        end
     189        object btn_abort: TButton
     190          Left = 8
     191          Top = 72
     192          Width = 97
     193          Height = 23
     194          Caption = 'Abort'
     195          Enabled = False
     196          TabOrder = 1
     197          OnClick = btn_abortClick
     198        end
    218199      end
    219200    end

  • oup/current/Tools/Extractor.pas

    r111 r220  
    11unit Extractor;
     2
    23interface
     4
    35uses
    46  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    5   Dialogs, Template, StdCtrls, ExtCtrls, ComCtrls, Menus, Buttons, StrUtils;
     7  Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons, ComCtrls;
    68
    79type
    8   TForm_Extractor = class(TForm_ToolTemplate)
     10  TForm_Extractor = class(TForm_TemplateFileList)
    911    group_extract: TGroupBox;
     12    label_export_sel: TLabel;
     13    label_path: TLabel;
    1014    check_dat: TCheckBox;
    1115    check_raw: TCheckBox;
    1216    check_convert: TCheckBox;
    1317    radio_selected: TRadioButton;
    14     label_export_sel: TLabel;
    1518    radio_all: TRadioButton;
    16     label_path: TLabel;
    1719    edit_path: TEdit;
    1820    btn_path: TButton;
    … …  
    2325    progress: TProgressBar;
    2426    btn_abort: TButton;
     27    procedure btn_abortClick(Sender: TObject);
    2528    procedure FormCreate(Sender: TObject);
    26     procedure btn_abortClick(Sender: TObject);
     29    procedure btn_exportClick(Sender: TObject);
    2730    procedure btn_pathClick(Sender: TObject);
    28     procedure btn_exportClick(Sender: TObject);
    2931  private
    3032  public
    3133  end;
    3234
    33 var
    34   Form_Extractor: TForm_Extractor;
    3535
    3636implementation
    3737{$R *.dfm}
    38 uses Main, Functions, Data, ConnectionManager, FolderBrowser, Exporters;
     38uses
     39  Data, FolderBrowser, Exporters, _TemplateFile, ConnectionManager, Functions,
     40  StrUtils;
    3941
    4042
    41 procedure TForm_Extractor.FormCreate(Sender: TObject);
    42 begin
    43   inherited;
    44   Self.AllowMultiSelect := True;
    45   edit_path.Text := AppSettings.ExtractPath;
    46 end;
    4743
    4844procedure TForm_Extractor.btn_abortClick(Sender: TObject);
    4945begin
    5046  ShowMessage('X');
    51 end;
    52 
    53 procedure TForm_Extractor.btn_pathClick(Sender: TObject);
    54 var
    55   fb: TFolderBrowser;
    56 begin
    57   inherited;
    58 
    59   fb := TFolderBrowser.Create(Handle, 'Please select a folder where you want ' +
    60         'the files to be stored...', edit_path.Text, False, True);
    61   if fb.Execute then
    62   begin
    63     edit_path.Text := fb.SelectedItem;
    64     AppSettings.ExtractPath := edit_path.Text;
    65   end;
    66   fb.Free;
    6747end;
    6848
    … …  
    129109end;
    130110
     111procedure TForm_Extractor.btn_pathClick(Sender: TObject);
     112var
     113  fb: TFolderBrowser;
     114begin
     115  inherited;
     116
     117  fb := TFolderBrowser.Create(Handle, 'Please select a folder where you want ' +
     118        'the files to be stored...', edit_path.Text, False, True);
     119  if fb.Execute then
     120  begin
     121    edit_path.Text := fb.SelectedItem;
     122    AppSettings.ExtractPath := edit_path.Text;
     123  end;
     124  fb.Free;
     125end;
     126
     127procedure TForm_Extractor.FormCreate(Sender: TObject);
     128begin
     129  inherited;
     130  Self.AllowMultiSelect := True;
     131  edit_path.Text := AppSettings.ExtractPath;
     132end;
    131133
    132134begin
    133135  AddToolListEntry('extractor', 'Extractor', '');
    134136end.
     137

  • oup/current/Tools/Preview.dfm

    r209 r220  
    11inherited Form_Preview: TForm_Preview
    2   Caption = 'Preview'
     2  Caption = 'Form_Preview'
    33  OnCreate = FormCreate
    4   ExplicitWidth = 500
    5   ExplicitHeight = 450
    64  PixelsPerInch = 96
    75  TextHeight = 13
    8   inherited Splitter1: TSplitter
    9     OnMoved = Splitter1Moved
    10   end
    11   inherited content: TPanel
    12     object lbl_notpossible: TLabel
    13       Left = 16
    14       Top = 56
    15       Width = 97
    16       Height = 65
    17       AutoSize = False
    18       Caption = 'No preview possible for this filetype'
    19       Font.Charset = DEFAULT_CHARSET
    20       Font.Color = clWindowText
    21       Font.Height = -16
    22       Font.Name = 'Tahoma'
    23       Font.Style = []
    24       ParentFont = False
    25       Visible = False
    26       WordWrap = True
     6  inherited panel_basecontent: TPanel
     7    inherited splitter_content: TSplitter
     8      OnMoved = Splitter1Moved
    279    end
    28     object img: TImage
    29       AlignWithMargins = True
    30       Left = 3
    31       Top = 23
    32       Width = 277
    33       Height = 397
    34       Align = alClient
    35       ExplicitLeft = 0
    36       ExplicitTop = 20
    37       ExplicitWidth = 313
    38       ExplicitHeight = 453
    39     end
    40     object panel_buttons: TPanel
    41       Left = 0
    42       Top = 0
    43       Width = 283
    44       Height = 20
    45       Align = alTop
    46       BevelOuter = bvNone
    47       TabOrder = 0
    48       Visible = False
    49       OnResize = panel_buttonsResize
    50       object btn_dec: TButton
     10    inherited panel_content: TPanel
     11      object img: TImage
     12        AlignWithMargins = True
     13        Left = 3
     14        Top = 23
     15        Width = 384
     16        Height = 506
     17        Align = alClient
     18        ExplicitLeft = 0
     19        ExplicitTop = 20
     20        ExplicitWidth = 313
     21        ExplicitHeight = 453
     22      end
     23      object lbl_notpossible: TLabel
     24        Left = 16
     25        Top = 56
     26        Width = 97
     27        Height = 65
     28        AutoSize = False
     29        Caption = 'No preview possible for this filetype'
     30        Font.Charset = DEFAULT_CHARSET
     31        Font.Color = clWindowText
     32        Font.Height = -16
     33        Font.Name = 'Tahoma'
     34        Font.Style = []
     35        ParentFont = False
     36        Visible = False
     37        WordWrap = True
     38      end
     39      object panel_buttons: TPanel
    5140        Left = 0
    5241        Top = 0
    53         Width = 20
     42        Width = 390
    5443        Height = 20
    55         Caption = '-'
    56         Enabled = False
     44        Align = alTop
     45        BevelOuter = bvNone
    5746        TabOrder = 0
    58         OnClick = btn_decClick
    59       end
    60       object btn_startstop: TButton
    61         Left = 21
    62         Top = 0
    63         Width = 80
    64         Height = 20
    65         Caption = 'Stop automatic'
    66         TabOrder = 1
    67         OnClick = btn_startstopClick
    68       end
    69       object btn_inc: TButton
    70         Left = 102
    71         Top = 0
    72         Width = 20
    73         Height = 20
    74         Caption = '+'
    75         Enabled = False
    76         TabOrder = 2
    77         OnClick = btn_incClick
     47        Visible = False
     48        OnResize = panel_buttonsResize
     49        ExplicitWidth = 283
     50        object btn_dec: TButton
     51          Left = 0
     52          Top = 0
     53          Width = 20
     54          Height = 20
     55          Caption = '-'
     56          Enabled = False
     57          TabOrder = 0
     58          OnClick = btn_decClick
     59        end
     60        object btn_startstop: TButton
     61          Left = 21
     62          Top = 0
     63          Width = 80
     64          Height = 20
     65          Caption = 'Stop automatic'
     66          TabOrder = 1
     67          OnClick = btn_startstopClick
     68        end
     69        object btn_inc: TButton
     70          Left = 102
     71          Top = 0
     72          Width = 20
     73          Height = 20
     74          Caption = '+'
     75          Enabled = False
     76          TabOrder = 2
     77          OnClick = btn_incClick
     78        end
    7879      end
    7980    end
    8081  end
    81   object timer: TTimer [3]
     82  object timer: TTimer
    8283    Enabled = False
    8384    OnTimer = timerTimer

  • oup/current/Tools/Preview.pas

    r194 r220  
    11unit Preview;
     2
    23interface
     4
    35uses
    46  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    5   Dialogs, StdCtrls, Template, ExtCtrls, Math, StrUtils,
    6   ConnectionManager, OniImgClass, Data, TypeDefs, Menus, Buttons;
     7  Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons,
     8  TypeDefs, OniImgClass;
    79
    810type
    9   TForm_Preview = class(TForm_ToolTemplate)
    10     lbl_notpossible: TLabel;
     11  TForm_Preview = class(TForm_TemplateFileList)
     12    img: TImage;
    1113    panel_buttons: TPanel;
    1214    btn_dec: TButton;
    1315    btn_startstop: TButton;
    1416    btn_inc: TButton;
    15     img: TImage;
    1617    timer: TTimer;
     18    lbl_notpossible: TLabel;
    1719    procedure FormCreate(Sender: TObject);
    1820    procedure NewFile(fileinfo: TFileInfo);
    … …  
    3739  end;
    3840
    39 var
    40   Form_Preview: TForm_Preview;
    41 
    4241implementation
    4342{$R *.dfm}
    44 uses Imaging, ImagingComponents, ImagingTypes, jpeg;
     43uses
     44  ConnectionManager, Math, _TemplateFile;
    4545
    4646
    … …  
    214214  AddToolListEntry('preview', 'Preview-Window', '');
    215215end.
     216
Note: See TracChangeset for help on using the changeset viewer.