分享
 
 
 

讲述如何开发一个控件,很有价值(三)

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

blank.rtf - empty -so I could see the "plain" header line

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\froman Times New Roman;}}

{\colortbl\red0\green0\blue0;}\deflang1033\pard\plain\f2\fs20 \par }

plaintext.rtf - too see how having any text was handled

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\froman Times New Roman;}}{\colortbl\red0\green0\blue0;}

\deflang1033\pard\plain\f2\fs20 this is plain text

\par }

difffont.rtf - different font, same size, same text

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\froman Times New Roman;}{\f3\fswiss\fprq2 Arial;}}{\colortbl\red0\green0\blue0;}

\deflang1033\pard\plain\f3\fs20 plain text different font\plain\f2\fs20

\par }

diffsize.rtf - text set to 18 point in the default font

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\froman Times New Roman;}}{\colortbl\red0\green0\blue0;}

\deflang1033\pard\plain\f2\fs36 plain text different font\plain\f2\fs20

\par }

diffcolor.rtf - etc. my favourite of course - blue.

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\froman Times New Roman;}}{\colortbl\red0\green0\blue0;\red0\green0\blue255;}

\deflang1033\pard\plain\f2\fs20\cf1 plain text different font\plain\f2\fs20

\par }

Looking at the resultant codes you see how the RTF stream is formatted. It comprises a:

INITIAL HEADER (\rtf1\.....)

FONTTABLE (\f0\fswiss...)

COLORTABLE (\colortbl)

MISCELLANEOUS

DEFAULT FORMAT (\pard....)

BODY OF THE FILE.

As a result of that I rewrote this code:

WriteToBuffer('{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS

SansSerif;}{\f1\froman\fcharset2 Symbol;}{\f2\fmodern Courier New;}}'+#13+#10);

WriteToBuffer('{\colortbl\red0\green0\blue0;}'+#13+#10);

WriteToBuffer('\deflang1033\pard\plain\f2\fs20 ');

to become:

WriteToBuffer('{\rtf1\ansi\deff0\deftab720');

WriteFontTable;

WriteColorTable;

WriteToBuffer('\deflang1033\pard\plain\f0\fs20 ');

The procedures Write[Font,Color]Table basically creates a table of fonts/colors we can reference later on. Each Font and Color type is stored by index in a TList internally. It acts as a lookup tables - by matching the Font name or Color value we can find the [num] to code into the RTF stream at the required moment:

\f[num] = the index of which Font you want to use, as pre-set in the "on the fly" font table

\fs[num] = point size - (for example 20 = 10point)

\cf[num] = the index of which Color to use, as preset in "on the fly" color table

\cb[num] = which background color to use - (ignored in RichEdit version 2.0)

PROBLEM#2 Crashes in long comments or text (existing problem)

There is a bug in ScanForRtf. Can you see it?

procedure TPasConversion.AllocStrBuff;

begin

FStrBuffSize:= FStrBuffSize + 1024;

ReAllocMem(FStrBuff, FStrBuffSize);

FStrBuffEnd:= FStrBuff + 1023;

end; { AllocStrBuff }

procedure TPasConversion.ScanForRtf;

var

i: Integer;

begin

RunStr:= FStrBuff;

FStrBuffEnd:= FStrBuff + 1023;

for i:=1 to TokenLen do

begin

Case TokenStr[i] of

'\', '{', '}':

begin

RunStr^:= '\';

inc(RunStr);

end

end;

if RunStr >= FStrBuffEnd then AllocStrBuff;

RunStr^:= TokenStr[i];

inc(RunStr);

end;

RunStr^:= #0;

TokenStr:= FStrBuff;

end; { ScanForRtf }

EXAMPLE - code snippet from Pas2Rtf demonstrating the "long comment" bug

The problem: if FStrBuff is enlarged using AllocStrBuff() (to make it bigger to handle a very long comment) the Windows Memory manager probably has to re-allocate it by moving the entire string buffer somewhere else in memory. RunStr however is not adjusted for this change and stillpoints to the old memory area, now unallocated.

The fix: Reallocate RunStr in the AllocStrBuff routine so it points to the correct place in the new area of memory. Try and fix it yourself, or look at my garsely spaghetti code in jhdPasToRtf.pas.

Automatic Syntax Highlighting (my first implementation)

To understand how Automatic syntax highlighting works, you should have a close look at what happens in the Delphi 3.0 Editor. After all - if Borland was happy with it - who am I to argue :-)

Take note when the "syntax" changes and what is affected. In retrospect the difficult thing is to implement a highlighter that is:

Fast

Accurate

Doesn't flicker

Isn't obvious ("the someone is chasing me phenomenon".. you'll see)

