untfuncd.pas

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

    //self.FormStyle := fsNormal;
    CheckBox2.Checked := false;
    k := Application.MessageBox(PChar('代码内容已经修改，是否保存？'),PChar('系统提示'),MB_YESNOCANCEL + MB_ICONQUESTION);
    if k = idYES then
    begin
      self.SBtnSaveClick(Sender);
      if Edited then
        Exit;
    end
    else
     if k = idCancel then
       Exit;
   end;

    Self.ComboType.Text := '选择代码类别';
    self.ComboBoxFunc.Clear ;
    self.ComboBoxFunc.Text := '选择该分类代码';
    Self.EditUses.Clear;
    Self.EdtSubject.Clear;
    Self.MemoConent.Clear;
    Self.MemoRemark.Clear;
    CheckBox1.Caption := '自动换行';
    CheckBox2.Caption := '置于顶层';
    Self.Tag := 0;
    Self.Caption := '添加代码';
    Edited := false;
end;

{==========================================================================
　过程名:    TFrmFuncD.FormActivate
  功  能:    如果是编辑状态，则载入代码
  参　数:
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFrmFuncD.FormActivate(Sender: TObject);
var
  PType, PSubject, PUses: string;
  PConent, PRemark  : Tstrings;
begin
  if Self.Tag > 0 then
    begin
      PConent := Tstringlist.Create;
      PRemark := Tstringlist.Create;
      SetLength(PType, 255);
      SetLength(PSubject, 255);
      SetLength(PUses, 255);
      if Func_GetRecordByID(DM.ADOConnection1, Self.Tag,
        PChar(PType), PChar(PSubject), PChar(PUses), PConent, PRemark) then
        begin
          EditUses.Text := PUses;
          MemoConent.Text := PConent.Text;
          MemoRemark.Text := PRemark.Text;
          ComboType.Text := PType;
          EdtSubject.Text := PSubject;
          self.Caption := '修改代码－' + PSubject;
        end
      else
        self.Caption := '添加代码' ;
      PConent.Free;
      PRemark.Free;
    end
  else
  begin
    self.Caption := '添加代码' ;
    if Clipboard.HasFormat(CF_TEXT) then
    begin
      self.MemoConent.PasteFromClipboard ;
      self.EdtSubject.Text := self.MemoConent.Lines[0] ;
      EditUses.Text := MemoConent.Lines[1] ;
    end;
  end;
end;

procedure TFrmFuncD.CheckBox2Click(Sender: TObject);
var
 tname,tuses,ttype : string;
begin
  tname := EdtSubject.Text ;
  tuses := EditUses.Text ;
  ttype := ComboType.Text ;

  if CheckBox2.Checked then
  begin
    self.WindowState := wsNormal;
    self.FormStyle := fsStayOnTop;
    FormMain.CoolTrayIcon1.HideMainForm ;
  end
  else
    self.FormStyle := fsNormal;

  ComboType.Text := '选择代码类别';
  ComboBoxFunc.Text := '选择该分类代码';
  CheckBox1.Caption := '自动换行';
  CheckBox2.Caption := '置于顶层';
  EdtSubject.Text := tname ;
  EditUses.Text := tuses ;
  ComboType.Text := ttype ;
end;

procedure TFrmFuncD.FormCreate(Sender: TObject);
begin
  IDList := Tstringlist.Create;
  Edited := false;
end;

procedure TFrmFuncD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not Edited then
  begin
    IDList.Free;
    Action := caFree;
  end
  else
  begin
    self.SBtnCloseClick(Sender);
    if Edited then
      Action := caNone
    else
    begin
      IDList.Free;
      Action := caFree;
    end;
  end;
end;

procedure TFrmFuncD.ComboTypeChange(Sender: TObject);
var
  SubList           : Tstrings;
begin
  SubList := Tstringlist.Create;
  Func_GetIDListByType(DM.ADOConnection1, self.ComboType.Text, IDList, SubList);
  self.ComboBoxFunc.Clear;
  self.ComboBoxFunc.Text := '选择该分类代码';
  self.ComboBoxFunc.Items.AddStrings(SubList);
  SubList.Free;
end;

procedure TFrmFuncD.ComboBoxFuncChange(Sender: TObject);
var
  PType, PSubject, PUses: string;
  PConent, PRemark  : Tstrings;
  k : integer;
begin
  if Edited then
  begin
    //self.FormStyle := fsNormal;
    CheckBox2.Checked := false;
    k := Application.MessageBox(PChar('代码内容已经修改，是否保存？'),PChar('系统提示'),MB_YESNOCANCEL + MB_ICONQUESTION);
    if k = idYES then
    begin
      self.SBtnSaveClick(Sender);
      if Edited then
        Exit;
    end
    else
     if k = idCancel then
       Exit;
   end;

  PConent := Tstringlist.Create;
  PRemark := Tstringlist.Create;
  SetLength(PType, 255);
  SetLength(PSubject, 255);
  SetLength(PUses, 255);
  if Func_GetRecordByID(DM.ADOConnection1, StrToInt(IDList[ComboBoxFunc.ItemIndex]),
    PChar(PType), PChar(PSubject), PChar(PUses), PConent, PRemark) then
    begin
      EditUses.Text := PUses;
      MemoConent.Text := PConent.Text;
      MemoRemark.Text := PRemark.Text;
      ComboType.Text := PType;
      EdtSubject.Text := PSubject;
    end;
  PConent.Free;
  PRemark.Free;
  self.Caption := '修改代码－' + PSubject;
  self.Tag := StrToInt(IDList[ComboBoxFunc.ItemIndex]);
  Edited := false;
end;

procedure TFrmFuncD.PopupMenu1Popup(Sender: TObject);
begin
  //self.N1.Enabled := self.MemoConent.SelLength > 0 ;
  //self.N2.Enabled := self.N1.Enabled ;
  //N3.Enabled := Clipboard.HasFormat(CF_TEXT);
end;

procedure TFrmFuncD.MemoConentDblClick(Sender: TObject);
begin
  MemoConent.SelectAll ;
end;

procedure TFrmFuncD.MemoConentKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edited := true;
end;

procedure TFrmFuncD.SbtWinClick(Sender: TObject);
begin
  if self.WindowState = wsNormal then
    FormMain.FM := 8
  else
    FormMain.FM := 9;
  self.Close ;
end;

procedure TFrmFuncD.ComboBoxFuncExit(Sender: TObject);
begin
  if Trim(EdtSubject.Text)='' then
    ComboBoxFunc.Text := '选择该分类代码'
  else
    ComboBoxFunc.Text := EdtSubject.Text ;
end;

procedure TFrmFuncD.FormHide(Sender: TObject);
begin
  if FormMain.WindowState = wsMinimized then
  begin
    FormMain.TimerEnable(0);
    ShowInfo('右键打开菜单，Delphi程序员助手为您服务。');
  end;
end;

procedure TFrmFuncD.FormShow(Sender: TObject);
begin
  if FormMain.WindowState = wsMinimized then
    FormMain.TimerEnable(1);
end;

procedure TFrmFuncD.MemoConentDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  MemoConent.SetFocus;
  Accept := true;
end;

procedure TFrmFuncD.MemoConentDragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  MemoConent.Update ;
end;

procedure TFrmFuncD.EdtSubjectDblClick(Sender: TObject);
begin
  EdtSubject.SelectAll ;
end;

procedure TFrmFuncD.EditUsesDblClick(Sender: TObject);
begin
  EditUses.SelectAll ;
end;

end.