Ignore:
Timestamp:
Jun 16, 2010, 8:23:07 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Bug fixes. Improved Adding Image

Location:
cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra
Files:
2 added
9 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/fPtAdd.pas

    r541 r801  
    479479    //CheckPost('PtType',PtType);
    480480
    481     RPCBrokerV.Call;
     481    //RPCBrokerV.Call;
     482    CallBroker;
    482483    tempS := RPCBrokerV.Results.Strings[0];
    483484    tempResult := strtoint(piece(tempS,'^',1));

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/fWebTab.dfm

    r541 r801  
    1313  OldCreateOrder = True
    1414  Position = poScreenCenter
    15   OnCreate = FormCreate
    1615  PixelsPerInch = 96
    1716  TextHeight = 13

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/fWebTab.pas

    r541 r801  
    7676    if (URLList <> nil) then begin
    7777      RPCBrokerV.remoteprocedure := 'TMG CPRS GET URL LIST';
    78       RPCBrokerV.Call;
     78      //RPCBrokerV.Call;
     79      CallBroker;
    7980      URLList.Assign(RPCBrokerV.Results);
    8081      if RPCBrokerV.Results.Count>0 then Result := RPCBrokerV.Results.Strings[0]

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/SearchAnimationU.pas

    r800 r801  
    129129    cmd := cmd + '^' + JobNumber;
    130130    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    131     RPCBrokerV.Call;
     131    //RPCBrokerV.Call;
     132    CallBroker;
    132133    if RPCBrokerV.Results.Count > 0 then begin
    133134      RPCResult := RPCBrokerV.Results[0];

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fImagePickPDF.dfm

    r800 r801  
    11object frmImagePickPDF: TfrmImagePickPDF
    2   Left = 228
    3   Top = 122
     2  Left = 273
     3  Top = 123
    44  Width = 742
    55  Height = 581
    6   Caption = 'Select a PDF file'
     6  Caption = 'Select a Portable Document Format (PDF) File'
    77  Color = clBtnFace
    88  Font.Charset = DEFAULT_CHARSET
    … …  
    1919  object UDSplitter: TSplitter
    2020    Left = 0
    21     Top = 185
     21    Top = 153
    2222    Width = 734
    2323    Height = 3
    … …  
    2929    Top = 0
    3030    Width = 734
    31     Height = 185
     31    Height = 153
    3232    Align = alTop
    3333    BevelOuter = bvNone
    … …  
    3737      Top = 0
    3838      Width = 5
    39       Height = 185
     39      Height = 153
    4040    end
    4141    object pnlTopLeft: TPanel
    … …  
    4343      Top = 0
    4444      Width = 361
    45       Height = 185
     45      Height = 153
    4646      Align = alLeft
    4747      BevelOuter = bvLowered
    … …  
    4949      DesignSize = (
    5050        361
    51         185)
     51        153)
    5252      object DriveComboBox: TDriveComboBox
    5353        Left = 8
    … …  
    6363        Top = 32
    6464        Width = 345
    65         Height = 121
     65        Height = 89
    6666        Anchors = [akLeft, akTop, akRight, akBottom]
    6767        FileList = FileListBox
    … …  
    7171      object FilterComboBox: TFilterComboBox
    7272        Left = 8
    73         Top = 160
     73        Top = 128
    7474        Width = 345
    7575        Height = 21
    … …  
    8484      Top = 0
    8585      Width = 368
    86       Height = 185
     86      Height = 153
    8787      Align = alClient
    8888      BevelOuter = bvNone
    … …  
    9292        Top = 0
    9393        Width = 368
    94         Height = 185
     94        Height = 153
    9595        Align = alClient
    9696        Font.Charset = DEFAULT_CHARSET
    … …  
    111111  object pnlBottom: TPanel
    112112    Left = 0
    113     Top = 188
     113    Top = 156
    114114    Width = 734
    115     Height = 359
     115    Height = 391
    116116    Align = alClient
    117117    TabOrder = 1
    118118    object pnlButtons: TPanel
    119119      Left = 1
    120       Top = 312
     120      Top = 344
    121121      Width = 732
    122122      Height = 46
    … …  
    228228      Top = 1
    229229      Width = 732
    230       Height = 311
     230      Height = 343
    231231      Align = alClient
    232232      TabOrder = 1
    233233      ControlData = {
    234         4C000000A84B0000252000000000000000000000000000000000000000000000
     234        4C000000A84B0000732300000000000000000000000000000000000000000000
    235235        000000004C000000000000000000000001000000E0D057007335CF11AE690800
    236236        2B2E126208000000000000004C0000000114020000000000C000000000000046

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtQuery.pas

    r800 r801  
    105105    cmd := cmd + '^' + JobNumber;
    106106    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    107     RPCBrokerV.Call;
     107    //RPCBrokerV.Call;
     108    CallBroker;
    108109    if RPCBrokerV.Results.Count > 0 then begin
    109110      RPCResult := RPCBrokerV.Results[0]
    … …  
    126127    cmd := cmd + '^' + SearchFileNumber + '^' + SearchString;
    127128    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    128     RPCBrokerV.Call;
     129    //RPCBrokerV.Call;
     130    CallBroker;
    129131    if RPCBrokerV.Results.Count > 0 then begin
    130132      RPCResult := RPCBrokerV.Results[0]
    … …  
    150152    cmd := cmd + '^' + JobNumber + '^' + FldNum;
    151153    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    152     RPCBrokerV.Call;
     154    //RPCBrokerV.Call;
     155    CallBroker;
    153156
    154157    frmRPCResults.listRPCResults.Clear;

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fWebTab.dfm

    r453 r801  
    1313  OldCreateOrder = True
    1414  Position = poScreenCenter
    15   OnCreate = FormCreate
    1615  PixelsPerInch = 96
    1716  TextHeight = 13

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/frmSearchResults.pas

    r800 r801  
    6262    cmd := cmd + '^' + JobNum + '^' + Fields;
    6363    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    64     RPCBrokerV.Call;
     64    //RPCBrokerV.Call;
     65    CallBroker;
    6566    if RPCBrokerV.Results.Count > 0 then begin
    6667      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    … …  
    103104    cmd := cmd + '^' + JobNum + '^' + StartFrom + '^' + IntToStr(Direction);
    104105    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    105     RPCBrokerV.Call;
     106    //RPCBrokerV.Call;
     107    CallBroker;
    106108    if RPCBrokerV.Results.Count > 0 then begin
    107109      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/uLogic.pas

    r800 r801  
    973973    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction) + '^^' + GetSimple;
    974974    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    975     RPCBrokerV.Call;
     975    //RPCBrokerV.Call;
     976    CallBroker;
    976977    if RPCBrokerV.Results.Count > 0 then begin
    977978      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    … …  
    10081009    RPCBrokerV.param[0].ptype := list;
    10091010    RPCBrokerV.Param[0].Mult['"REQUEST"'] := 'IS WP FIELD^' + FileNum + '^' + FieldNum;
    1010     RPCBrokerV.Call;
     1011    //RPCBrokerV.Call;
     1012    CallBroker;
    10111013    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    10121014    if piece(RPCResult,'^',1)='-1' then begin
    … …  
    10751077    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction) + '^^' + GetSimple;
    10761078    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1077     RPCBrokerV.Call;
     1079    //RPCBrokerV.Call;
     1080    CallBroker;
    10781081    if RPCBrokerV.Results.Count > 0 then begin
    10791082      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    … …  
    11061109    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction);
    11071110    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1108     RPCBrokerV.Call;
     1111    //RPCBrokerV.Call;
     1112    CallBroker;
    11091113    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    11101114    if piece(RPCResult,'^',1)='-1' then begin
Note: See TracChangeset for help on using the changeset viewer.