ftask.pas

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

unit fTask;

interface

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

type
  TfrmTask = class(TForm)
    trkPercent: TTrackBar;
    edtID: TEdit;
    lblTask: TLabel;
    lblCOmplete: TLabel;
    edtDesc: TMemo;
    lblDesc: TLabel;
    bvlLower: TBevel;
    btnCancel: TCorelButton;
    btnOK: TCorelButton;
    bvlUpper: TBevel;
    lblPer: TLabel;
    pnlTop: TPanel;
    Label1: TLabel;
    procedure trkPercentChange(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTask: TfrmTask;

implementation

uses fOutput, fMain;

{$R *.dfm}

procedure TfrmTask.trkPercentChange(Sender: TObject);
begin
  lblPer.Caption := PChar(IntTOStr(trkPercent.Position * 10)) + '%';
end;

procedure TfrmTask.btnOKClick(Sender: TObject);
var
  i: Integer;
  strSave: TstringList;
begin
  if frmMain.frmOutput.lstTask.ItemIndex = -1 then begin
    With frmMain.frmOutput.lstTask.Items.Add do begin
      Caption := edtID.text;
      if trkPercent.Position = 10 then
        Checked := True;
      SubItems.Add(lblPer.Caption);
      Subitems.Add(edtDesc.Text);
    end;
  end
  else begin
    //with frmMain.frmOutput.lstTask.Selected do begin
    frmMain.frmOutput.lstTask.Selected.Caption := edtID.text;
    if trkPercent.Position = 10 then
      frmMain.frmOutput.lstTask.Selected.Checked := True;
    frmMain.frmOutput.lstTask.Selected.SubItems[0]:= (lblPer.Caption);
    frmMain.frmOutput.lstTask.Selected.Subitems[1] := (edtDesc.Text);
    //end;
  end;
  strSave := TStringList.Create;
  for i:=0 to frmMain.frmOutput.lstTask.Items.Count - 1 do begin
    With frmMain.frmOutput.lstTask.Items do begin
      strSave.Add(Item[i].Caption);
      strSave.Add(Item[i].SubItems[0]);
      strSave.Add(Item[i].SubItems[1]);
    end;
  end;
  strSave.SaveToFile(ExtractFilePath(application.exename) + 'data\tasks.tsk');
  Close;
end;

procedure TfrmTask.btnCancelClick(Sender: TObject);
begin
  Close;
end;

end.