unit1.pas

超强功能文本编辑器

begin
  memotxt.PasteFromClipboard;
end;

procedure Ttxtform.menucxClick(Sender: TObject);
begin
  memotxt.Undo;
end;

procedure Ttxtform.menudelClick(Sender: TObject);
begin
  memotxt.ClearSelection;
end;

procedure Ttxtform.menuselClick(Sender: TObject);
begin
  memotxt.SelectAll;
end;

procedure Ttxtform.menuendClick(Sender: TObject);
begin
  txtform.Close;                  //调用memotxt组件中close事件中的语句
end;

procedure Ttxtform.PopupMenu1Popup(Sender: TObject);
begin
if memotxt.SelLength<>0 then
    begin
      pupcopy.Enabled:=true;
      pupcut.Enabled:=true;
      pupdel.Enabled:=true;
    end
  else
    begin
      pupcopy.Enabled:=false;
      pupcut.Enabled:=false;
      pupdel.Enabled:=false;
    end;
  if memotxt.Modified then
    begin
     pupcx.Enabled:=true ;
    end
  else
     pupcx.Enabled:=false;
end;

procedure Ttxtform.menuautoClick(Sender: TObject);
begin
  menuauto.Checked:=not menuauto.Checked;
  if menuauto.Checked then
  begin
    memotxt.WordWrap:=true;
  end
  else
    memotxt.WordWrap:=false;
end;
procedure Ttxtform.menufondClick(Sender: TObject);
begin
  fontdialog1.Font:=memotxt.Font;
  fontdialog1.Execute;
  toolbold.Down:= fsbold in fontdialog1.Font.Style;
  toolitalic.Down:=fsitalic in fontdialog1.font.style;
  toolunderline.Down:= fsunderline in fontdialog1.Font.Style;
  memotxt.Font:=fontdialog1.Font;
end;
procedure Ttxtform.subboldClick(Sender: TObject);
begin
  if subbold.Checked=true then
  begin
   subbold.Checked:=false;
   memotxt.Font.Style:=memotxt.Font.Style-[fsbold];
   toolbold.Down:=false;
  end
  else
  begin
   subbold.Checked:=true;
   memotxt.Font.Style:=memotxt.Font.Style+[fsbold];
   toolbold.Down:=true;
  end;
end;

procedure Ttxtform.subitalicClick(Sender: TObject);
begin
 if subitalic.Checked=true then
  begin
   subitalic.Checked:=false;
   memotxt.Font.Style:=memotxt.Font.Style-[fsitalic];
   toolitalic.Down:=false;
  end
  else
  begin
   subitalic.Checked:=true;
   memotxt.Font.Style:=memotxt.Font.Style+[fsitalic];
   toolitalic.Down:=true;
  end;
end;

procedure Ttxtform.subunderlineClick(Sender: TObject);
begin
 if subunderline.Checked=true then
  begin
   subunderline.Checked:=false;
   memotxt.Font.Style:=memotxt.Font.Style-[fsunderline];
   toolunderline.Down:=false;
  end
  else
  begin
   subunderline.Checked:=true;
   memotxt.Font.Style:=memotxt.Font.Style+[fsunderline];
   toolunderline.Down:=true;
  end;
end;
procedure Ttxtform.toolleftClick(Sender: TObject);
begin
  memotxt.Alignment:=taleftJustify ;
  toolleft.Down:=true;
  toolright.Down:=false;
  toolmiddle.Down:=false;
end;

procedure Ttxtform.toolmiddleClick(Sender: TObject);
begin
  memotxt.Alignment:=tacenter ;
  toolleft.Down:=false;
  toolright.Down:=false;
  toolmiddle.Down:=true;
end;

procedure Ttxtform.toolrightClick(Sender: TObject);
begin
  memotxt.Alignment:=tarightJustify ;
  toolleft.Down:=false;
  toolright.Down:=true;
  toolmiddle.Down:=false;
end;

procedure Ttxtform.menufindClick(Sender: TObject);
begin
  finddialog1.Execute;
