This post doesn't contain any actual technical information. I'm making this post in order to help a Borland R∓D person to debug a very minor, but somewhat irritating problem with the Welcome Page. The problem pops up if you have a post that has <pre> and <code > tags in a post that gets summarized. Here's a sample.
procedure ScrollToLineCol(AMemo: TCustomMemo; Line, Col: integer);
var
Len: integer;
AdjCol: integer;
CharNum: integer;
begin
if AMemo = nil then
Exit;
// Find the character number of the line requested
CharNum := AMemo.Perform(EM_LINEINDEX, Line, 0);
// Make sure we keep the column in this line
Len := AMemo.Perform(EM_LINELENGTH, CharNum, 0);
if Len > Col then
AdjCol := Col
else
AdjCol := Len;
// Add the column to the caret position
AMemo.SelStart := CharNum + AdjCol;
AMemo.Perform(EM_ScrollCaret, 0, 0);
end;
Hopefully, this makes it easy to debug now!