fopenweb.pas

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

unit fOpenWeb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, CorelButton, HTTPGet, dMain, SynEditHighlighter,  SynHighlighterMulti, UHighlighterProcs;

type
  TfrmOpenWeb = class(TForm)
    pb: TProgressBar;
    pnlStore: TPanel;
    imgIcon: TImage;
    cmbURL: TComboBox;
    Label1: TLabel;
    btnCancel: TCorelButton;
    btnOK: TCorelButton;
    HTTPGet: THTTPGet;
    procedure cmbURLEnter(Sender: TObject);
    procedure httpGetProgress(Sender: TObject; TotalSize, Readed: Integer);
    procedure btnOKClick(Sender: TObject);
    procedure httpGetDoneString(Sender: TObject; Result: String);
    procedure btnCancelClick(Sender: TObject);
    procedure httpGetError(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    strGet: String;
  end;

var
  frmOpenWeb: TfrmOpenWeb;

implementation

uses fMain, fDoc;

{$R *.dfm}

procedure TfrmOpenWeb.cmbURLEnter(Sender: TObject);
begin
  cmbURL.SelStart := 0;
  cmbURL.SelLength := Length(cmbURl.text);
end;

procedure TfrmOpenWeb.httpGetProgress(Sender: TObject; TotalSize,
  Readed: Integer);
begin
  pb.Max := totalSize;
  pb.Position := Readed;
end;

procedure TfrmOpenWeb.btnOKClick(Sender: TObject);
begin
  httpGet.URL := cmbURL.text;
  httpGet.GetString;
end;

procedure TfrmOpenWeb.httpGetDoneString(Sender: TObject; Result: String);
begin
//  frmMain.NewDocument1Click(nil);

//  TfrmDoc(frmMain.ActiveMDIChild).FindProperty(ExtractFileExt(cmbURl.Text));
  strGet := Result;
  dmMain.NewDoc('Untitled' + INtToStr(frmMain.MDIChildCount));
  dmMain.SelDoc.sciMain.Highlighter := dmMain.GetHighlighterForFile(cmbURL.text);
  dmMain.SelDoc.sciMain.Text := strGet;
  if dmMain.SelDoc.sciMain.Highlighter = nil then
    dmMain.SelDoc.cmbLang.ItemIndex := 0
  else
    if dmMain.SelDoc.sciMain.Highlighter is TSynMultiSyn then
      dmMain.SelDoc.cmbLang.ItemIndex := dmMain.SelDoc.cmbLang.Items.IndexOf((dmMain.SelDoc.sciMain.Highlighter as TSynMultiSyn).DefaultLanguageName)
    else
      dmMain.SelDoc.cmbLang.ItemIndex := dmMain.SelDoc.cmbLang.Items.IndexOf(GetLangName(dmMain.SelDoc.sciMain.Highlighter));

  close;

end;

procedure TfrmOpenWeb.btnCancelClick(Sender: TObject);
begin
  close;
end;

procedure TfrmOpenWeb.httpGetError(Sender: TObject);
begin
  ShowMessage('Error');
  close;
end;

end.