Ignore:
Timestamp:
Apr 19, 2010, 5:24:20 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Fixed Text Object Parameters

Location:
cprs/branches/tmg-cprs/CPRS-Chart/Options
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm

    r735 r738  
    11object frmOptions: TfrmOptions
    2   Left = 283
    3   Top = 179
     2  Left = 302
     3  Top = 223
    44  Width = 435
    55  Height = 397
    … …  
    17961796          Caption = 'Enable Images Tab'
    17971797          TabOrder = 0
     1798          OnClick = cbEnableImagesClick
    17981799        end
    17991800        object cboTransMethod: TComboBox
    … …  
    18061807          TabOrder = 1
    18071808          Text = 'Dropbox Transfer'
     1809          OnChange = cboTransMethodChange
    18081810          Items.Strings = (
    18091811            'Dropbox Transfer'
    … …  
    18111813            'Embedded in RPCs')
    18121814        end
    1813         object Edit1: TEdit
     1815        object editDropboxLocation: TEdit
    18141816          Left = 16
    18151817          Top = 120
    18161818          Width = 201
    1817           Height = 22
     1819          Height = 21
    18181820          TabOrder = 2
     1821          OnChange = editDropboxLocationChange
    18191822        end
    18201823        object BitBtn1: TBitBtn
    … …  
    18251828          Caption = '...'
    18261829          TabOrder = 3
     1830          OnClick = BitBtn1Click
    18271831          Glyph.Data = {
    18281832            F6000000424DF600000000000000760000002800000010000000100000000100
    … …  
    18421846          Caption = 'Enable auto-upload of scanned images'
    18431847          TabOrder = 4
    1844         end
    1845         object Edit2: TEdit
     1848          OnClick = cbEnableScanningClick
     1849        end
     1850        object editScannedLocation: TEdit
    18461851          Left = 15
    18471852          Top = 199
    18481853          Width = 201
    1849           Height = 22
     1854          Height = 21
    18501855          TabOrder = 5
     1856          OnChange = editScannedLocationChange
    18511857        end
    18521858        object BitBtn2: TBitBtn
    … …  
    18571863          Caption = '...'
    18581864          TabOrder = 6
     1865          OnClick = BitBtn2Click
    18591866          Glyph.Data = {
    18601867            F6000000424DF600000000000000760000002800000010000000100000000100
    … …  
    18741881          TabOrder = 7
    18751882          Text = '60'
     1883          OnChange = edtPolFreqChange
    18761884        end
    18771885      end
    … …  
    20652073      00070043617074696F6E000E0063626F5472616E734D6574686F640102000000
    20662074      5A00000005004974656D73590000000400546578740006004C6162656C330101
    2067       0000005B000000070043617074696F6E0005004564697431000006004C616265
    2068       6C3401010000005C000000070043617074696F6E00070042697442746E310000
    2069       0A00646C675069636B446972000010006362456E61626C655363616E6E696E67
    2070       01010000005D000000070043617074696F6E0006004C6162656C350101000000
    2071       5E000000070043617074696F6E00050045646974320000070042697442746E32
    2072       000006004C6162656C3601010000005F000000070043617074696F6E000A0065
    2073       6474506F6C46726571000006004C6162656C3701010000006000000007004361
    2074       7074696F6E00}
     2075      0000005B000000070043617074696F6E0013006564697444726F70626F784C6F
     2076      636174696F6E000006004C6162656C3401010000005C00000007004361707469
     2077      6F6E00070042697442746E3100000A00646C675069636B446972000010006362
     2078      456E61626C655363616E6E696E6701010000005D000000070043617074696F6E
     2079      0006004C6162656C3501010000005E000000070043617074696F6E0013006564
     2080      69745363616E6E65644C6F636174696F6E0000070042697442746E3200000600
     2081      4C6162656C3601010000005F000000070043617074696F6E000A00656474506F
     2082      6C46726571000006004C6162656C37010100000060000000070043617074696F
     2083      6E00}
    20752084  end
    20762085  object dlgPickDir: TOpenDialog

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.pas

    r735 r738  
    77  Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
    88  Buttons, ComCtrls, ExtCtrls, ORCtrls, OrFn, Dialogs, ORDtTmRng, fBAOptionsDiagnoses,
    9   uBAGlobals, TntStdCtrls, DKLang, jpeg, inifiles;
     9  uBAGlobals, TntStdCtrls, DKLang, jpeg, inifiles, uConst, StrUtils;
    1010
    1111//kt added 6/29/07 ------------------
    … …  
    139139    cboTransMethod: TComboBox;
    140140    Label3: TLabel;
    141     Edit1: TEdit;
     141    editDropboxLocation: TEdit;
    142142    Label4: TLabel;
    143143    BitBtn1: TBitBtn;
    … …  
    145145    cbEnableScanning: TCheckBox;
    146146    Label5: TLabel;
    147     Edit2: TEdit;
     147    editScannedLocation: TEdit;
    148148    BitBtn2: TBitBtn;
    149149    Label6: TLabel;
    … …  
    188188    procedure lbSkinsKeyPress(Sender: TObject; var Key: Char);
    189189    procedure btnDisableSkinClick(Sender: TObject);
    190     procedure cbSkinAtStartupClick(Sender: TObject);  //kt added 6/29/07
     190    procedure cbSkinAtStartupClick(Sender: TObject);
     191    procedure cboTransMethodChange(Sender: TObject);
     192    procedure cbEnableImagesClick(Sender: TObject);
     193    procedure editDropboxLocationChange(Sender: TObject);
     194    procedure cbEnableScanningClick(Sender: TObject);
     195    procedure editScannedLocationChange(Sender: TObject);
     196    procedure edtPolFreqChange(Sender: TObject);
     197    procedure BitBtn1Click(Sender: TObject);
     198    procedure BitBtn2Click(Sender: TObject);  //kt added 6/29/07
    191199  private
    192200    { Private declarations }
    193201    FdirtyNotifications: boolean;  // used to determine edit changes to Notifications
     202    FdirtyImageSettings: boolean;  // used to determine edit changes to Image Settings
    194203    FdirtyOrderChecks: boolean;    // used to determine edit changes to Order Checks
    195204    FdirtyOtherStuff: boolean;     // used to determine edit changes to misc settings
    … …  
    201210    procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer);
    202211    procedure LoadNotifications;
     212    procedure LoadImageSettings;
    203213    procedure LoadOrderChecks;
    204214    procedure ApplyNotifications;
    205215    procedure ApplyOrderChecks;
    206216    procedure ApplyOtherStuff;
     217    procedure ApplyImageSettings;
    207218    procedure CheckApply;
    208219    procedure LoadListView(aListView: TListView; aList: TStrings);
    209220    procedure ChangeOnOff(aListView: TListView; aListItem: TListItem);
     221    function BrowseDialog(const Title: string; const Flag: integer): string;
    210222  public
    211223    { Public declarations }
    … …  
    228240    ShellAPI, //kt 9/8/08
    229241    uTMGOptions, //kt 2/10/10
     242    UploadImages, fImages, //elh 04/15/10
     243    ShlObj,  //elh 04/15/10
    230244    ORNet, //allows access to RPCBrokerV
    231245    TntForms, TntSystem, TntSysUtils;
    … …  
    346360    LoadNotifications;
    347361    LoadOrderChecks;
     362    LoadImageSettings;
     363    FdirtyImageSettings := false;
    348364    FdirtyNotifications := false;
    349365    FdirtyOrderChecks := false;
    … …  
    469485    if FdirtyNotifications then
    470486      ApplyNotifications;
     487    if FdirtyImageSettings then
     488      ApplyImageSettings;
    471489    if FdirtyOrderChecks then
    472490      ApplyOrderChecks;
    … …  
    493511    btnSurrogate.Hint := surrogateinfo;
    494512    LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText);
     513  end;
     514
     515  procedure TfrmOptions.LoadImageSettings;
     516  begin
     517     cbEnableImages.Checked := uTMGOptions.ReadBool('EnableImages',false);
     518     cboTransMethod.ItemIndex :=  uTMGOptions.ReadInteger('ImageTransferMethod',0);
     519     editDropboxLocation.text := uTMGOptions.ReadString('Dropbox directory','');
     520     cbEnableScanning.Checked := uTMGOptions.ReadBool('Scan Enabled',false);
     521     editScannedLocation.text := uTMGOptions.ReadString('Pol Directory','');
     522     edtPolFreq.text := IntToStr(uTMGOptions.ReadInteger('Pol Interval (milliseconds)',0));
     523
     524     cbEnableScanningClick(self);
     525     cboTransMethodChange(self);
    495526  end;
    496527
    … …  
    531562  end;
    532563
     564  procedure TfrmOptions.ApplyImageSettings;
     565  begin
     566     uTMGOptions.WriteBool('EnableImages',cbEnableImages.Checked);
     567     frmFrame.SetATabVisibility(CT_IMAGES, cbEnableImages.Checked, 'Images');
     568
     569     uTMGOptions.WriteInteger('ImageTransferMethod',cboTransMethod.itemindex);
     570     if cboTransMethod.text = 'Dropbox Transfer' then begin
     571        frmImages.UseDropBox := True;
     572     end else begin
     573        frmImages.UseDropBox := False;
     574     end;
     575
     576     uTMGOptions.WriteString('Dropbox directory',editDropboxLocation.text);
     577     frmImages.DropBoxDir := editDropboxLocation.text;
     578
     579     uTMGOptions.WriteBool('Scan Enabled',cbEnableScanning.Checked);
     580
     581     uTMGOptions.WriteString('Pol Directory',editScannedLocation.text);
     582     UploadForm.FScanDir := editScannedLocation.text;
     583
     584     uTMGOptions.WriteInteger('Pol Interval (milliseconds)',StrToInt(edtPolFreq.text));
     585     UploadForm.PolInterval := StrToInt(edtPolFreq.text);
     586
     587     FdirtyImageSettings := false;
     588  end;
     589
    533590  procedure TfrmOptions.ApplyOrderChecks;
    534591  // save Order Check changes
    … …  
    572629  // determine if Apply button is enabled
    573630  begin
    574     btnApply.Enabled :=  FdirtyOrderChecks or FdirtyNotifications or FdirtyOtherStuff;
     631    btnApply.Enabled :=  FdirtyImageSettings or FdirtyOrderChecks or FdirtyNotifications or FdirtyOtherStuff;
    575632  end;
    576633
    … …  
    9611018  end;
    9621019
     1020procedure TfrmOptions.cboTransMethodChange(Sender: TObject);
     1021begin
     1022    if cboTransMethod.text = 'Dropbox Transfer' then begin
     1023       editDropboxLocation.enabled := true;
     1024       bitbtn1.enabled := true;
     1025    end else begin
     1026       editDropboxLocation.enabled := false;
     1027       bitbtn1.enabled := false;
     1028    end;
     1029    FdirtyImageSettings := true;
     1030    CheckApply;
     1031end;
     1032
     1033procedure TfrmOptions.cbEnableImagesClick(Sender: TObject);
     1034begin
     1035   FdirtyImageSettings := true;
     1036   CheckApply;
     1037end;
     1038
     1039procedure TfrmOptions.editDropboxLocationChange(Sender: TObject);
     1040begin
     1041   FdirtyImageSettings := true;
     1042   CheckApply;
     1043end;
     1044
     1045procedure TfrmOptions.cbEnableScanningClick(Sender: TObject);
     1046begin
     1047   editScannedLocation.enabled := cbEnableScanning.checked;
     1048   bitbtn2.enabled := cbEnableScanning.checked;
     1049   edtPolFreq.enabled := cbEnableScanning.checked;
     1050   FdirtyImageSettings := true;
     1051   CheckApply;
     1052end;
     1053
     1054procedure TfrmOptions.editScannedLocationChange(Sender: TObject);
     1055begin
     1056   FdirtyImageSettings := true;
     1057   CheckApply;
     1058end;
     1059
     1060procedure TfrmOptions.edtPolFreqChange(Sender: TObject);
     1061begin
     1062   FdirtyImageSettings := true;
     1063   CheckApply;
     1064end;
     1065
     1066procedure TfrmOptions.BitBtn1Click(Sender: TObject);
     1067var
     1068   sFolder: string;
     1069begin
     1070  sFolder := BrowseDialog('Choose a Dropbox folder', BIF_RETURNONLYFSDIRS);
     1071  if sFolder <> '' then begin
     1072    if rightstr(sFolder,1) = '\' then begin
     1073       editDropboxLocation.text := sFolder;
     1074    end else begin
     1075       editDropboxLocation.text := sFolder + '\';
     1076    end;
     1077  end;
     1078end;
     1079
     1080function TfrmOptions.BrowseDialog(const Title: string; const Flag: integer): string;
     1081var
     1082  lpItemID : PItemIDList;
     1083  BrowseInfo : TBrowseInfo;
     1084  DisplayName : array[0..MAX_PATH] of char;
     1085  TempPath : array[0..MAX_PATH] of char;
     1086begin
     1087  Result:='';
     1088  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
     1089  with BrowseInfo do begin
     1090    hwndOwner := Application.Handle;
     1091    pszDisplayName := @DisplayName;
     1092    lpszTitle := PChar(Title);
     1093    ulFlags := Flag;
     1094  end;
     1095  lpItemID := SHBrowseForFolder(BrowseInfo);
     1096  if lpItemId <> nil then begin
     1097    SHGetPathFromIDList(lpItemID, TempPath);
     1098    Result := TempPath;
     1099    GlobalFreePtr(lpItemID);
     1100  end;
     1101end;
     1102
     1103
     1104procedure TfrmOptions.BitBtn2Click(Sender: TObject);
     1105var
     1106   sFolder: string;
     1107begin
     1108  sFolder := BrowseDialog('Choose a Scanned folder', BIF_RETURNONLYFSDIRS);
     1109  if sFolder <> '' then begin
     1110    if rightstr(sFolder,1) = '\' then begin
     1111       editScannedLocation.text := sFolder;
     1112    end else begin
     1113       editScannedLocation.text := sFolder + '\';
     1114    end;
     1115  end;
     1116end;
     1117
    9631118end.
    9641119
Note: See TracChangeset for help on using the changeset viewer.