Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.294 by q9_, Mon May 3 15:18:29 2004 UTC revision 1.295 by h677, Tue May 4 05:46:13 2004 UTC
# Line 924  type Line 924  type
924    
925                  procedure SetActiveList(Obj: TObject);                  procedure SetActiveList(Obj: TObject);
926                  procedure ListClick;                  procedure ListClick;
927                  procedure ListDoubleClick;                  procedure ListDoubleClick(Shift: TShiftState);
928                  procedure BrowserMovement(AName: string);                  procedure BrowserMovement(AName: string);
929                  procedure SelectListItem(List: TList);                  procedure SelectListItem(List: TList);
930  //              procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1);  //              procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1);
# Line 2626  begin Line 2626  begin
2626                  if Key = VK_BACK then begin                  if Key = VK_BACK then begin
2627  //              UpFolderButtonClick(Sender);  //              UpFolderButtonClick(Sender);
2628                  end else if Key = VK_SPACE then begin                  end else if Key = VK_SPACE then begin
2629                          ListDoubleClick;                          ListDoubleClick(Shift);
2630                  end else if Key = VK_RETURN then begin                  end else if Key = VK_RETURN then begin
2631                          ListClick;                          ListClick;
2632                  end;                  end;
# Line 2636  begin Line 2636  begin
2636                  end else if Key = VK_SPACE then begin                  end else if Key = VK_SPACE then begin
2637                          ListClick;                          ListClick;
2638                  end else if Key = VK_RETURN then begin                  end else if Key = VK_RETURN then begin
2639                          ListDoubleClick;                          ListDoubleClick(Shift);
2640                  end;                  end;
2641          end;          end;
2642  end;  end;
# Line 4064  begin Line 4064  begin
4064          end;          end;
4065  end;  end;
4066    
4067  procedure TGikoForm.ListDoubleClick;  procedure TGikoForm.ListDoubleClick(Shift: TShiftState);
4068  var  var
4069          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
4070          shiftDown: Boolean;          shiftDown: Boolean;
4071  begin  begin
4072          shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);          //shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4073  //      PostMessage(ListView.Handle, WM_CANCELMODE, 0, 0);          shiftDown := (ssShift in Shift);
4074            //      PostMessage(ListView.Handle, WM_CANCELMODE, 0, 0);
4075    
4076          if ListView.Selected = nil then Exit;          if ListView.Selected = nil then Exit;
4077  //      if TreeView.Selected = nil then Exit;  //      if TreeView.Selected = nil then Exit;
# Line 5002  begin Line 5003  begin
5003  end;  end;
5004    
5005  procedure TGikoForm.ListViewDblClick(Sender: TObject);  procedure TGikoForm.ListViewDblClick(Sender: TObject);
5006    var
5007            shift: TShiftState;
5008  begin  begin
5009          ListDoubleClick;          shift := [];
5010            if GetAsyncKeyState(VK_SHIFT) = Smallint($8001) then
5011                    Include(shift, ssShift);
5012            if GetAsyncKeyState(VK_CONTROL) = Smallint($8001) then
5013                    Include(shift, ssCtrl);
5014            if GetAsyncKeyState(VK_MENU) = Smallint($8001) then
5015                    Include(shift, ssAlt);
5016    
5017            ListDoubleClick(shift);
5018  end;  end;
5019    
5020  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);
# Line 9310  begin Line 9321  begin
9321                                  Header := CustomStringReplace(Header, '<b>', '',true);                                  Header := CustomStringReplace(Header, '<b>', '',true);
9322                          end;                          end;
9323    
9324                          Body := CustomStringReplace(Res.FBody, '<br> ', #13#10,true);                          //Body := CustomStringReplace(Res.FBody, '<br> ', #13#10,true);
9325                            Body := CustomStringReplace(Res.FBody, '<br>', #13#10,true);
9326                          Body := CustomStringReplace(Body, '<br>', #13#10,true);                          Body := CustomStringReplace(Body, '<br>', #13#10,true);
9327                          Body := CustomStringReplace(Body, '</a>', '',true);                          Body := CustomStringReplace(Body, '</a>', '',true);
9328    
# Line 9320  begin Line 9332  begin
9332                                  Body := CustomStringReplace(Body, '&gt;', '>');                                  Body := CustomStringReplace(Body, '&gt;', '>');
9333                                  Body := CustomStringReplace(Body, '&quot;', '"');                                  Body := CustomStringReplace(Body, '&quot;', '"');
9334                                  Body := CustomStringReplace(Body, '&amp;', '&');                                  Body := CustomStringReplace(Body, '&amp;', '&');
9335                                  Body := CustomStringReplace(Body, '&nbsp;', ' ');                                  //Body := CustomStringReplace(Body, '&nbsp;', ' ');
9336                          end;                          end;
9337    
9338                          Header := Header + Body;                          Header := Header + Body;

Legend:
Removed from v.1.294  
changed lines
  Added in v.1.295

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26