unit1.pas

Editor de Textos em Delphi

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Menus, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Mask,
  ToolEdit, CurrEdit, RxCombos, RXCtrls, RxRichEd, IWControl,
  IWHTMLControls, Grids, Calendar, DBGrids, dblookup, Tabs, RXSplit, DB,
  ADODB,printers, Buttons, ExtDlgs;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    ImageList1: TImageList;
    Arquivo1: TMenuItem;
    Novo1: TMenuItem;
    Abrir1: TMenuItem;
    Salvar1: TMenuItem;
    N1: TMenuItem;
    Salvar2: TMenuItem;
    Salvarcomo1: TMenuItem;
    N2: TMenuItem;
    Configurarpgina1: TMenuItem;
    Vizualizarimpresso1: TMenuItem;
    Imprimir1: TMenuItem;
    N3: TMenuItem;
    Sairo1: TMenuItem;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolBar2: TToolBar;
    ComboBox2: TComboBox;
    ToolButton7: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton16: TToolButton;
    ToolButton8: TToolButton;
    FontComboBox1: TFontComboBox;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    texto: TRxRichEdit;
    PrintDialog1: TPrintDialog;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    ScrollBar1: TScrollBar;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Editar1: TMenuItem;
    Desfazer1: TMenuItem;
    Repetir1: TMenuItem;
    N4: TMenuItem;
    Recortar1: TMenuItem;
    Copiar1: TMenuItem;
    Colar1: TMenuItem;
    N5: TMenuItem;
    Limpar1: TMenuItem;
    Selecionartudo1: TMenuItem;
    N6: TMenuItem;
    Localizar1: TMenuItem;
    Substituir1: TMenuItem;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    Inserir1: TMenuItem;
    Imagem1: TMenuItem;
    DataeHora1: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    Image1: TImage;
    Formatar1: TMenuItem;
    Fonte1: TMenuItem;
    Planodefundo1: TMenuItem;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    SpeedButton1: TSpeedButton;
    procedure ScrollBar1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure textoChange(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton5Click(Sender: TObject);
    procedure Novo1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Imprimir1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Salvar1Click(Sender: TObject);
    procedure Salvar2Click(Sender: TObject);
    procedure Salvarcomo1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure Configurarpgina1Click(Sender: TObject);
    procedure Vizualizarimpresso1Click(Sender: TObject);
    procedure Sairo1Click(Sender: TObject);
    procedure Desfazer1Click(Sender: TObject);
    procedure Repetir1Click(Sender: TObject);
    procedure Limpar1Click(Sender: TObject);
    procedure Recortar1Click(Sender: TObject);
    procedure Copiar1Click(Sender: TObject);
    procedure Colar1Click(Sender: TObject);
    procedure Selecionartudo1Click(Sender: TObject);
    procedure Localizar1Click(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure Substituir1Click(Sender: TObject);
    procedure ReplaceDialog1Find(Sender: TObject);
    procedure ReplaceDialog1Replace(Sender: TObject);
    procedure DataeHora1Click(Sender: TObject);
    procedure Imagem1Click(Sender: TObject);
    procedure Planodefundo1Click(Sender: TObject);
    procedure Fonte1Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure FontComboBox1Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nomedocumento:string;
  caminhodocumento:string;
  posicao:integer=0;
implementation

uses Unit2;

{$R *.dfm}

procedure textonormal;
begin
  form1.Texto.SelAttributes.Name :='Arial';
  form1.Texto.SelAttributes.color :=clblack;
  form1.Texto.SelAttributes.Size :=10;
  form1.Texto.SelAttributes.Style :=[];
  form1.Texto.Paragraph.Alignment := paLeftJustify;
  form1.texto.Color:=clWhite;
end;

function BitmapToRtf(graph:TBitmap):string;
var
     bi, bb, rtf:string;
     bis, bbs:cardinal;
     achar:ShortString;
     HexGraph:string;
     I:Integer;
begin
  GetDIBSizes(graph.Handle, bis, bbs);
  SetLength(bi,bis);
  SetLength(bb,bbs);
  GetDIB(graph.Handle, graph.Palette, PChar(bi)^, PChar(bb)^);
  rtf:='{\rtf1 {\pict\dibitmap ';
  SetLength(HexGraph,(Length(bb) + Length(bi)) * 2);
  I:=2;
  For bis:=1 to Length(bi) do
      begin
      achar:=Format('%x',[Integer(bi[bis])]);
      if Length(achar)=1
         then achar:='0'+achar;
      HexGraph[I-1]:=achar[1];
      HexGraph[I]:=achar[2];
      Inc(I,2);
      end;
  For bbs:=1 to Length(bb) do
      begin
      achar:=Format('%x',[Integer(bb[bbs])]);
      if Length(achar)=1
         then achar:='0'+achar;
      HexGraph[I-1]:=achar[1];
      HexGraph[I]:=achar[2];
      Inc(I,2);
      end;
  rtf:=rtf + HexGraph + ' }}';
  Result:=rtf;
  end;
 
procedure formcaption;
begin
  if nomedocumento<>''
     then form1.Caption:='Fox - '+nomedocumento
     else form1.Caption:='Fox - Documento1';
end;

function extrainome(caminho:string):string;
var x:integer; aux,aux2:string;
begin
aux:='';
aux2:='';
  for x:=1 to length(caminho) do
      if caminho[x]='\'
         then aux:=''
         else aux:=aux+caminho[x];

  for x:=1 to length(aux) do
      if aux[x]='.'
         then break
         else aux2:=aux2+aux[x];

  extrainome:=aux2;
end;

procedure salvarcomo;
var a:integer;
begin
  with form1 do
       begin
       SaveDialog1.execute;
       if SaveDialog1.FileName<>''
          then begin
               if FileExists(SaveDialog1.FileName+'.jcm')
                  then begin
                       with CreateMessageDialog('O arquivo '+SaveDialog1.FileName+' j