Problemas Rich Edit

Delphi

11/02/2003

Olá,
Em um programa tenho uma variável INTEGER que recebe valores digitados pelo usuário.
Essa variável quero que seja usada para determinar a linha no RICHEDIT em que algo deve ser escrito, exemplo:
Se o usuário digitar o número 4 para a variável, certas palavras devem ser escritas na linha 4 do RichEdit.

Também preciso saber como faço para mudar a cor da fonte só nos 2 primeiros caractéres de cada linha do RICHEDIT.

Agradecido,
Marco


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

11/02/2003

Copia este unit e rode, nao vai babar ta....

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
RichEditC: TRichEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEditC.SelLength := 0;
RichEditC.SelAttributes.Color := ClGray;
RichEditC.SelText := ´Appended Text´
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEditC.SelLength := 0;
RichEditC.SelAttributes.Color := ClRed;
RichEditC.SelText := ´ oI ´

end;

procedure TForm1.Button3Click(Sender: TObject);
Var Position,LineNo : Integer;

begin
LineNo := 2;
position := RichEditC.Perform(EM_LINEINDEX, LineNo, 0) +
Length(RichEditC.Lines[LineNo]);
RichEditC.SelStart := position;
RichEditC.SelLength := 0;
RichEditC.SelAttributes.Color := ClGray;
RichEditC.SelText := ´ Linha 3´

end;

end.


GOSTEI 0
POSTAR