mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 18:03:00 +02:00
78 lines
2.3 KiB
ObjectPascal
78 lines
2.3 KiB
ObjectPascal
{ $Id$}
|
|
{
|
|
*****************************************************************************
|
|
* QtWSPairSplitter.pp *
|
|
* ------------------- *
|
|
* *
|
|
* *
|
|
*****************************************************************************
|
|
|
|
*****************************************************************************
|
|
This file is part of the Lazarus Component Library (LCL)
|
|
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
}
|
|
unit QtWSPairSplitter;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
////////////////////////////////////////////////////
|
|
// I M P O R T A N T
|
|
////////////////////////////////////////////////////
|
|
// To get as little as posible circles,
|
|
// uncomment only when needed for registration
|
|
////////////////////////////////////////////////////
|
|
// PairSplitter,
|
|
////////////////////////////////////////////////////
|
|
qt4, qtwidgets,
|
|
Controls, LCLType, LCLProc,
|
|
WSPairSplitter, WSLCLClasses;
|
|
|
|
type
|
|
|
|
{ TQtWSPairSplitterSide }
|
|
|
|
TQtWSPairSplitterSide = class(TWSPairSplitterSide)
|
|
published
|
|
class function CreateHandle(const AWinControl: TWinControl;
|
|
const AParams: TCreateParams): TLCLIntfHandle; override;
|
|
end;
|
|
|
|
{ TQtWSCustomPairSplitter }
|
|
|
|
TQtWSCustomPairSplitter = class(TWSCustomPairSplitter)
|
|
published
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TQtWSPairSplitterSide }
|
|
|
|
class function TQtWSPairSplitterSide.CreateHandle(
|
|
const AWinControl: TWinControl; const AParams: TCreateParams
|
|
): TLCLIntfHandle;
|
|
var
|
|
QtWidget: TQtWidget;
|
|
begin
|
|
{$ifdef VerboseQt}
|
|
WriteLn('> TQtWSPairSplitterSide.CreateHandle for ',dbgsname(AWinControl));
|
|
{$endif}
|
|
QtWidget := TQtWidget.Create(AWinControl, AParams);
|
|
QtWidget.setAttribute(QtWA_NoMousePropagation, True);
|
|
|
|
QtWidget.AttachEvents;
|
|
|
|
Result := TLCLIntfHandle(QtWidget);
|
|
|
|
{$ifdef VerboseQt}
|
|
WriteLn('< TQtWSPairSplitterSide.CreateHandle for ',dbgsname(AWinControl),' Result: ', dbgHex(Result));
|
|
{$endif}
|
|
end;
|
|
|
|
end.
|