paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 11:49:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Add forgotten unit gtk3wssplitter. Issue #34106,

Browse Source 
git-svn-id: trunk@59341 -
This commit is contained in:
juha 2018-10-22 21:53:50 +00:00
parent faba340ef4
commit 1d759559e1
2 changed files with 128 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9478,6 +9478,7 @@ lcl/interfaces/gtk3/gtk3wsforms.pp svneol=native#text/plain
lcl/interfaces/gtk3/gtk3wsimglist.pp svneol=native#text/plain
lcl/interfaces/gtk3/gtk3wsmenus.pp svneol=native#text/plain
lcl/interfaces/gtk3/gtk3wsspin.pp svneol=native#text/plain
lcl/interfaces/gtk3/gtk3wssplitter.pas svneol=native#text/pascal
lcl/interfaces/gtk3/gtk3wsstdctrls.pp svneol=native#text/plain
lcl/interfaces/gtk3/interfaces.pp svneol=native#text/plain
lcl/interfaces/gtk3/issues.xml svneol=native#text/plain

127
lcl/interfaces/gtk3/gtk3wssplitter.pas Normal file
View File

@ -0,0 +1,127 @@
unit gtk3wssplitter;
{$mode objfpc}{$H+}
{$I gtk3defines.inc}
interface
uses
// LCL
LCLProc, ExtCtrls, Classes, Controls, SysUtils, types, Graphics, LCLType,
// widgetset
WSExtCtrls, WSLCLClasses, WSPairSplitter,
Gtk3WSControls,
PairSplitter;
type
{ TGtk3WSPairSplitterSide }
TGtk3WSPairSplitterSide = class(TWSPairSplitterSide)
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
end;
{ TGtk3WSCustomPairSplitter }
TGtk3WSCustomPairSplitter = class(TWSCustomPairSplitter)
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function AddSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; override;
class function RemoveSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; override;
class function SetPosition(ASplitter: TCustomPairSplitter; var NewPosition: integer): Boolean; override;
// special cursor handling
class function GetSplitterCursor(ASplitter: TCustomPairSplitter; var ACursor: TCursor): Boolean; override;
class function SetSplitterCursor(ASplitter: TCustomPairSplitter; ACursor: TCursor): Boolean; override;
end;
implementation
uses
wsproc,gtk3widgets,lazgtk3;
{ TGtk3WSPairSplitterSide }
class function TGtk3WSPairSplitterSide.CreateHandle(
const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
begin
Result:=TLclIntfHandle(TGtk3Window.Create(AWinControl, AParams));
end;
{ TGtk3WSSplitter }
{ TGtk3WSCustomPairSplitter }
class function TGtk3WSCustomPairSplitter.CreateHandle(
const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
begin
Result:=TLclIntfHandle(TGtk3Paned.Create(AWinControl, AParams));
end;
class function TGtk3WSCustomPairSplitter.AddSide(ASplitter: TCustomPairSplitter;
ASide: TPairSplitterSide; Side: integer): Boolean;
var
paned: TGtk3Paned;
wside:TGtk3Widget;
begin
Result := False;
if not (WSCheckHandleAllocated(ASplitter, 'AddSide - splitter') and
WSCheckHandleAllocated(ASide, 'AddSide - side'))
then Exit;
if (Side < 0) or (Side > 1) then exit;
paned:=TGtk3Paned(ASplitter.Handle);
wside:=TGtk3Widget(ASide.Handle);
if Side=0 then
begin
PGtkWIdget(wside.Widget)^.set_parent(nil);
PGtkPaned(paned.Widget)^.add1(wside.Widget);
end
else
begin
PGtkWidget(wside.Widget)^.set_parent(nil);
PGtkPaned(paned.Widget)^.add2(wside.Widget);
end;
Result := True;
end;
class function TGtk3WSCustomPairSplitter.RemoveSide(ASplitter: TCustomPairSplitter;
ASide: TPairSplitterSide; Side: integer): Boolean;
begin
Result := False;
end;
class function TGtk3WSCustomPairSplitter.SetPosition(
ASplitter: TCustomPairSplitter; var NewPosition: integer): Boolean;
var
paned:PGtkPaned;
begin
Result:=false;
if not WSCheckHandleAllocated(ASplitter, ClassName+'.SetPosition') then
Exit;
paned:=PGtkPaned(TGtk3Paned(ASplitter.Handle).Widget);
paned^.set_position(NewPosition);
Result:=true;
///Result:=inherited SetPosition(ASplitter, NewPosition);
end;
class function TGtk3WSCustomPairSplitter.GetSplitterCursor(
ASplitter: TCustomPairSplitter; var ACursor: TCursor): Boolean;
begin
ACursor:=crHsplit;
Result:=true;
end;
class function TGtk3WSCustomPairSplitter.SetSplitterCursor(
ASplitter: TCustomPairSplitter; ACursor: TCursor): Boolean;
begin
//ASplitter.Cursor:=ACursor;
Result:=false;
end;
end.