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.621 by h677, Mon Sep 11 15:57:14 2006 UTC revision 1.622 by h677, Fri Dec 29 13:04:04 2006 UTC
# Line 4170  procedure TGikoForm.BrowserTabDragDrop(S Line 4170  procedure TGikoForm.BrowserTabDragDrop(S
4170  var  var
4171          idx: Integer;          idx: Integer;
4172  begin  begin
4173        FDragWFirst := False;
4174          idx := BrowserTab.IndexOfTabAt(X, Y);          idx := BrowserTab.IndexOfTabAt(X, Y);
4175          if idx <> -1 then          if idx <> -1 then
4176                  BrowserTab.Tabs.Move(BrowserTab.TabIndex, idx);                  BrowserTab.Tabs.Move(BrowserTab.TabIndex, idx);
# Line 4184  begin Line 4185  begin
4185    
4186          TabIdx := BrowserTab.IndexOfTabAt(x, y);          TabIdx := BrowserTab.IndexOfTabAt(x, y);
4187    
4188          if ( ssLeft in Shift ) and ( BrowserTab.Style = tsTabs ) then begin          if ( ssLeft in Shift ) then begin
4189                  if FDragWFirst = false then begin          if (FDragWFirst) then begin
                         FDragWFirst := true;  
                 end else begin  
4190                          BrowserTab.EndDrag(false);                          BrowserTab.EndDrag(false);
4191                          BrowserTab.BeginDrag(false, DandD_THRESHOLD);                          BrowserTab.BeginDrag(false, DandD_THRESHOLD);
4192                          FDragWFirst := false;          end;
                 end;  
4193          end else begin          end else begin
4194                  BrowserTab.EndDrag(false);                  BrowserTab.EndDrag(false);
4195                  FDragWFirst := false;                  FDragWFirst := false;
# Line 6284  end; Line 6282  end;
6282  procedure TGikoForm.BrowserTabMouseUp(Sender: TObject;  procedure TGikoForm.BrowserTabMouseUp(Sender: TObject;
6283          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
6284  begin  begin
6285          if FDragWFirst <> true then begin          if FDragWFirst = true then
6286                  FDragWFirst := false;                  FDragWFirst := false;
6287  {  
6288          end else if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold)      if GikoSys.Setting.ListOrientation = gloHorizontal then begin
6289          and (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin          if GikoSys.Setting.ListWidthState = glsMin then begin
6290  (*}              GikoDM.BrowserMaxAndFocusAction.Execute;
6291          end else begin          end;
6292  //*)      end else begin
6293                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin          if GikoSys.Setting.ListHeightState = glsMin then begin
6294                          if GikoSys.Setting.ListWidthState = glsMin then begin              GikoDM.BrowserMaxAndFocusAction.Execute;
6295                                  GikoDM.BrowserMaxAndFocusAction.Execute;          end;
6296                          end;      end;
                 end else begin  
                         if GikoSys.Setting.ListHeightState = glsMin then begin  
                                 GikoDM.BrowserMaxAndFocusAction.Execute;  
                         end;  
                 end;  
         end;  
6297  end;  end;
6298    
6299  procedure TGikoForm.LinkToolBarDragOver(Sender, Source: TObject; X,  procedure TGikoForm.LinkToolBarDragOver(Sender, Source: TObject; X,

Legend:
Removed from v.1.621  
changed lines
  Added in v.1.622

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