1. When should we do the re-highlighting ?

In YourPasEdit the highlighting is done as the file is read in. Once this is done, the only way to make use of that technique would be to write out the file everytime it changes and read it back in again - obviously a very slow process. In my case, I basically wanted to just reformat the line(s) that have been changed, immediately after the change had been done i.e. after every new character, DELETE or BACKSPACE or even Paste or DragDrop had been processed. I needed something that was triggered everytime the control was effected in such a way.

What I needed then was an [Event].

2. Which event - there's so many to choose from ?

A RichEdit, like any control, has a number of [Events] triggered when you do various things to the control. What is not obvious, is that many events trigger other events in turn. So in choosing which Event(s) to hang your code off you have to ensure that (a) it catches all situations where you need to "fix" the highlighting and (b) it doesn't become re-entrant (i.e. what you do in the [Event], doesn't trigger itself again or any other [Event] that would call the "highlighting code"). From a quick look at the helpfile, I decided that [OnChange] seemed a likely candidate. According to the Delphi 3.0 Helpfile:

Write an OnChange event handler to take specific action whenever the text for the edit control may have changed. Use the Modified property to see if a change actually occurred. The Text property of the edit control will already be updated to reflect any changes. This event provides the first opportunity to respond to modifications that the user types into the edit control.

You may be thinking however: "Heh? What about those other things - like Methods and Properties. Can't they also change the text?" They sure can - but most end up triggering [OnChange] anyhow.

3. Is it what I want? - Rich text controls (from Delphi3 Helpfile)

The rich text component is a memo control that supports rich text formatting. That is, you can change the formatting of individual characters, words, or paragraphs. It includes a Paragraphs property that contains information on paragraph formatting. Rich text controls also have printing and text-searching capabilities.

By default, the rich text editor supports

Font properties, such as typeface, size, color, bold, and italic format

Format properties, such as alignment, tabs, indents, and numbering

Automatic drag-and-drop of selected text

Display in both rich text and plain text formats.

(Set PlainText to True to remove formatting)

type TNotifyEvent = procedure(Sender: TObject) of object;

property OnChange: TNotifyEvent;

4. Is it the event I want - ie [OnChange] Event - the right one?

Live dangerously, let’s give it a go and see...by testing our assumptions out:

So I wrote my first [OnChange] event:

Create a New application

place on it one RichEdit (RichEdit1) and one Edit control (Edit1)

Code the [OnChange] for the RichEdit1 control like this:

procedure TForm1.RichEdit1Change(Sender: TObject);

begin

TRichEdit(Sender).Tag := TRichEdit(Sender).Tag + 1;

Edit1.Text := 'Tag=' + IntToStr(TRichEdit(Sender).Tag);

end;

In this case the Sender object is the RichEdit being changed. The code basically uses the RichEdit's Tag variable (initially 0) as a handy Control specific variable. Everytime the [OnChange] event is called, it increases the Tag by 1, and display its value in an Edit Control as Text. You should pre-set the RichEdit control with some text in it, otherwise the following may be confusing!

Compile and Run...

Click in the Control. Nothing...

Move around in it using CursorKeys... Nothing...

Click outside the control.. and then back inside.. Nothing...

Press the [Space Bar].. Tag=1...

Press [Backspace].. Tag=2...

Press return.. Tag=3..

Select some text.. No change..

CTRL-C some text.. No change..

CTRL-X some text.. Tag=4..

CTRL-V some text.. Tag=5..

As it looked good so far I then added to the Form1.OnShow event:

RichEdit1.Lines.LoadFromFile('c:\winzip.log'); {Just a plain text file hanging around }

to see what happened. And guess what - an [OnChange] event was called sometime and "Tag=1" was displayed in the Edit control as the proof when the Form appears for the first time. So we can see that procedures do call Events that apply to what they are doing.

5. What happens in Syntax Highlighting anyhow?

Watch carefully in the Delphi Editor. Now try and reproduce it. Open a WordPad (since WordPad is a souped up RichEdit basically). Read in a source file (e.g any Unit1.pas) and do syntax highlighting manually:

Select a token

Manipulate it using the buttons provided to change Font, Size, Color, and Bold

Move onto the next token

Goto 1

So therefore in [OnChange] we'll try and write code to reproduce what we have done manually.

6. Which text do I want.. and where do I get it ?

Hunting through the Delphi Helpfile on RichEdit controls we find that the actual text information in the RichEdit control is stored (or rather can be accessed from) either:

RichEdit.Text

Text contains a text string associated with the control.

TCaption = type string;

property Text: TCaption;

Description

Use the Text property to read the Text of the control or specify a new string for the Text value. By default, Text is the control name. For edit controls and memos, the Text appears within the control. For combo boxes, the Text is the content of the edit control portion of the combo box.

