在DRAFT中修改文字ModifyText

---------------------------------------------------------------------------------- Copyright (C) 2009 COSCO SHIPYARD GROUP CO.,LTD TECHNICAL CENTER-- (SHANGHAI BRANCH) All Rights Reserved.---- File: license.txt-- Type: text file-- Group: -- Keyword: -- Module: ---- Author: [e-mail]-- Created: 2009-09-21 09:02---- Description: license file----------------------------------------------------------------------------------* Permission to use, copy, modify, and distribute this software for * any purpose and without fee is hereby granted, provided that the above* copyright notice appear in all copies and that both the copyright notice* and this permission notice appear in supporting documentation, and that * the name of COSCO SHIPYARD GROUP CO.,LTD not be used in advertising* or publicity pertaining to distribution of the software without specific,* written prior permission.* THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"* AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,* INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR* FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL [e-mail]* BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,* SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY* KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,* LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF* THIRD PARTIES, WHETHER OR NOT [e-mail] HAS BEEN* ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON* ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE* POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.------------------------------------------------------------------------------------------------------------------------------以下为程序代码:--------------------------------------------------------------------------------- Copyright (C) 2009 COSCO SHIPYARD GROUP CO.,LTD TECHNICAL CENTER-- (SHANGHAI BRANCH) All Rights Reserved.---- File: ModifyText.pmlfrm-- Type: Form Definition-- Group: Application-- Keyword: -- Module: DRAFT---- Author: [e-mail]-- Created: 2009-07-01 15:04---- Description: Modify text in DRAFT---------------------------------------------------------------------------------Setup Form !!ModifyText Title |Modify text| -- remember the text --member .oldText is STRING member .TextRef is DBREF Frame .frm |Text area| Textpane .tModify Width 25 Height 6 Button .bPick |*| AT XMin.tModify YMax.tModify Callback |!This.cmdPick()| ToolTip |Pick text| Button .bApply |Apply| AT XMax.bPick YMax.tModify Callback |!This.cmdApply()| ToolTip |apply | Button .bQuit |Quit | AT XMax.bApply YMin.bApply Callback |!This.cmdQuit()| ToolTip |dismiss| --Toggle .remember |remember| AT XMax.bQuit YMin.bApply ExitExit----------------------------------------------------------------------------------- Method: cmdPick---- Description: apply the form---- Method Type: Function/Procedure-- Arguments:-- [#] [R/RW] [Data Type] [Description]-- Return:-- [Data Type] [Description]---------------------------------------------------------------------------------define method .cmdPick() -- remember where we came in !memory = !!ce -- pick text !This.TextRef = Ref of ID @ -- store the text !textArray = ARRAY() -- text if (!This.TextRef.Type EQ 'TEXP') then !textToModify = !This.TextRef !textContent = !textToModify.Btext !textArray.Append(!textContent) endif -- dimension text if (!This.TextRef.Owner.Type Inset('LDIM', 'RDIM', 'PDIM', 'ADIM') ) then !textContent = !This.TextRef.Dmtxt !textContent.Replace('#', '') !textArray.Append(!textContent) endif !This.tModify.Val = !textArray$( if (!This.remember.Val) then !This.oldText = !textArray !This.tModify.Val = !This.oldText else !This.tModify.Val = !textArray endif$) -- Navigate back to where we came in !!ce = !memoryendmethod----------------------------------------------------------------------------------- Method: cmdApply---- Description: apply the form---- Method Type: Function/Procedure-- Arguments:-- [#] [R/RW] [Data Type] [Description]-- Return:-- [Data Type] [Description]---------------------------------------------------------------------------------define method .cmdApply() -- remember where we came in !memory = !!ce if (!This.TextRef.Type EQ 'TEXP') then !lines = !This.tModify.Count !text = '' do !i From 1 To !lines !text = !text & !This.tModify.Line(!i) enddo !text.Replace('#', '') $!This.TextRef BTEXT |$!text| endif if (!This.TextRef.Owner.Type Inset('LDIM', 'RDIM', 'PDIM', 'ADIM') ) then !lines = !This.tModify.Count !text = '' do !i From 1 To !lines !text = !text & !This.tModify.Line(!i) enddo !text.Replace('#', '') $!This.TextRef DMTXT |$!text| endif -- Navigate back to where we came in !!ce = !memory endmethod-------------------------------------------------------------------------------Define Method .cmdQuit() !This.Hide()EndMethod-------------------------------------------------------------------------------