fdownloadlanguage.pas

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

unit fDownloadLanguage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ExtCtrls, StdCtrls, HTTPGet, strUtils,
  CorelButton;

type
  TfrmDownloadLanguage = class(TForm)
    pnlTop: TPanel;
    Label1: TLabel;
    picIcon: TImage;
    lstLangs: TListView;
    img: TImageList;
    get: THTTPGet;
    btnDownload: TCorelButton;
    btnOK: TCorelButton;
    btnCancel: TCorelButton;
    Bevel1: TBevel;
    btnAll: TCorelButton;
    btnNone: TCorelButton;
    procedure getDoneString(Sender: TObject; Result: String);
    procedure FormShow(Sender: TObject);
    procedure btnDownloadClick(Sender: TObject);
    procedure btnAllClick(Sender: TObject);
    procedure btnNoneClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    iDownload: Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDownloadLanguage: TfrmDownloadLanguage;

implementation

{$R *.dfm}

procedure TfrmDownloadLanguage.getDoneString(Sender: TObject;
  Result: String);
var
  sDesc, sName: string;
  i,b: integer;
  strList: TStringList;
  bGetName: Boolean;
  p,d: PChar;
begin
  p := PChar(Result);

  bGetName := True;
  sName := '';
  sDesc := '';
  strList := TStringList.Create;
  strList.Text := Result;
//  strList.Add(Result);
  for i := 0 to strList.Count - 1 do begin
    b := Pos('|', strList[i]);
    sName := LeftStr(strList[i], b-1);
    sDesc := MidStr(strList[i], b+1,StrLen(PChar(strList[i]))-b);
    With lstLangs.Items.Add do begin
      Caption := sName;
      SubItems.Add(sDesc);
      ImageIndex := 0;
    end;
  end;

end;

procedure TfrmDownloadLanguage.FormShow(Sender: TObject);
begin
  Get.URL := 'http://cedit.sourceforge.net/highlighters/langfiles.dat';
  Get.GetString;
end;

procedure TfrmDownloadLanguage.btnDownloadClick(Sender: TObject);
var
  i: Integer;
begin
  for i := lstLangs.Items.Count - 1 downto 0 do begin
    if lstLangs.Items[i].Checked then begin
      Get.URL := 'http://cedit.sourceforge.net/highlighters/' + lstLangs.Items[i].Caption;
      Get.FileName := ExtractFilePath(Application.ExeName) + '\highlighters\' + lstLangs.Items[i].Caption;
      Get.GetFile;
      lstLangs.Items.Delete(i);
    end;
  end;
end;

procedure TfrmDownloadLanguage.btnAllClick(Sender: TObject);
var i: Integer;
begin
  for i := 0 to lstLangs.Items.Count - 1 do begin
    lstLangs.Items[i].Checked := True;
  end;
end;

procedure TfrmDownloadLanguage.btnNoneClick(Sender: TObject);
var i: Integer;
begin
  for i := 0 to lstLangs.Items.Count - 1 do begin
    lstLangs.Items[i].Checked := False;
  end;
end;

procedure TfrmDownloadLanguage.btnOKClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to lstLangs.Items.Count - 1 do begin
    if lstLangs.Items[i].Checked then begin
      Get.URL := 'http://cedit.sourceforge.net/highlighters/' + lstLangs.Items[i].Caption;
      Get.FileName := ExtractFilePath(Application.ExeName) + 'highlighters\' + lstLangs.Items[i].Caption;
      Get.GetFile;
    end;
  end;
  close;
end;

procedure TfrmDownloadLanguage.btnCancelClick(Sender: TObject);
begin
  exit;
end;

end.