Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/FavoriteArrange.pas

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

revision 1.3.2.1 by yoffy, Mon Apr 19 22:46:48 2004 UTC revision 1.3.2.2 by yoffy, Thu Sep 9 16:20:30 2004 UTC
# Line 154  begin Line 154  begin
154                  Exit;                  Exit;
155          if FolderTreeView.Selected.IsFirstNode then          if FolderTreeView.Selected.IsFirstNode then
156                  Exit;                  Exit;
157          if FolderTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then begin          if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then begin
158                  if MsgBox(Handle, DEL_LINK_MSG, DEL_TITLE, MB_YESNO or MB_ICONQUESTION) <> ID_YES then                  if FolderTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then begin
159                          Exit;                          if MsgBox(Handle, DEL_LINK_MSG, DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
160          end else if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then begin                                  Exit;
161                  if MsgBox(Handle, StringReplace( DEL_MSG, '^0', FolderTreeView.Selected.Text, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONQUESTION) <> ID_YES then                  end else begin
162                          Exit;                          if MsgBox(Handle, StringReplace( DEL_MSG, '^0', FolderTreeView.Selected.Text, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
163                                    Exit;
164                    end;
165          end;          end;
166    
167          FDeleteList.Add(FolderTreeView.Selected.Data);          FDeleteList.Add(FolderTreeView.Selected.Data);

Legend:
Removed from v.1.3.2.1  
changed lines
  Added in v.1.3.2.2

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