RichEdit.Lines

Lines contains the individual lines of text in the rich text edit control.

property Lines: TStrings;

Description

Use Lines to manipulate the text in the rich text edit control on a line by line basis. Lines is a TStrings object, so TStrings methods may be used for Lines to perform manipulations such as counting the lines of text, adding lines, deleting lines, or replacing the text in lines.

To work with the text as one chunk, use the Text property. To manipulate individual lines of text, the Lines property works better.

Now Lines seemed to be what I wanted - after all I wanted the Syntax highlighting to work on a line by line basis. So let’s have a look at whats been changed.

Oh.. look at what? How can I tell which line is the one that is changed?

Unlike some Events, the [OnChange] isn't passed any variable's save the identity of the RichEdit control affected. The RichEdit Control doesn't have a runtime variable that tells us either. The only variables are the SelStart and SelLength - but their about selecting text aren't they? I just want to know what line I'm on :-(

It was about then that I re-read the information on the Sel??? properties, and recalled my "concept" code. Selection - I realised - was the name of the game. By manipulating these variables I could reproduce what I was doing manually - selecting text - as program code. Once selected you can then manipulate the attributes of the selected text through the SelAttributes structure.

Let’s get familiar with these variables (in Summary)

.

SelStart

Position of the Cursor, or the beginning of the selected text

SelLength

0 if SelStart = Cursor Pos, or length of selected Text

SelText

empty if no text selected, or actual text selected

SelAttribute

Default attributes if I was to start typing at the Cursor position OR the actual attributes of the selected text

There is actually no other way to access the attributes of the text already in the Control than by programmatically accessing them via manipulating Sel variables (*if you stick to using the defined properties and methods).

In the end RichEdit.Text and RichEdit.Lines are just plain old strings - not really "rich" at all. The other thing to note is that SelStart is a 0-based index on the first character of RichEdit.Text - so it looks like Richedit.Line is out the door.

7. Okay implement: Select a Token

Basically I wanted to start at the beginning of the line, send just that line to PasCon, and read it back in and replace the current line with the result. Trouble is RichEdit doesn't give you access to the 'RTF' representation of a single line. Plus I still can't tell when the beginning or end of the line is. Since the latter seems to be a nagging problem, we better fix that first - trouble is: How?

When all else fails - WinAPI calls of course.

Most visual controls in Delphi are in fact just native Windows controls encapsulate as Delphi types. You can still use Windows API functions to access the control underneath. This was it is possible to access information not accessable per Delphi public Properties, Method or Events. Time to delve through Win32.HLP and see what it has to say about RichEdit controls. Its stored in C:/Program Files/Borland/Delphi 3.0/Help if you don't have a shortcut to it.

Open Win32.HLP -> [ Contents ] -> [ RichEdit controls ] -> [ Rich Edit Controls ]

I spent some time getting to know the "full" capabilites of the RichEdit control hidden behind Delphi's implementation of it. Much of what I learned came in handy later on (as you'll see) and as a result I derived my second two Delphi Rules:

Delphi Rule #2: If your Project hinges on the capabilities of a certain control - make sure you know everthing about it - from the beginning.

Delphi Rule #3: "Reference" is not the same as "Summary" (also known as Win32.HLP Rule#1)

Eventually I discovered the key in the [ Rich Edit Control Reference ] under "Lines and Scrolling". I had thought this page was simply a summary of the messages discussed in the preceding help pages. Actually it included a number of extra messages not discussed elsewhere - the exact ones I was after!

Lines and Scrolling

EM_LINEFROMCHAR - give them a 0-based index and they'll return the line

EM_LINEINDEX - give them a line and you get the index of the first character

EM_LINELENGTH - give them a line and you get the length of the line

So lets start coding.

(NB: To use the constants (EM-?) you'll have to manually add RichEdit in the uses clause)

procedure TForm1.RichEdit1Change(Sender: TObject);

var WasSelStart,Row,BeginSelStart,EndSelStart: Integer;

MyRe : TRichEdit;

begin

MyRe := TRichEdit(Sender);

WasSelStart := MyRE.SelStart;

Row := MyRE.Perform(EM_LINEFROMCHAR, MyRE.SelStart, 0);

BeginSelStart:= MyRe.Perform(EM_LINEINDEX, Row, 0);

EndSelStart := BeginSelStart + Length(MyRE.Lines.Strings[Row]);

// I didn't use the EM_LINELENGTH message, as the variables was avaiable via Delphi

Edit1.Text := IntToStr(WasSelstart) + '-' +

IntToStr(Row) + '-' +

InttoStr(BeginSelStart) + '-' +

IntToStr(EndSelStart);

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有