-------------------------------------------------------------------------------- -- 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: eryar@163.com -- 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 eryar@163.com * 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 eryar@163.com 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: eryar@163.com -- 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 Exit Exit ------------------------------------------------------------------------------- -- -- 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 = !memory endmethod ------------------------------------------------------------------------------- -- -- 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 -------------------------------------------------------------------------------