| 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); |
| 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; |
| 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, |