Skip to main content
1 de 6
Victor Tadashi
  • 1,1mil
  • 8
  • 20

Cara, eu não aconselho você a fazer isso, porque é uma bela duma gambiarra. Mas se você quiser dar uma olhada segue o código:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);

  private
    pressHomeButton: Boolean;

    function getBiggestLine(AMemo: TMemo): Integer;
    function getCurrentLine(AMemo: TMemo): Integer;
    function whiteSpaceCountToString(ASpaces: Integer): String;

  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}




procedure TForm2.FormCreate(Sender: TObject);
begin
  pressHomeButton := False;
end;



function TForm2.getBiggestLine(AMemo: TMemo): Integer;
var
  i: Integer;
  iCurrentLinesCount: Integer;
  iBiggestLinesCount: Integer;
begin
  iBiggestLinesCount := 0;

  for i := 0 to AMemo.Lines.Count - 1 do
  begin
    iCurrentLinesCount := Length(AMemo.Lines[i]);
    if (iCurrentLinesCount > iBiggestLinesCount) then
    begin
      iBiggestLinesCount := iCurrentLinesCount;
      Result             := iBiggestLinesCount;
    end;
  end;

end;



function TForm2.getCurrentLine(AMemo: TMemo): Integer;
Var
  Coordinate: TPoint;
Begin
  Coordinate := Memo1.CaretPos;
  Result     := Coordinate.Y + 1;
End;



procedure TForm2.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) and (Memo1.Lines.Count > 0) then
  begin

    Key := #0;
    Memo1.Lines.Insert(getCurrentLine(Memo1), whiteSpaceCountToString(getBiggestLine(Memo1)));
    pressHomeButton := True;
    PostMessage(Memo1.Handle, WM_KEYDOWN, VK_HOME, 0);

  end;
end;



function TForm2.whiteSpaceCountToString(ASpaces: Integer): String;
var
  i: Integer;
begin
  Result   := '';
  for i    := 1 to ASpaces do
    Result := Result + ' ';
end;

end.

outra hora vou dar uma melhorada nele, mas por hora é isso. Qualquer duvida pergunte.

PS.: Para funcionar corretamente, é necessário mudar a fonte do Memo para uma fonte onde todos os caracteres tenham o mesmo tamanho. Ex: "Lucida Console".

Victor Tadashi
  • 1,1mil
  • 8
  • 20