OK. I've got it to work a bit and I've got somewhat nice, dos-like underscore, but now curious thing happen: When I move mouse outside edit, caret moves back to top (had to move it bit downwards) and turns into um... overscore (is that even a word). Here's my code:
Code:
procedure TStoryProcessor.cmdMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var point:TPoint;
begin
//set caret
CreateCaret(cmd.Handle,0,16,2);
GetCaretPos(point);
SetCaretPos(point.x,point.y+20);
ShowCaret(cmd.Handle);
end;
I've even tried to put it into OnMouseLeave of edit, but to no result.
Bookmarks