Editor de texto em Pascal/Lazarus

Publicado por Perfil removido (última atualização em 10/11/2020)

[ Hits: 2.329 ]

Download Editor.txt




Editor de texto simples, porém funcional para o Lazarus (Delphi 7 para Linux).

  



Esconder código-fonte

Novo
 
Memo1.Clear;
Memo1.SetFocus;
 
-----------------------------------------
Abrir
 
if openDialog1.Execute then
begin
memo1.Lines.LoadFromFile(OpenDialog1.Filename);
memo1.setfocus;
end;
 
-----------------------------------------
 
Botão Salvar
 
if SaveDialog1.execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;
 
-----------------------------------------
Copiar
Memo1.CopytoClipBoard;
 
-----------------------------------------
Colar
 
Memo1.PasteFromClipboard; ;
 
-----------------------------------------
Recortar
 
Memo1.CutToClipBoard
 
-----------------------------------------
Fonte
 
FontDialog1.Font:=Memo1.Font;
if FontDialog1.Execute then
begin
Memo1.Font:= FontDialog1.Font;
Memo1.SetFocus;
end;

Scripts recomendados

Calculo de la Moda

escreve os números de 1 a 9 com repeat - until

controle de notas de um aluno com registro e array

encontrar o menor valor em um vetor

Rompecompiladores Ackerman


  

Comentários
[1] Comentário enviado por maurixnovatrento em 12/11/2020 - 21:56h

bom.

___________________________________________________________
[code]Conhecimento não se Leva para o Túmulo.
https://github.com/MauricioFerrari-NovaTrento [/code]


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts