Results 1 to 8 of 8

Thread: Modified TEdit?

  1. #1

    Modified TEdit?

    Can anyone make version of TEdit that can show any text character as "text cursor"/caret/whatever it's called instead of standard bar (|)?

  2. #2
    I haven't tried anything like this but not long ago I have seen someone requesting similar thing on Stack Owerflow.
    You can check the SO thread here:
    I hope this will help.

  3. #3
    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:

    procedure TStoryProcessor.cmdMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    var  point:TPoint;
      //set caret
    I've even tried to put it into OnMouseLeave of edit, but to no result.
    Last edited by Darkhog; 18-08-2014 at 03:56 PM.

  4. #4
    I found a page with code example of how to change the default caret for TEdit. I haven't tested it out so I'm not sure it works. But go and check it out.

  5. #5
    why not a combobox? that way you could do something like zork with history of previous commands

  6. #6
    Pitfiend, because I don't want to make it easy for the player.

  7. #7
    Should it be retro like? Then why not use pure Freepascal with ptcgraph?
    Attached Images Attached Images
    Best regards,

    Pulsar2D framework:

  8. #8
    Well, it is supposed to be semi-retro. I want to revive a genre, not move backwards.


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts