🚀 go-pugleaf

W dniu poniedziałek, 13 sierpnia 2018 15:14:19 UTC+2 użytkownik Borneq napisał:
> Szukam lepszego komponentu TPageControl, takiego, który można tab 
> przesuwać za pomocą myszy, chcę zrobić edytor z Synedit z zakładkami.

Sprawdź TChromeTabs
https://github.com/norgepaul/TChromeTabs

Możliwości opisane tutaj:
https://stackoverflow.com/posts/13843460/revisions

W nowych Delphi TChromeTabs jest do instalacji przez GetIt'a

Pozdrawiam,
Bogdan Polak

W dniu 13.08.2018 o 16:27, Bogdan Polak BSC pisze:
> W nowych Delphi TChromeTabs jest do instalacji przez GetIt'a

Jak się instaluje za pomocą GetIt'a?

W dniu 2018-08-13 o 18:12, Borneq pisze:
> W dniu 13.08.2018 o 16:27, Bogdan Polak BSC pisze:
>> W nowych Delphi TChromeTabs jest do instalacji przez GetIt'a
> 
> Jak się instaluje za pomocą GetIt'a?

Tools -> GetIt Package Manager...

> Szukam lepszego komponentu TPageControl, takiego, który można tab przesuwać za pomocą myszy, chcę
> zrobić edytor z Synedit z zakładkami.

Do tego nie potrzeba lepszego komponentu - wystarczy zwykłe drag&drop.

{ PageControl drag&drop events }

procedure TXFDesigner.PageControlMouseDown(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
  (Sender as TPageControl).BeginDrag(False);
end;

procedure TXFDesigner.PageControlDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
var Accept: Boolean);
begin
  Accept := (Sender is TPageControl) and (Source = Sender);
end;

procedure TXFDesigner.PageControlDragDrop(Sender, Source: TObject; X, Y: Integer);
const
   TCM_GETITEMRECT = $130A;
var
   Rect: TRect;
   I: Integer;
begin
  with Sender as TPageControl do
  for I := 0 to PageCount-1 do
  begin
    Perform(TCM_GETITEMRECT, I, @Rect);
    if PtInRect(Rect, Point(X, Y)) then
    with ActivePage do
    begin
      if PageIndex <> I then PageIndex := I;
      Exit;
    end;
  end;
end;

-- 
pozdrowienia
Krzysztof Szyszka, X-Files Software
Developer of X-DBGrid Component
Embarcadero Technology Partner
http://www.x-files.pl/