end;

procedure Ttxtform.memotxt1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if memotxt.SelLength<>0 then
    begin
      toolcopy.Enabled:=true;
      toolcut.Enabled:=true;
      tooldel.Enabled:=true;
    end
  else
    begin
      toolcopy.Enabled:=false;
      toolcut.Enabled:=false;
      tooldel.Enabled:=false;
    end;
  if memotxt.Modified then
    begin
     toolcx.Enabled:=true;
    end
  else
     toolcx.Enabled:=false;
end;

procedure Ttxtform.memotxt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if memotxt.SelLength<>0 then
    begin
      toolcopy.Enabled:=true;
      toolcut.Enabled:=true;
      tooldel.Enabled:=true;
    end
  else
    begin
      toolcopy.Enabled:=false;
      toolcut.Enabled:=false;
      tooldel.Enabled:=false;
    end;
  if memotxt.Modified then
    begin
     toolcx.Enabled:=true;
    end
  else
     toolcx.Enabled:=false;
end;

procedure Ttxtform.FindDialog1Find(Sender: TObject);
var
  FoundAt:longint;
  startpos,toend:integer;
begin
  with memotxt do
  begin
    if sellength<>0 then
      startpos:=selstart+sellength
    else
     startpos:=memotxt.Selstart;
    toend:=length(text)-startpos;
    foundAt:=findtext(finddialog1.findtext,startpos,toend,[stMatchcase]);
   if foundAt<>-1 then
   begin
     setfocus;
     selstart:=foundAt;
     sellength:=length(finddialog1.FindText);
   end
   else
     messagedlg(concat('找不到''',finddialog1.findtext,''''),mterror,[mbok],0);
   end;
end;

procedure Ttxtform.memotxtMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if memotxt.SelLength<>0 then
    begin
      toolcopy.Enabled:=true;
      toolcut.Enabled:=true;
      tooldel.Enabled:=true;
    end
  else
    begin
      toolcopy.Enabled:=false;
      toolcut.Enabled:=false;
      tooldel.Enabled:=false;
    end;
  if memotxt.Modified then
    begin
     toolcx.Enabled:=true;
    end
  else
     toolcx.Enabled:=false;
end;

procedure Ttxtform.memotxtKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if memotxt.SelLength<>0 then
    begin
      toolcopy.Enabled:=true;
      toolcut.Enabled:=true;
      tooldel.Enabled:=true;
    end
  else
    begin
      toolcopy.Enabled:=false;
      toolcut.Enabled:=false;
      tooldel.Enabled:=false;
    end;
  if memotxt.Modified then
    begin
     toolcx.Enabled:=true;
    end
  else
     toolcx.Enabled:=false;
end;

procedure Ttxtform.memotxtChange(Sender: TObject);
begin
 if memotxt.Modified then
    begin
     menucx.Enabled:=true;
    end
  else
     menucx.Enabled:=false;
end;

procedure Ttxtform.ToolButton3Click(Sender: TObject);
begin
form2.show;
end;

procedure Ttxtform.menuprintClick(Sender: TObject);
begin
if printdialog1.Execute then
printDialog1.Execute;
end;

procedure Ttxtform.B1Click(Sender: TObject);
begin
if colordialog1.Execute then
memotxt.color:=colordialog1.Color;
end;

procedure Ttxtform.menttimedateClick(Sender: TObject);
var
 Present: TDateTime;
 Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
 Present:= Now;
 DecodeDate(Present, Year, Month, Day);       //获取当前年月日
 DecodeTime(Present, Hour, Min, Sec, MSec);   //获取当前时间
 memotxt.SelText:=#13+ IntToStr(Year)+'-'+IntToStr(Month)+
 '-'+IntToStr(Day)+'   '+IntToStr(Hour)+':'+IntToStr(Min)+':'+ IntToStr(sec);
end;                                        //在当前文本位置添加日期时间

procedure Ttxtform.menuaboutClick(Sender: TObject);
begin
form2.Show;
end;

end.