Ignore:
Timestamp:
Jun 10, 2010, 3:13:12 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

update

Location:
cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra
Files:
13 edited

Legend:

Unmodified
Added
Removed

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

    r541 r793  
    101101    cmd := 'GET ONE WP FIELD^' + FileNum + '^' + FieldNum + '^' + IENS;
    102102    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    103     RPCBrokerV.Call;
     103    //RPCBrokerV.Call;
     104    CallBroker;
    104105    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    105106    if piece(RPCResult,'^',1)='-1' then begin
    … …  
    131132    RPCBrokerV.param[0].ptype := list;
    132133    cmd := 'POST WP FIELD^' + FileNum + '^' + FieldNum + '^' + IENS;
    133     RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd; 
     134    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    134135    for i := 0 to Lines.Count-1 do begin
    135       RPCBrokerV.Param[0].Mult['"' + IntToStr(i+1) + '"'] := Lines.Strings[i]; 
     136      RPCBrokerV.Param[0].Mult['"' + IntToStr(i+1) + '"'] := Lines.Strings[i];
    136137    end;
    137     RPCBrokerV.Call;
     138    //RPCBrokerV.Call;
     139    CallBroker;
    138140    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    139141    if piece(RPCResult,'^',1)='-1' then begin

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

    r541 r793  
    11object FMErrorForm: TFMErrorForm
    2   Left = 1217
    3   Top = 320
     2  Left = 247
     3  Top = 195
    44  Width = 482
    55  Height = 417

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

    r698 r793  
    122122      function  MoveCaretToEnd : boolean;
    123123      function  MoveCaretToPos(ScreenPos: TPoint) : HRESULT;  //kt added
     124      procedure InsertHTMLAtCaret(HTMLText : AnsiString); //kt 4/21/10
    124125      procedure InsertTextAtCaret(Text : AnsiString); //Note: Text is NOT HTMLtext
    125126      property  HTMLText:string read GetHTMLText write SetHTMLText;
    … …  
    691692end;
    692693
     694procedure THtmlObj.InsertHTMLAtCaret(HTMLText : AnsiString);
     695var
     696   Range: IHTMLTxtRange;
     697begin
     698   Range:= GetTextRange;
     699   Range.pasteHTML(HTMLText);
     700end;
     701
    693702procedure THtmlObj.InsertTextAtCaret(Text : AnsiString);
    694703//kt added.  Note: inserts external format (not HTML markup)
    … …  
    754763procedure THtmlObj.SubMessageHandler(var Msg: TMessage);
    755764//Called from parent's EDMessageHandler, or from GlobalMsgHandler
     765
     766const
     767  FontSizes : array [0..6] of byte = (8,10,12,14,18,24,36);
     768
    756769var  i : Integer;
    757770     WinControl : TWinControl;
     771     TextSize : integer;
    758772
    759773begin
    … …  
    820834                                      Msg.Result := 1; //Handled
    821835                                    end;
     836                  $31..$38 :      begin
     837                                    if CtrlToBeProcessed = true then begin
     838                                      TextSize := Msg.WParam-$31;
     839                                      if (TextSize >= 0) and (TextSize <=6 ) then begin                                       
     840                                        SetFontSize(FontSizes[TextSize]);
     841                                        CtrlToBeProcessed := False;
     842                                      end; 
     843                                    end;
     844                                  end;     
    822845                       {             
    823846                       VK_RETURN :  if CtrlReturnToBeProcessed then begin
    … …  
    854877                                     Msg.Result := 1; //Handled
    855878                                   end; 
     879                       Ord('Q') :  if CtrlToBeProcessed then begin
     880                                     //kt if not FEditable then exit;
     881                                     Outdent;
     882                                     Msg.Result := 1; //Handled
     883                                     exit;
     884                                   end; 
     885                       Ord('W') :  if CtrlToBeProcessed then begin
     886                                     //kt if not FEditable then exit;
     887                                     Indent;
     888                                     Msg.Result := 1; //Handled
     889                                     exit;
     890                                   end; 
     891                       Ord('D') :  if CtrlToBeProcessed then begin
     892                                     //kt if not FEditable then exit;
     893                                     FontDialog;
     894                                     Msg.Result := 1; //Handled
     895                                     exit;
     896                                   end;
     897                                   { 
     898                       Ord('.') :  if CtrlToBeProcessed then begin
     899                                     //kt if not FEditable then exit;
     900                                     ToggleBullet;
     901                                     Msg.Result := 1; //Handled
     902                                     exit;
     903                                   end; 
     904                       Ord('N') :  if CtrlToBeProcessed then begin
     905                                     //kt if not FEditable then exit;
     906                                     ToggleNumbering;
     907                                     Msg.Result := 1; //Handled
     908                                     exit;
     909                                   end; 
     910                       Ord(';') :  if CtrlToBeProcessed then begin
     911                                     //kt if not FEditable then exit;
     912                                     TextForeColorDialog;
     913                                     Msg.Result := 1; //Handled
     914                                     exit;
     915                                   end; 
     916                       Ord('''') :  if CtrlToBeProcessed then begin
     917                                     //kt if not FEditable then exit;
     918                                     TextBackColorDialog;
     919                                     Msg.Result := 1; //Handled
     920                                     exit;
     921                                   end; 
     922                                    }             
    856923                     end; {case}
    857924                   end;

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

    r698 r793  
    6060      FEditable:               boolean;       
    6161      ColorDialog:             TColorDialog;       
    62       AllowNextBlur :          boolean;     
    63       procedure SetMsgActive (Active : boolean);
     62      AllowNextBlur :          boolean;
    6463      function  GetHTMLText:string;
    6564      procedure SetHTMLText(HTML:String);
    … …  
    9190    public
    9291      {end public}
    93       PopupMenu:     TPopupMenu;     
     92      PopupMenu:     TPopupMenu;
    9493      KeyStruck : boolean; // A VERY crude determiner as to if Modified.
    9594      NextControl : TWinControl;
    9695      PrevControl : TWinControl;
    97       constructor Create(Owner:TControl; Application : TApplication);
     96      procedure SetMsgActive (Active : boolean);
     97      constructor Create(Owner:TControl; Application : TApplication);
    9898      destructor Destroy; override;
    99       procedure Clear;       
     99      procedure Clear;
    100100      procedure ToggleBullet;
    101101      procedure ToggleItalic;
    … …  
    122122      function  MoveCaretToEnd : boolean;
    123123      function  MoveCaretToPos(ScreenPos: TPoint) : HRESULT;  //kt added
     124      procedure InsertHTMLAtCaret(HTMLText : AnsiString); //kt 4/21/10
    124125      procedure InsertTextAtCaret(Text : AnsiString); //Note: Text is NOT HTMLtext
    125126      property  HTMLText:string read GetHTMLText write SetHTMLText;
    … …  
    689690  Result := FCaret.MoveCaretToPointer(FTMGDisplayPointer,Integer(True),CARET_DIRECTION_INDETERMINATE);
    690691  FCaret.Show(Integer(True));
     692end;
     693
     694procedure THtmlObj.InsertHTMLAtCaret(HTMLText : AnsiString);
     695var
     696   Range: IHTMLTxtRange;
     697begin
     698   Range:= Self.GetTextRange;
     699   Range.pasteHTML(HTMLText);
    691700end;
    692701

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

    r541 r793  
    11object FieldLookupForm: TFieldLookupForm
    2   Left = 1376
    3   Top = 349
     2  Left = 451
     3  Top = 232
    44  Width = 302
    55  Height = 169

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

    r541 r793  
    111111    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction);
    112112    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    113     RPCBrokerV.Call;
     113    //RPCBrokerV.Call;
     114    CallBroker;
    114115    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    115116    if piece(RPCResult,'^',1)='-1' then begin

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

    r541 r793  
    106106      RPCBrokerV.Param[0].Mult[IntToStr(i)] := FChanges.Strings[i];
    107107    end;
    108     RPCBrokerV.Call;
     108    //RPCBrokerV.Call;
     109    CallBroker;
    109110    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    110111    if piece(RPCResult,'^',1)='1' then begin

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

    r541 r793  
    203203    cmd := 'GET SUB RECS LIST' + '^' + SubFileNum + '^' + ParentIENS;
    204204    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    205     RPCBrokerV.Call;
     205    //RPCBrokerV.Call;
     206    CallBroker;
    206207    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    207208    if piece(RPCResult,'^',1)='-1' then begin

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

    r453 r793  
    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/fPtDemoEdit.pas

    r541 r793  
    592592  RPCBrokerV.remoteprocedure := 'TMG GET PATIENT DEMOGRAPHICS';
    593593  RPCBrokerV.param[0].value := Patient.DFN;   RPCBrokerV.param[0].ptype := literal;
    594   RPCBrokerV.Call;
    595  
     594  //RPCBrokerV.Call;
     595  CallBroker;
     596
    596597  with FServerPatientInfo do begin
    597598    //Store results in a hash table for easier random access
    … …  
    743744    end;
    744745
    745     RPCBrokerV.Call;
     746    //RPCBrokerV.Call;
     747    CallBroker;
    746748    if RPCBrokerV.Results.Strings[0]<>'1' then begin
    747749      MessageDlg(RPCBrokerV.Results.Strings[0],mtError,[mbOK],0);
    … …  
    14631465      cmd := 'GET ONE RECORD^2^' + IENS;
    14641466      RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1465       RPCBrokerV.Call;
     1467      //RPCBrokerV.Call;
     1468      CallBroker;
    14661469      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    14671470      //Results[1]='FileNum^IENS^FieldNum^ExtValue^FieldName^DDInfo...
    … …  
    16421645    RPCBrokerV.param[0].ptype := list;
    16431646    RPCBrokerV.Param[0].Mult['"REQUEST"'] := 'IS WP FIELD^' + FileNum + '^' + FieldNum;
    1644     RPCBrokerV.Call;
     1647    //RPCBrokerV.Call;
     1648    CallBroker;
    16451649    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    16461650    if piece(RPCResult,'^',1)='-1' then begin
    … …  
    18331837      cmd := 'GET ONE RECORD^' + FileNum + '^' + IENS;
    18341838      RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1835       RPCBrokerV.Call;
     1839      //RPCBrokerV.Call;
     1840      CallBroker;
    18361841      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    18371842      if piece(RPCResult,'^',1)='-1' then begin

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

    r453 r793  
    6868    RPCBrokerV.Param[1].Value := 'R';
    6969    RPCBrokerV.Param[1].ptype := literal;
    70     RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
     70    //RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
     71    CallBroker;
     72    if RPCBrokerV.Results.Count > 0 then begin
     73      RPCResult := RPCBrokerV.Results.Strings[0];
     74    end else begin
     75      RPCResult := '';
     76    end;
    7177    TMG_URL_RPC_Checked := true;
    7278    TMG_URL_RPC_Available := (RPCResult='1');
    … …  
    7682    if (URLList <> nil) then begin
    7783      RPCBrokerV.remoteprocedure := 'TMG CPRS GET URL LIST';
    78       RPCBrokerV.Call;
     84      //RPCBrokerV.Call;
     85      CallBroker;
    7986      URLList.Assign(RPCBrokerV.Results);
    8087      if RPCBrokerV.Results.Count>0 then Result := RPCBrokerV.Results.Strings[0]

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

    r729 r793  
    11object ImageTransferForm: TImageTransferForm
    2   Left = 348
    3   Top = 212
     2  Left = 341
     3  Top = 256
    44  BorderStyle = bsToolWindow
    55  Caption = 'Image Transfer Progress'
    6   ClientHeight = 86
    7   ClientWidth = 276
     6  ClientHeight = 108
     7  ClientWidth = 265
    88  Color = clBtnFace
    99  Font.Charset = DEFAULT_CHARSET
    … …  
    277277    TabOrder = 0
    278278  end
     279  object btnCancel: TButton
     280    Left = 80
     281    Top = 80
     282    Width = 75
     283    Height = 25
     284    Caption = '&Cancel'
     285    TabOrder = 1
     286    Visible = False
     287  end
    279288  object DKLanguageController1: TDKLanguageController
    280289    Left = 176
    … …  
    282291    LangData = {
    283292      1100496D6167655472616E73666572466F726D01010000000100000007004361
    284       7074696F6E010400000006004C6162656C310101000000020000000700436170
     293      7074696F6E010500000006004C6162656C310101000000020000000700436170
    285294      74696F6E000600496D6167653100000B0050726F67726573734D736701010000
    286       0003000000070043617074696F6E000B0050726F67726573734261720000}
     295      0003000000070043617074696F6E000B0050726F677265737342617200000900
     296      62746E43616E63656C010100000004000000070043617074696F6E00}
    287297  end
    288298end

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

    r729 r793  
    1616    ProgressMsg: TLabel;
    1717    DKLanguageController1: TDKLanguageController;
     18    btnCancel: TButton;
    1819  private
    1920    { Private declarations }
Note: See TracChangeset for help on using the changeset viewer.