| 樓主： |
終于成功地做出了一個簡單的插圖功能，再加上對響應(yīng)選取操作的算法改進(jìn)，和對整個結(jié)構(gòu)的優(yōu)化，終于做出了一個稱得上具有實(shí)用性的文本核心了。
目前插圖功能還不完善，只能插入在行后，而且一行只能夠插入一張圖片，但是可以設(shè)置插圖尺寸和對齊方式。增加了對西文單詞的識別用以配合兩端對齊和花體字母。
這里是源代碼和演示程序的位置
由于這一次算是具有真正實(shí)用性的了（除了還不支持滾動條，其他的都還算好），所以玄虛決定順便發(fā)布一份簡要的接口使用說明。保存和讀取的功能會等到結(jié)構(gòu)確定之后加入其中，有興趣的可以自己試下，也不算麻煩。
需要使用的類只是TElPassage類。下面是可用的屬性和方法。
屬性部分：
SelImage：Boolean，是否選中圖片，只讀屬性。
Left：Single，類在窗口上的打印坐標(biāo)。
Top：Single，坐標(biāo)。
Width：Single，類的限制寬度。
Height：Single，只讀屬性，類的高度，由畫圖過程確定。
ParaIndex：Integer，當(dāng)前所在的段落索引值。不推薦更改，但是可以這么做。
SelStruct：TsctUI，交互所用的格式信息?？梢灾苯痈奈淖謱傩院投温鋵傩赃€有插圖屬性，暫時還不支持同時修改多段的段落屬性。
SelStart：Integer，選取開始位置，從0開始，每一段段末到下一段段首數(shù)值加一。
SelLength：Integer，選取長度，用來確定框選。
TextLength：Integer，總的字符數(shù)，這里沒有加入對西文的識別。
Paras[Index:Integer]：string，每一段的純文本。
方法部分
constructorCreate(Left, Top, Width: Single; ACanvas: TCanvas; ASelRec: TRectangle);
創(chuàng)建，需要提供用來繪制的Canvas，和用來作為光標(biāo)的Rectangle。暫時還沒有找到更好實(shí)現(xiàn)光標(biāo)的方法。
destructorDestroy; override;
刪除，沒什么好說的。
procedureDrawToMap(Index: Integer);
將段落繪制到圖像上，并獲取必要信息。值得注意的是，如果一個段落從來沒有被繪制過，或者修改了但是沒有繪制，是很容易出問題的。但是一般外部操作不需要考慮這個問題，常用的外部操作都會自動附加這個操作。
procedure DrawPassage;
直接繪制全段落圖像，這里不會修改段落的內(nèi)容，只是繪制而已，如果沒有執(zhí)行繪制到圖像這一步驟，這里不會得到刷新。
procedureDrawFromPara(Index: Integer);
繪制當(dāng)前段落及之后的圖像，這里也不會提供刷新。
procedureDrawParaWithoutChange(IFrom: Integer; ITo: Integer = -1);
直接繪制該段落圖像，如果不填入ITo，則默認(rèn)單段落，不提供刷新。
procedureInsertChar(AChar: Char);
在當(dāng)前位置插入一個字符，響應(yīng)輸入的操作，自動刪除已選取內(nèi)容。
procedureInsertImage(FileName: string; Width: Single);
插圖，需要設(shè)置寬度，如果設(shè)置為0則為圖像寬度。所有的寬度都不會超過圖像本身的寬度或限制寬度。
procedureDeleteChar;
當(dāng)前位置刪除一個字符
procedureDividePara;
在當(dāng)前位置分段分段是為了響應(yīng)回車，與插入字符并不相同。
procedureSetSelection(const P1, P2: Integer);
由兩處選取位置獲得選取開始及長度，只需要輸入兩處對應(yīng)的選取開始位置即可，不需要考慮大小順序。
functionSelect(X, Y: Single; Moving: Boolean = False): Integer;
由絕對坐標(biāo)獲取選取位置，后一個參數(shù)是在移動的時候?qū)⒑雎赃x取圖片的行為，只考慮框選。
此帖子包含附件:
大小:152.9K |
----------------------------------------------
--O, ye Magnificient Deity's Miracle!
--I'm yet Reniastyc de El Magnifico. |
