paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s)

Browse Source 
54895, 54898, 54899, 54900, 54901, 54903, 54904, 54905, 54913, 54914, 54915, 54916, 54917, 54918, 54922, 54923, 54924, 54925, 54926, 54927, 54928, 54929, 54930, 54932, 54934, 54941, 54942
from trunk

r54895 lcl: grids: fix default TGridColumn width. Issue #31806
r54898 lcl: forms: scale TFrame the same as TForm. Issue #31807
r54899 CairCanvas: disable compilation for WinCE (there exists no cairo support on WinCE).
r54900 Printers4Lazarus: force fatal compilation error on WinCE platform, since the package is unsupported on this platform.
r54901 fpvectorial: Fix memory leak in dxf reader (http://forum.lazarus.freepascal.org/index.php/topic,36827.msg246126)
r54903 lcl: grids: always store valid column width. Issue #31806
r54904 IdeIntf: OI: High-DPI: restricted tab. Patch by AlexeyT, Issue #31778
r54905 IdeIntf: OI: High-DPI: value button. Issue #31784
r54913 lcl: colorbox: high-dpi: ColorRectWidth. Issue #31768
r54914 lcl: combobox, listbox: assign Font.PixelsPerInch to Canvas for custom draw events.
r54915 ide: codetoolsdefines dialog: high-DPI. Patch by AlexeyT, Issue #31774
r54916 ide: project options dialog: anchor top/bottom build modes button. Issue #31770
r54917 IdeIntf: OI: High-DPI: ValueComboBox.
r54918 grids: scale native bitmaps; ide: buildmodesmanager dialog: high-DPI check boxes. Issue #31771
r54922 ide: compiler_other_options frame: fix high-DPI. Issue #31779
r54923 Opkman: Fix high-DPI. Issue #31782
r54924 ide: about dialog: high-DPI. Issue #31776
r54925 ide editorfilemanager dialog: high-DPI. Issue #31775
r54926 lcl: groupededit: fix TabStop mechanism. Issue #31811
r54927 lcl: control: apply constraints to new size in DoAutoAdjustLayout and update top/left if bottom/right aligned. Fixes Issue #31772
r54928 ideintf: objectinspector: fix high-dpi in custom property grids. Issue #31769
r54929 lazcontrols: lvlgraphctrl: high-DPI. Issue #31781
r54930 lcl: groupededit: fix TabStop mechanism (fix regression after r54926 #2d7967420e). Issue #31811, Issue #31229
r54932 ide, designer: high-DPI: scale non-visual components. Issue #31812
r54934 ide: images: new high-dpi designed icons by FTurtle, Issue #31815
r54941 Qt5: cbindings - implemented QMargins, QSurface, QSurfaceFormat, QBackingStore, QScreen and QWindow classes.
r54942 Qt5: cbindings - implemented QMargins, QSurface, QSurfaceFormat, QBackingStore, QScreen and QWindow classes (qt56.pas).

git-svn-id: branches/fixes_1_8@54943 -
This commit is contained in:
ondrej 2017-05-16 18:29:52 +00:00
parent 3dde1e50f7
commit 6cf1a4620d
81 changed files with 3058 additions and 213 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
.gitattributes vendored
View File

@ -6886,23 +6886,41 @@ images/menu/menu_saveas.png -text
images/menu/menu_saveas_150.png -text
images/menu/menu_saveas_200.png -text
images/menu/menu_search_files.png -text svneol=unset#image/png
images/menu/menu_search_files_150.png -text
images/menu/menu_search_files_200.png -text
images/menu/menu_search_find.png -text svneol=unset#image/png
images/menu/menu_search_find_150.png -text
images/menu/menu_search_find_200.png -text
images/menu/menu_search_find_next.png -text svneol=unset#image/png
images/menu/menu_search_find_next_150.png -text
images/menu/menu_search_find_next_200.png -text
images/menu/menu_search_find_previous.png -text svneol=unset#image/png
images/menu/menu_search_find_previous_150.png -text
images/menu/menu_search_find_previous_200.png -text
images/menu/menu_search_incremental.png -text
images/menu/menu_search_incremental_150.png -text
images/menu/menu_search_incremental_200.png -text
images/menu/menu_search_jumpback.png -text svneol=unset#image/png
images/menu/menu_search_jumpforward.png -text svneol=unset#image/png
images/menu/menu_search_next_bookmark.png -text
images/menu/menu_search_openfile_atcursor.png -text svneol=unset#image/png
images/menu/menu_search_previous_bookmark.png -text
images/menu/menu_search_replace.png -text svneol=unset#image/png
images/menu/menu_search_replace_150.png -text
images/menu/menu_search_replace_200.png -text
images/menu/menu_search_set_bookmark.png -text svneol=unset#image/png
images/menu/menu_select_all.png -text svneol=unset#image/png
images/menu/menu_set_free_bookmark.png -text
images/menu/menu_stepinto.png -text svneol=unset#image/png
images/menu/menu_stepinto_150.png -text
images/menu/menu_stepinto_200.png -text
images/menu/menu_stepinto_instr.png -text svneol=unset#image/png
images/menu/menu_stepout.png -text svneol=unset#image/png
images/menu/menu_stepout_150.png -text
images/menu/menu_stepout_200.png -text
images/menu/menu_stepover.png -text svneol=unset#image/png
images/menu/menu_stepover_150.png -text
images/menu/menu_stepover_200.png -text
images/menu/menu_stepover_instr.png -text svneol=unset#image/png
images/menu/menu_stop.png -text svneol=unset#image/png
images/menu/menu_toggle_bookmark0.png -text
@ -8029,6 +8047,8 @@ lcl/interfaces/qt5/cbindings/src/qapplication_hook_c.cpp svneol=native#text/plai
lcl/interfaces/qt5/cbindings/src/qapplication_hook_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qauthenticator_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qauthenticator_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qbackingstore_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qbackingstore_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qbitmap_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qbitmap_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qboxlayout_c.cpp svneol=native#text/plain
@ -8264,6 +8284,8 @@ lcl/interfaces/qt5/cbindings/src/qmainwindow_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmainwindow_hook.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmainwindow_hook_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmainwindow_hook_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmargins_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmargins_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmatrix_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmatrix_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qmdiarea_c.cpp svneol=native#text/plain
@ -8389,6 +8411,11 @@ lcl/interfaces/qt5/cbindings/src/qregion_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qregion_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qrubberband_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qrubberband_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscreen_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscreen_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscreen_hook.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscreen_hook_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscreen_hook_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscrollarea_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscrollarea_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qscrollbar_c.cpp svneol=native#text/plain
@ -8471,6 +8498,10 @@ lcl/interfaces/qt5/cbindings/src/qstylefactory_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qstylefactory_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qstyleoption_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qstyleoption_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qsurface_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qsurface_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qsurfaceformat_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qsurfaceformat_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qsystemtrayicon_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qsystemtrayicon_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qsystemtrayicon_hook.h svneol=native#text/plain
@ -8639,6 +8670,11 @@ lcl/interfaces/qt5/cbindings/src/qwidget_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwidget_hook.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwidget_hook_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwidget_hook_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwindow_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwindow_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwindow_hook.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwindow_hook_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qwindow_hook_c.h svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qx11info_x11_c.cpp svneol=native#text/plain
lcl/interfaces/qt5/cbindings/src/qx11info_x11_c.h svneol=native#text/plain
lcl/interfaces/qt5/interfaces.pp svneol=native#text/plain

4
components/cairocanvas/cairocanvasall.pas
View File

@ -1,4 +1,4 @@
{ The CairoCanvas package can be compiled on all platforms.
{ The CairoCanvas package can be compiled on all platforms, except for WinCE.
This unit defines what units are available on which platform.
}
unit CairoCanvasAll;
@ -7,7 +7,7 @@ unit CairoCanvasAll;
interface
{$IF (FPC_FULLVERSION>=20701) or not defined(win64)}
{$IF ((FPC_FULLVERSION>=20701) or not defined(win64)) and not defined(WinCE)}
uses
{%H-}CairoCanvas, {%H-}CairoPrinter;
{$ENDIF}

55
components/fpvectorial/dxfvectorialreader.pas
View File

@ -41,7 +41,11 @@ uses
type
TDXFToken = class;
TDXFTokens = TFPList;// TDXFToken;
TDXFTokens = class(TFPList)
public
destructor Destroy; override;
procedure Clear;
end;
TDXFToken = class
GroupCode: Integer;
@ -462,19 +466,37 @@ const
(Red: $0000; Green: $0000; Blue: $0000; Alpha: alphaOpaque) // 255
);
{ TDXFTokens }
destructor TDXFTokens.Destroy;
begin
Clear;
inherited;
end;
procedure TDXFTokens.Clear;
var
j: Integer;
begin
for j := Count-1 downto 0 do begin
TObject(Items[j]).Free;
Delete(j);
end;
inherited;
end;
{ TDXFToken }
constructor TDXFToken.Create;
begin
inherited Create;
Childs := TDXFTokens.Create;
end;
destructor TDXFToken.Destroy;
begin
Childs.Free;
inherited Destroy;
end;
@ -483,14 +505,12 @@ end;
constructor TDXFTokenizer.Create;
begin
inherited Create;
Tokens := TDXFTokens.Create;
end;
destructor TDXFTokenizer.Destroy;
begin
Tokens.Free;
inherited Destroy;
end;
@ -534,6 +554,7 @@ begin
end
else if (StrSectionName = 'EOF') then
begin
NewToken.Free;
Exit;
end
// Comments can be in the beginning of the file and start with 999
@ -2121,19 +2142,19 @@ function TvDXFVectorialReader.InternalReadENTITIES(ATokenStr: string;
begin
Result := nil;
case ATokenStr of
'3DFACE': Result := ReadENTITIES_3DFACE(ATokens, AData, ADoc, AOnlyCreate);
'ARC': Result := ReadENTITIES_ARC(ATokens, AData, ADoc, AOnlyCreate);
'CIRCLE': Result := ReadENTITIES_CIRCLE(ATokens, AData, ADoc, AOnlyCreate);
'DIMENSION':Result := ReadENTITIES_DIMENSION(ATokens, AData, ADoc, AOnlyCreate);
'ELLIPSE': Result := ReadENTITIES_ELLIPSE(ATokens, AData, ADoc, AOnlyCreate);
'INSERT': Result := ReadENTITIES_INSERT(ATokens, AData, ADoc, AOnlyCreate);
'LINE': Result := ReadENTITIES_LINE(ATokens, AData, ADoc, AOnlyCreate);
'TEXT': Result := ReadENTITIES_TEXT(ATokens, AData, ADoc, AOnlyCreate);
'3DFACE': Result := ReadENTITIES_3DFACE(ATokens, AData, ADoc, AOnlyCreate);
'ARC': Result := ReadENTITIES_ARC(ATokens, AData, ADoc, AOnlyCreate);
'CIRCLE': Result := ReadENTITIES_CIRCLE(ATokens, AData, ADoc, AOnlyCreate);
'DIMENSION': Result := ReadENTITIES_DIMENSION(ATokens, AData, ADoc, AOnlyCreate);
'ELLIPSE': Result := ReadENTITIES_ELLIPSE(ATokens, AData, ADoc, AOnlyCreate);
'INSERT': Result := ReadENTITIES_INSERT(ATokens, AData, ADoc, AOnlyCreate);
'LINE': Result := ReadENTITIES_LINE(ATokens, AData, ADoc, AOnlyCreate);
'TEXT': Result := ReadENTITIES_TEXT(ATokens, AData, ADoc, AOnlyCreate);
'LWPOLYLINE':Result := ReadENTITIES_LWPOLYLINE(ATokens, AData, ADoc, AOnlyCreate);
'SPLINE': Result := ReadENTITIES_SPLINE(ATokens, AData, ADoc, AOnlyCreate);
'POINT': Result := ReadENTITIES_POINT(ATokens, AData, ADoc, AOnlyCreate);
'MTEXT': Result := ReadENTITIES_MTEXT(ATokens, AData, ADoc, AOnlyCreate);
'LEADER': Result := ReadENTITIES_LEADER(ATokens, AData, ADoc, AOnlyCreate);
'SPLINE': Result := ReadENTITIES_SPLINE(ATokens, AData, ADoc, AOnlyCreate);
'POINT': Result := ReadENTITIES_POINT(ATokens, AData, ADoc, AOnlyCreate);
'MTEXT': Result := ReadENTITIES_MTEXT(ATokens, AData, ADoc, AOnlyCreate);
'LEADER': Result := ReadENTITIES_LEADER(ATokens, AData, ADoc, AOnlyCreate);
// A Attribute can have multiple child objects
'ATTRIB':
begin

14
components/ideintf/objectinspector.pp
View File

@ -1068,7 +1068,7 @@ begin
AutoSize:=false;
SetBounds(0,-30,Width,Height); // hidden
DropDownCount:=20;
ItemHeight:=17;
ItemHeight:=MulDiv(17, Screen.PixelsPerInch, 96);
Parent:=Self;
OnMouseDown := @ValueControlMouseDown;
OnMouseMove := @ValueControlMouseMove;
@ -1132,7 +1132,7 @@ end;
constructor TOICustomPropertyGrid.Create(TheOwner: TComponent);
begin
CreateWithParams(TheOwner,nil,AllTypeKinds,22);
CreateWithParams(TheOwner,nil,AllTypeKinds,0);
end;
destructor TOICustomPropertyGrid.Destroy;
@ -1433,7 +1433,7 @@ function TOICustomPropertyGrid.RealDefaultItemHeight: integer;
begin
Result := FDefaultItemHeight;
if (Result<=0) then
Result := MulDiv(22, Screen.PixelsPerInch, 96);
Result := ScaleCoord96(22);
end;
function TOICustomPropertyGrid.GetRowByPath(const PropPath: string): TOIPropertyGridRow;
@ -2832,7 +2832,7 @@ begin
// edit dialog button
with EditBtnRect do begin
Top := EditCompRect.Top;
Left := EditCompRect.Right - 20;
Left := EditCompRect.Right - ScaleCoord96(20);
Bottom := EditCompRect.Bottom - 1;
Right := EditCompRect.Right;
EditCompRect.Right := Left;
@ -5252,8 +5252,8 @@ begin
IDEImages.Images_16.Draw(
ABox.Canvas, X, Y,
IDEImages.LoadImage(16, 'issue_' + LCLPlatformDirNames[lclPlatform]));
Inc(X, 16);
Inc(X, OutVertCentered(X, IntToStr(ARestrictions[lclPlatform])).CX);
Inc(X, ScaleCoord96(16));
Inc(X, ScaleCoord96(OutVertCentered(X, IntToStr(ARestrictions[lclPlatform])).CX));
end;
if None then
@ -6021,7 +6021,7 @@ begin
Hook:=TPropertyEditorHook.Create(Self);
FAutoFreeHook:=true;
FSaveOnChangeTIObject:=true;
CreateWithParams(TheOwner,Hook,AllTypeKinds,22);
CreateWithParams(TheOwner,Hook,AllTypeKinds,0);
end;
destructor TCustomPropertiesGrid.Destroy;

1
components/lazcontrols/lvlgraphctrl.pas
View File

@ -2464,6 +2464,7 @@ begin
inherited Paint;
Canvas.Font.Assign(Font);
Canvas.Font.PixelsPerInch := Font.PixelsPerInch;
Include(FFlags,lgcFocusedPainting);

18
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils, contnrs, Math, dateutils,
// LCL
Controls, Graphics, Menus, Dialogs, Forms, LCLIntf, Buttons,
Controls, Graphics, Menus, Dialogs, Forms, LCLType, LCLIntf, Buttons,
// OpkMan
opkman_VirtualTrees, opkman_common, opkman_serializablepackages, opkman_const,
opkman_options, opkman_packagedetailsfrm;
@ -179,24 +179,24 @@ begin
Images := AImgList;
PopupMenu := APopupMenu;
Color := clBtnFace;
DefaultNodeHeight := 25;
DefaultNodeHeight := MulDiv(25, Screen.PixelsPerInch, 96);
Indent := 22;
TabOrder := 1;
DefaultText := '';
Header.AutoSizeIndex := 4;
Header.Height := 25;
Header.Height := MulDiv(25, Screen.PixelsPerInch, 96);
with Header.Columns.Add do
begin
Position := 0;
Width := 270;
Width := MulDiv(270, Screen.PixelsPerInch, 96);
Text := rsMainFrm_VSTHeaderColumn_PackageName;
end;
with Header.Columns.Add do
begin
Position := 1;
Alignment := taCenter;
Width := 90;
Width := MulDiv(90, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Installed;
end;
@ -204,7 +204,7 @@ begin
begin
Position := 2;
Alignment := taCenter;
Width := 90;
Width := MulDiv(90, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Repository;
end;
@ -212,14 +212,14 @@ begin
begin
Position := 3;
Alignment := taCenter;
Width := 90;
Width := MulDiv(90, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Update;
end;
with Header.Columns.Add do
begin
Position := 4;
Width := 280;
Width := MulDiv(280, Screen.PixelsPerInch, 96);//280;
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Data;
end;
@ -235,7 +235,7 @@ begin
begin
Position := 6;
Alignment := taCenter;
Width := 20;
Width := MulDiv(20, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
end;
Header.Options := [hoAutoResize, hoColumnResize, hoRestrictDrag, hoShowSortGlyphs, hoVisible, hoAutoSpring];

4
components/printers/osprinters.pas
View File

@ -28,6 +28,10 @@ unit OSPrinters;
interface
{$IFDEF WinCE}
{$FATAL This unit (and therefore the Printers4Lazarus package) cannot be built for WinCE}
{$ENDIF}
{$IFDEF UNIX}
{$IFDEF DARWIN}
{$IFDEF LCLCarbon}

4
components/printers/printersdlgs.pp
View File

@ -21,6 +21,10 @@ unit PrintersDlgs;
interface
{$IFDEF WinCE}
{$FATAL This unit (and therefore the Printers4Lazarus package) cannot be built for WinCE}
{$ENDIF}
uses
Classes, SysUtils, Forms, Controls, Dialogs, LResources, Printers, OsPrinters;

5
designer/designer.pp
View File

@ -3577,10 +3577,7 @@ begin
FOnGetNonVisualCompIcon(Self, AComponent, Icon);
if Icon <> nil then
begin
inc(IconRect.Left, (NonVisualCompIconWidth - Icon.Width) div 2);
inc(IconRect.Top, (NonVisualCompIconWidth - Icon.Height) div 2);
IconRect.Right := IconRect.Left + Icon.Width;
IconRect.Bottom := IconRect.Top + Icon.Height;
InflateRect(IconRect, -2 * NonVisualCompBorder, -2 * NonVisualCompBorder);
FSurface.Canvas.StretchDraw(IconRect, Icon);
end;
end;

30
designer/designerprocs.pas
View File

@ -84,7 +84,6 @@ type
const
NonVisualCompIconWidth = ComponentPaletteImageWidth;
NonVisualCompBorder = 2;
NonVisualCompWidth = NonVisualCompIconWidth + 2 * NonVisualCompBorder;
type
@ -93,6 +92,7 @@ type
var
OnComponentIsInvisible: TOnComponentIsInvisible;
function NonVisualCompWidth: integer;
function GetParentLevel(AControl: TControl): integer;
function ControlIsInDesignerVisible(AControl: TControl): boolean;
function ComponentIsInvisible(AComponent: TComponent): boolean;
@ -118,6 +118,9 @@ procedure InvalidateDesignerRect(aHandle: HWND; ARect: pRect);
procedure WriteComponentStates(aComponent: TComponent; Recursive: boolean;
const Prefix: string = '');
procedure ScaleNonVisual(const aParent: TComponent;
const AFromPPI, AToPPI: Integer);
implementation
@ -327,6 +330,31 @@ begin
end;
end;
procedure ScaleNonVisual(const aParent: TComponent; const AFromPPI,
AToPPI: Integer);
var
I: Integer;
Comp: TComponent;
DsgnInfo: LongInt;
begin
for I := 0 to aParent.ComponentCount-1 do
begin
Comp := aParent.Components[I];
DsgnInfo := Comp.DesignInfo;
LongRec(DsgnInfo).Lo:=MulDiv(LongRec(DsgnInfo).Lo, AToPPI, AFromPPI);
LongRec(DsgnInfo).Hi:=MulDiv(LongRec(DsgnInfo).Hi, AToPPI, AFromPPI);
Comp.DesignInfo := DsgnInfo;
end;
end;
function NonVisualCompWidth: integer;
begin
if Application.Scaled then
Result := MulDiv(NonVisualCompIconWidth, Screen.PixelsPerInch, 96) + 2 * NonVisualCompBorder
else
Result := NonVisualCompIconWidth + 2 * NonVisualCompBorder
end;
function GetParentLevel(AControl: TControl): integer;
begin
Result:=0;

5
ide/aboutfrm.lfm
View File

@ -12,7 +12,7 @@ object AboutForm: TAboutForm
OnCreate = AboutFormCreate
PopupMenu = PopupMenu1
Position = poScreenCenter
LCLVersion = '1.5'
LCLVersion = '1.9.0.0'
object Notebook: TPageControl
Left = 0
Height = 326
@ -36,7 +36,8 @@ object AboutForm: TAboutForm
Height = 300
Top = -1
Width = 450
AutoSize = True
Proportional = True
Stretch = True
end
object VersionLabel: TLabel
AnchorSideLeft.Control = LogoImage

3
ide/buildmodesmanager.lfm
View File

@ -12,7 +12,7 @@ object BuildModesForm: TBuildModesForm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.7'
LCLVersion = '1.9.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 32
@ -147,6 +147,7 @@ object BuildModesForm: TBuildModesForm
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goRowSelect, goThumbTracking, goSmoothScroll]
TabOrder = 1
TitleStyle = tsNative
OnCheckboxToggled = BuildModesCheckboxToggled
OnDrawCell = BuildModesStringGridDrawCell
OnSelection = BuildModesStringGridSelection

191
ide/codetoolsdefines.lfm
View File

@ -1,11 +1,11 @@
object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Left = 382
Left = 330
Height = 500
Top = 228
Top = 375
Width = 544
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'CodeToolsDefinesEditor'
ClientHeight = 479
ClientHeight = 480
ClientWidth = 544
KeyPreview = True
Menu = MainMenu
@ -14,7 +14,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
OnKeyDown = CodeToolsDefinesEditorKeyDown
OnKeyUp = CodeToolsDefinesEditorKeyUp
Position = poScreenCenter
LCLVersion = '1.5'
LCLVersion = '1.9.0.0'
object DefineTreeView: TTreeView
Left = 6
Height = 123
@ -30,7 +30,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end
object SelectedItemGroupBox: TGroupBox
Left = 6
Height = 293
Height = 296
Top = 146
Width = 532
Align = alClient
@ -40,20 +40,24 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
ClientWidth = 528
TabOrder = 2
object NameLabel: TLabel
Left = 10
AnchorSideLeft.Control = TypeLabel
AnchorSideTop.Control = NameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 26
Width = 61
BorderSpacing.Right = 6
Top = 31
Width = 60
Caption = 'NameLabel'
ParentColor = False
end
object DescriptionLabel: TLabel
Left = 10
AnchorSideLeft.Control = TypeLabel
AnchorSideTop.Control = DescriptionEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 53
Width = 93
BorderSpacing.Right = 6
Top = 56
Width = 88
Caption = 'DescriptionLabel'
ParentColor = False
end
@ -68,33 +72,38 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
ParentColor = False
end
object VariableLabel: TLabel
Left = 10
AnchorSideLeft.Control = TypeLabel
AnchorSideTop.Control = VariableEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 78
Width = 74
BorderSpacing.Right = 6
Top = 81
Width = 69
Caption = 'VariableLabel'
ParentColor = False
end
object ValueNoteBook: TPageControl
AnchorSideTop.Control = VariableEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 164
Top = 106
Height = 162
Top = 108
Width = 516
ActivePage = ValueAsTextPage
ActivePage = ValueAsPathsPage
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2
BorderSpacing.Around = 6
TabIndex = 0
TabIndex = 1
TabOrder = 3
OnChange = ValueNoteBookPageChanged
object ValueAsTextPage: TTabSheet
Caption = 'ValueAsTextPage'
ClientHeight = 135
ClientHeight = 137
ClientWidth = 512
inline ValueAsTextSynEdit: TSynEdit
Left = 0
Height = 135
Height = 152
Top = 0
Width = 512
Align = alClient
@ -107,7 +116,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
TabOrder = 0
BookMarkOptions.Xoffset = -18
Gutter.Visible = False
Gutter.Width = 61
Gutter.Width = 59
Gutter.MouseActions = <
item
ClickCount = ccAny
@ -544,7 +553,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
MouseActions = <>
end
object TSynGutterLineNumber
Width = 21
Width = 19
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
@ -621,14 +630,14 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end
object ValueAsPathsPage: TTabSheet
Caption = 'ValueAsPathsPage'
ClientHeight = 135
ClientWidth = 512
ClientHeight = 134
ClientWidth = 508
inline ValueAsFilePathsSynEdit: TSynEdit
AnchorSideRight.Control = DeleteFilePathBitBtn
AnchorSideRight.Control = MoveFilePathUpBitBtn
Left = 0
Height = 168
Height = 134
Top = 0
Width = 420
Width = 351
Align = alLeft
BorderSpacing.Right = 6
Anchors = [akTop, akLeft, akRight, akBottom]
@ -641,7 +650,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
TabOrder = 0
BookMarkOptions.Xoffset = -18
Gutter.Visible = False
Gutter.Width = 61
Gutter.Width = 59
Gutter.MouseActions = <
item
ClickCount = ccAny
@ -1078,7 +1087,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
MouseActions = <>
end
object TSynGutterLineNumber
Width = 21
Width = 19
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
@ -1153,41 +1162,70 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end
end
object MoveFilePathUpBitBtn: TBitBtn
Left = 426
Height = 30
AnchorSideLeft.Control = ValueAsFilePathsSynEdit
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ValueAsPathsPage
AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 2
Width = 75
Width = 145
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'MoveFilePathUpBitBtn'
Constraints.MinWidth = 80
OnClick = MoveFilePathUpBitBtnClick
TabOrder = 1
end
object MoveFilePathDownBitBtn: TBitBtn
Left = 426
Height = 30
Top = 34
Width = 75
Anchors = [akTop, akRight]
AnchorSideLeft.Control = MoveFilePathUpBitBtn
AnchorSideTop.Control = MoveFilePathUpBitBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MoveFilePathUpBitBtn
AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 31
Width = 145
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'MoveFilePathDownBitBtn'
OnClick = MoveNodeDownMenuItemClick
TabOrder = 2
end
object DeleteFilePathBitBtn: TBitBtn
Left = 426
Height = 30
Top = 66
Width = 75
Anchors = [akTop, akRight]
AnchorSideLeft.Control = MoveFilePathDownBitBtn
AnchorSideTop.Control = MoveFilePathDownBitBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MoveFilePathUpBitBtn
AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 60
Width = 145
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'DeleteFilePathBitBtn'
OnClick = DeleteFilePathBitBtnClick
TabOrder = 3
end
object InsertFilePathBitBtn: TBitBtn
Left = 426
Height = 30
Top = 98
Width = 75
Anchors = [akTop, akRight]
AnchorSideLeft.Control = MoveFilePathUpBitBtn
AnchorSideTop.Control = DeleteFilePathBitBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MoveFilePathUpBitBtn
AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 89
Width = 145
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'InsertFilePathBitBtn'
OnClick = InsertFilePathBitBtnClick
TabOrder = 4
@ -1195,31 +1233,48 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end
end
object NameEdit: TEdit
Left = 128
Height = 25
Top = 23
Width = 394
AnchorSideLeft.Control = DescriptionLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TypeLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TypeLabel
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 27
Width = 422
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
BorderSpacing.Left = 6
TabOrder = 0
Text = 'NameEdit'
end
object DescriptionEdit: TEdit
Left = 128
Height = 25
Top = 50
Width = 394
AnchorSideLeft.Control = NameEdit
AnchorSideTop.Control = NameEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = NameEdit
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 52
Width = 422
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
BorderSpacing.Top = 2
TabOrder = 1
Text = 'DescriptionEdit'
end
object VariableEdit: TEdit
Left = 128
Height = 25
Top = 76
Width = 394
AnchorSideLeft.Control = NameEdit
AnchorSideTop.Control = DescriptionEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = NameEdit
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 77
Width = 422
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
TabOrder = 2
Text = 'VariableEdit'
end
@ -1235,8 +1290,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 28
Top = 445
Height = 26
Top = 448
Width = 532
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -1252,8 +1307,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
ShowBevel = False
end
object MainMenu: TMainMenu
left = 46
top = 72
Left = 46
Top = 72
object EditMenuItem: TMenuItem
Caption = 'EditMenuItem'
object MoveNodeUpMenuItem: TMenuItem

4
ide/editorfilemanager.lfm
View File

@ -3,14 +3,13 @@ object EditorFileManagerForm: TEditorFileManagerForm
Height = 380
Top = 126
Width = 722
ActiveControl = FilterEdit
Caption = 'EditorFileManagerForm'
ClientHeight = 380
ClientWidth = 722
KeyPreview = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
LCLVersion = '1.5'
LCLVersion = '1.9.0.0'
object CheckListBox1: TCheckListBox
AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrBottom
@ -191,7 +190,6 @@ object EditorFileManagerForm: TEditorFileManagerForm
Top = 2
Width = 25
AllowAllUp = True
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 3
Constraints.MinHeight = 25

57
ide/frames/compiler_other_options.lfm
View File

@ -6,8 +6,8 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
ClientHeight = 407
ClientWidth = 521
TabOrder = 0
DesignLeft = 444
DesignTop = 275
DesignLeft = 418
DesignTop = 270
object grpConditionals: TGroupBox
Left = 0
Height = 194
@ -15,15 +15,15 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
Width = 521
Align = alBottom
Caption = 'grpConditionals'
ClientHeight = 176
ClientWidth = 513
ClientHeight = 174
ClientWidth = 517
TabOrder = 0
inline CondSynEdit: TSynEdit
AnchorSideRight.Side = asrBottom
Left = 0
Height = 154
Height = 151
Top = 0
Width = 513
Width = 517
Align = alClient
Font.Height = 9
Font.Name = '-misc-dejavu sans mono-*-*-*-*-*-*-*-*-*-*-iso10646-1'
@ -651,9 +651,9 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
end
object CondStatusbar: TStatusBar
Left = 0
Height = 22
Top = 154
Width = 513
Height = 23
Top = 151
Width = 517
Panels = <
item
Width = 80
@ -683,17 +683,18 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
Width = 521
Align = alClient
Caption = 'grpCustomOptions'
ClientHeight = 190
ClientWidth = 513
ClientHeight = 188
ClientWidth = 517
TabOrder = 2
object memoCustomOptions: TMemo
AnchorSideLeft.Control = grpCustomOptions
AnchorSideRight.Control = btnDefines
AnchorSideBottom.Control = grpCustomOptions
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 186
Height = 184
Top = 4
Width = 357
Width = 362
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6
OnChange = memoCustomOptionsChange
@ -704,16 +705,14 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
WordWrap = False
end
object btnAllOptions: TBitBtn
AnchorSideLeft.Control = memoCustomOptions
AnchorSideLeft.Side = asrBottom
AnchorSideLeft.Control = btnDefines
AnchorSideRight.Control = btnDefines
AnchorSideRight.Side = asrBottom
Left = 363
Height = 29
Left = 368
Height = 22
Top = 4
Width = 150
Width = 149
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'All options ...'
OnClick = btnAllOptionsClick
ParentShowHint = False
@ -725,12 +724,11 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
AnchorSideTop.Control = btnAllOptions
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 363
Height = 29
Top = 39
Width = 150
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Left = 368
Height = 22
Top = 32
Width = 149
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
Caption = 'Defines ...'
OnClick = btnDefinesClick
@ -744,12 +742,11 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnDefines
AnchorSideRight.Side = asrBottom
Left = 363
Height = 29
Top = 81
Width = 150
Left = 368
Height = 22
Top = 67
Width = 149
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 13
Caption = 'Add -FcUTF8'
OnClick = btnFcUTF8Click

13
ide/ideoptionsdlg.lfm
View File

@ -3,7 +3,6 @@ object IDEOptionsDialog: TIDEOptionsDialog
Height = 500
Top = 202
Width = 800
ActiveControl = FilterEdit
BorderIcons = [biSystemMenu]
Caption = 'IDEOptionsDialog'
ClientHeight = 500
@ -12,8 +11,7 @@ object IDEOptionsDialog: TIDEOptionsDialog
Constraints.MinWidth = 500
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.7'
Scaled = True
LCLVersion = '1.9.0.0'
object ButtonPanel: TButtonPanel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
@ -89,7 +87,6 @@ object IDEOptionsDialog: TIDEOptionsDialog
Top = 6
Width = 249
OnFilterItem = FilterEditFilterItem
UseFormActivate = True
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
@ -146,11 +143,13 @@ object IDEOptionsDialog: TIDEOptionsDialog
AnchorSideLeft.Control = BuildModeComboBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BuildModeComboBox
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = BuildModeComboBox
AnchorSideBottom.Side = asrBottom
Left = 281
Height = 25
Top = 4
Height = 23
Top = 5
Width = 50
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 1
Caption = '...'
OnClick = BuildModeManageButtonClick

23
ide/sourcefilemanager.pas
View File

@ -53,7 +53,7 @@ uses
ControlSelection, FormEditor, EmptyMethodsDlg, BaseDebugManager, TransferMacros,
BuildManager, EditorMacroListViewer, FindRenameIdentifier, GenericCheckList,
ViewUnit_Dlg, DiskDiffsDialog, InputHistory, CheckLFMDlg, PublishModule, etMessagesWnd,
ConvCodeTool, BasePkgManager, PackageDefs, PackageSystem, Designer;
ConvCodeTool, BasePkgManager, PackageDefs, PackageSystem, Designer, DesignerProcs;
type
@ -6251,6 +6251,7 @@ var
ARestoreVisible: Boolean;
AncestorClass: TComponentClass;
DsgControl: TCustomDesignControl;
DsgDataModule: TDataModule;
begin
{$IFDEF IDE_DEBUG}
debugln('TLazSourceFileManager.LoadLFM A ',AnUnitInfo.Filename,' IsPartOfProject=',dbgs(AnUnitInfo.IsPartOfProject),' ');
@ -6433,10 +6434,30 @@ begin
begin
DsgControl := TCustomDesignControl(NewComponent);
if Project1.Scaled and DsgControl.Scaled and (DsgControl.DesignTimePPI<>Screen.PixelsPerInch) then
begin
DsgControl.AutoAdjustLayout(lapAutoAdjustForDPI, DsgControl.DesignTimePPI, Screen.PixelsPerInch, 0, 0);
DesignerProcs.ScaleNonVisual(DsgControl, DsgControl.DesignTimePPI, Screen.PixelsPerInch);
end;
DsgControl.DesignTimePPI := Screen.PixelsPerInch;
DsgControl.PixelsPerInch := Screen.PixelsPerInch;
end;
{$IFDEF DataModulePPI} // To-Do: replace with an FPC version after DesignPPI has been applied to FPC
if NewComponent is TDataModule then
begin
DsgDataModule := TDataModule(NewComponent);
if (DsgDataModule.DesignPPI<>Screen.PixelsPerInch) then
begin
DesignerProcs.ScaleNonVisual(DsgDataModule, DsgDataModule.DesignPPI, Screen.PixelsPerInch);
DsgDataModule.DesignOffset := Point(
MulDiv(DsgDataModule.DesignOffset.x, Screen.PixelsPerInch, DsgDataModule.DesignPPI),
MulDiv(DsgDataModule.DesignOffset.y, Screen.PixelsPerInch, DsgDataModule.DesignPPI));
DsgDataModule.DesignSize := Point(
MulDiv(DsgDataModule.DesignSize.x, Screen.PixelsPerInch, DsgDataModule.DesignPPI),
MulDiv(DsgDataModule.DesignSize.y, Screen.PixelsPerInch, DsgDataModule.DesignPPI));
DsgDataModule.DesignPPI := Screen.PixelsPerInch;
end;
end;
{$ENDIF}
if NewComponent is TFrame then
AnUnitInfo.ResourceBaseClass:=pfcbcFrame

BIN
images/actions/laz_save.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 168 B

After

Width:  |  Height:  |  Size: 173 B

BIN
images/actions/laz_save_150.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 187 B

After

Width:  |  Height:  |  Size: 193 B

BIN
images/actions/laz_save_200.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 207 B

After

Width:  |  Height:  |  Size: 209 B

27
images/copyright.txt
View File

@ -100,10 +100,37 @@ menu_saveas_200.png
menu_save_all.png
menu_save_all_150.png
menu_save_all_200.png
menu_search_files.png
menu_search_files_150.png
menu_search_files_200.png
menu_search_find.png
menu_search_find_150.png
menu_search_find_200.png
menu_search_find_next.png
menu_search_find_next_150.png
menu_search_find_next_200.png
menu_search_find_previous.png
menu_search_find_previous_150.png
menu_search_find_previous_200.png
menu_search_incremental.png
menu_search_incremental_150.png
menu_search_incremental_200.png
menu_search_next_bookmark.png
menu_search_previous_bookmark.png
menu_search_replace.png
menu_search_replace_150.png
menu_search_replace_200.png
menu_search_set_bookmark.png
menu_set_free_bookmark.png
menu_stepinto.png
menu_stepinto_150.png
menu_stepinto_200.png
menu_stepout.png
menu_stepout_150.png
menu_stepout_200.png
menu_stepover.png
menu_stepover_150.png
menu_stepover_200.png
menu_toggle_bookmark0.png
menu_toggle_bookmark1.png
menu_toggle_bookmark2.png

BIN
images/laz_images.res
View File

Binary file not shown.

18
images/laz_images_list.txt
View File

@ -107,10 +107,20 @@ menu/menu_save_all.png
menu/menu_save_all_150.png
menu/menu_save_all_200.png
menu/menu_search_files.png
menu/menu_search_files_150.png
menu/menu_search_files_200.png
menu/menu_search_find.png
menu/menu_search_find_150.png
menu/menu_search_find_200.png
menu/menu_search_find_next.png
menu/menu_search_find_next_150.png
menu/menu_search_find_next_200.png
menu/menu_search_find_previous.png
menu/menu_search_find_previous_150.png
menu/menu_search_find_previous_200.png
menu/menu_search_incremental.png
menu/menu_search_incremental_150.png
menu/menu_search_incremental_200.png
menu/menu_search_jumpback.png
menu/menu_search_jumpforward.png
menu/menu_jumpto_interface.png
@ -125,12 +135,20 @@ menu/menu_search_openfile_atcursor.png
menu/menu_search_previous_bookmark.png
menu/menu_search_set_bookmark.png
menu/menu_search_replace.png
menu/menu_search_replace_150.png
menu/menu_search_replace_200.png
menu/menu_select_all.png
menu/menu_stepinto.png
menu/menu_stepinto_150.png
menu/menu_stepinto_200.png
menu/menu_stepover.png
menu/menu_stepover_150.png
menu/menu_stepover_200.png
menu/menu_stepinto_instr.png
menu/menu_stepover_instr.png
menu/menu_stepout.png
menu/menu_stepout_150.png
menu/menu_stepout_200.png
menu/menu_stop.png
menu/menu_tool_check_lfm.png
menu/menu_tool_dfm_to_lfm.png

BIN
images/menu/menu_search_files.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 731 B

After

Width:  |  Height:  |  Size: 400 B

BIN
images/menu/menu_search_files_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 480 B

BIN
images/menu/menu_search_files_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 577 B

BIN
images/menu/menu_search_find.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 661 B

After

Width:  |  Height:  |  Size: 192 B

BIN
images/menu/menu_search_find_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 214 B

BIN
images/menu/menu_search_find_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 241 B

BIN
images/menu/menu_search_find_next.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 625 B

After

Width:  |  Height:  |  Size: 267 B

BIN
images/menu/menu_search_find_next_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 273 B

BIN
images/menu/menu_search_find_next_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 291 B

BIN
images/menu/menu_search_find_previous.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 620 B

After

Width:  |  Height:  |  Size: 278 B

BIN
images/menu/menu_search_find_previous_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 276 B

BIN
images/menu/menu_search_find_previous_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 291 B

BIN
images/menu/menu_search_incremental.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 485 B

After

Width:  |  Height:  |  Size: 243 B

BIN
images/menu/menu_search_incremental_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 237 B

BIN
images/menu/menu_search_incremental_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 279 B

BIN
images/menu/menu_search_replace.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 792 B

After

Width:  |  Height:  |  Size: 354 B

BIN
images/menu/menu_search_replace_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 419 B

BIN
images/menu/menu_search_replace_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 530 B

BIN
images/menu/menu_stepinto.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 536 B

After

Width:  |  Height:  |  Size: 233 B

BIN
images/menu/menu_stepinto_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 258 B

BIN
images/menu/menu_stepinto_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 289 B

BIN
images/menu/menu_stepout.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 626 B

After

Width:  |  Height:  |  Size: 201 B

BIN
images/menu/menu_stepout_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 214 B

BIN
images/menu/menu_stepout_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 247 B

BIN
images/menu/menu_stepover.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 566 B

After

Width:  |  Height:  |  Size: 258 B

BIN
images/menu/menu_stepover_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 297 B

BIN
images/menu/menu_stepover_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 343 B

90
lcl/colorbox.pas
View File

@ -53,6 +53,7 @@ type
FSelected: TColor;
function GetColor(Index : Integer): TColor;
function GetColorName(Index: Integer): string;
function GetColorRectWidth: Integer;
function GetSelected: TColor;
procedure SetColorRectWidth(AValue: Integer);
procedure SetColorRectOffset(AValue: Integer);
@ -63,16 +64,19 @@ type
procedure ColorProc(const s: AnsiString);
procedure UpdateCombo;
protected
function ColorRectWidthStored: Boolean;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
procedure SetColorList;
procedure Loaded; override;
procedure InitializeWnd; override;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
procedure DoGetColors; virtual;
procedure CloseUp; override;
function PickCustomColor: Boolean; virtual;
public
constructor Create(AOwner: TComponent); override;
property ColorRectWidth: Integer read FColorRectWidth write SetColorRectWidth default cDefaultColorRectWidth;
property ColorRectWidth: Integer read GetColorRectWidth write SetColorRectWidth stored ColorRectWidthStored;
property ColorRectOffset: Integer read FColorRectOffset write SetColorRectOffset default cDefaultColorRectOffset;
property Style: TColorBoxStyle read FStyle write SetStyle
default [cbStandardColors, cbExtendedColors, cbSystemColors];
@ -167,6 +171,7 @@ type
FOnGetColors: TLBGetColorsEvent;
FSelected: TColor;
FStyle: TColorBoxStyle;
function GetColorRectWidth: Integer;
function GetColors(Index : Integer): TColor;
function GetColorName(Index: Integer): string;
function GetSelected: TColor;
@ -179,16 +184,19 @@ type
procedure SetStyle(const AValue: TColorBoxStyle); reintroduce;
procedure ColorProc(const s: AnsiString);
protected
function ColorRectWidthStored: Boolean;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
procedure SetColorList;
procedure Loaded; override;
procedure InitializeWnd; override;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
procedure DoGetColors; virtual;
procedure DoSelectionChange(User: Boolean); override;
function PickCustomColor: Boolean; virtual;
public
constructor Create(AOwner: TComponent); override;
property ColorRectWidth: Integer read FColorRectWidth write SetColorRectWidth default cDefaultColorRectWidth;
property ColorRectWidth: Integer read GetColorRectWidth write SetColorRectWidth stored ColorRectWidthStored;
property ColorRectOffset: Integer read FColorRectOffset write SetColorRectOffset default cDefaultColorRectOffset;
property Style: TColorBoxStyle read FStyle write SetStyle
default [cbStandardColors, cbExtendedColors, cbSystemColors];
@ -372,7 +380,7 @@ begin
inherited Style := csOwnerDrawFixed;
inherited ReadOnly := True;
FColorRectWidth := cDefaultColorRectWidth;
FColorRectWidth := -1;
FColorRectOffset := cDefaultColorRectOffset;
FStyle := [cbStandardColors, cbExtendedColors, cbSystemColors];
FNoneColorColor := clBlack;
@ -459,6 +467,14 @@ begin
Result := Items[Index];
end;
function TCustomColorBox.GetColorRectWidth: Integer;
begin
if ColorRectWidthStored then
Result := FColorRectWidth
else
Result := MulDiv(cDefaultColorRectWidth, Font.PixelsPerInch, 96);
end;
{------------------------------------------------------------------------------
Method: TCustomColorBox.SetSelected
Params: Value
@ -527,6 +543,25 @@ begin
end;
end;
function TCustomColorBox.ColorRectWidthStored: Boolean;
begin
Result := FColorRectWidth >= 0;
end;
procedure TCustomColorBox.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double
);
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin
if ColorRectWidthStored then
FColorRectWidth := Round(FColorRectWidth * AXProportion);
Invalidate;
end;
end;
procedure TCustomColorBox.UpdateCombo;
var
c: integer;
@ -572,10 +607,10 @@ begin
if Index = -1 then
Exit;
r.top := Rect.top + FColorRectOffset;
r.bottom := Rect.bottom - FColorRectOffset;
r.left := Rect.left + FColorRectOffset;
r.right := r.left + FColorRectWidth;
r.top := Rect.top + ColorRectOffset;
r.bottom := Rect.bottom - ColorRectOffset;
r.left := Rect.left + ColorRectOffset;
r.right := r.left + ColorRectWidth;
Exclude(State, odPainted);
noFill := false;
@ -614,7 +649,7 @@ begin
Pen.Color := PenColor;
end;
r := Rect;
r.left := r.left + FColorRectWidth + FColorRectOffset + 1;
r.left := r.left + ColorRectWidth + ColorRectOffset + 1;
inherited DrawItem(Index, BidiFlipRect(r, Rect, UseRightToLeftAlignment), State);
end;
@ -710,7 +745,7 @@ constructor TCustomColorListBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
inherited Style := lbOwnerDrawFixed;
FColorRectWidth := cDefaultColorRectWidth;
FColorRectWidth := -1;
FColorRectOffset := cDefaultColorRectOffset;
FStyle := [cbStandardColors, cbExtendedColors, cbSystemColors];
FNoneColorColor := clBlack;
@ -797,6 +832,14 @@ begin
Result := Items[Index];
end;
function TCustomColorListBox.GetColorRectWidth: Integer;
begin
if ColorRectWidthStored then
Result := FColorRectWidth
else
Result := MulDiv(cDefaultColorRectWidth, Font.PixelsPerInch, 96);
end;
{------------------------------------------------------------------------------
Method: TCustomColorListBox.SetSelected
Params: Value
@ -881,6 +924,25 @@ begin
end;
end;
function TCustomColorListBox.ColorRectWidthStored: Boolean;
begin
Result := FColorRectWidth >= 0;
end;
procedure TCustomColorListBox.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double
);
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin
if ColorRectWidthStored then
FColorRectWidth := Round(FColorRectWidth * AXProportion);
Invalidate;
end;
end;
{------------------------------------------------------------------------------
Method: TCustomColorListBox.DrawItem
Params: Index, Rect, State
@ -900,10 +962,10 @@ begin
if Index < 0 then
Exit;
r.top := Rect.top + FColorRectOffset;
r.bottom := Rect.bottom - FColorRectOffset;
r.left := Rect.left + FColorRectOffset;
r.right := r.left + FColorRectWidth;
r.top := Rect.top + ColorRectOffset;
r.bottom := Rect.bottom - ColorRectOffset;
r.left := Rect.left + ColorRectOffset;
r.right := r.left + ColorRectWidth;
Exclude(State,odPainted);
with Canvas do
begin
@ -929,7 +991,7 @@ begin
Pen.Color := PenColor;
end;
r := Rect;
r.left := r.left + FColorRectWidth + FColorRectOffset + 1;
r.left := r.left + ColorRectWidth + ColorRectOffset + 1;
inherited DrawItem(Index, BidiFlipRect(r, Rect, UseRightToLeftAlignment), State);
end;

1
lcl/editbtn.pas
View File

@ -1076,7 +1076,6 @@ begin
inherited Create(AOwner);
FButtonOnlyWhenFocused := False;
FocusOnButtonClick := False;
Edit.TabStop := False;
SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);

4
lcl/forms.pp
View File

@ -267,6 +267,8 @@ type
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; const AFromPPI,
AToPPI, AOldFormWidth, ANewFormWidth: Integer); override;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
procedure Loaded; override;
public
constructor Create(TheOwner: TComponent); override;
@ -547,8 +549,6 @@ type
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure Deactivate; virtual;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
procedure DoClose(var CloseAction: TCloseAction); virtual;
procedure DoCreate; virtual;
procedure DoDestroy; virtual;

6
lcl/grids.pas
View File

@ -4433,6 +4433,8 @@ begin
if (TitleStyle=tsNative) and not assigned(OnUserCheckboxBitmap) then begin
Details := ThemeServices.GetElementDetails(arrtb[AState]);
CSize := ThemeServices.GetDetailSize(Details);
CSize.cx := MulDiv(CSize.cx, Font.PixelsPerInch, Screen.PixelsPerInch);
CSize.cy := MulDiv(CSize.cy, Font.PixelsPerInch, Screen.PixelsPerInch);
case bmpAlign of
taCenter: PaintRect.Left := Trunc((aRect.Left + aRect.Right - CSize.cx)/2);
taLeftJustify: PaintRect.Left := ARect.Left + constCellPadding;
@ -11913,8 +11915,6 @@ begin
exit;
if AValue>=0 then begin
if FWidth = nil then begin
if AValue=GetDefaultWidth then
exit;
New(FWidth)
end else if FWidth^ = AVAlue then
exit;
@ -11962,7 +11962,7 @@ var
begin
tmpGrid := Grid;
if tmpGrid<>nil then
result := tmpGrid.DefaultColWidth
result := tmpGrid.GetRealDefaultColWidth
else
result := -1;
end;

7
lcl/groupededit.pp
View File

@ -620,7 +620,7 @@ end;
function TCustomAbstractGroupedEdit.GetTabStop: Boolean;
begin
Result := inherited TabStop;
Result := FEdit.TabStop;
end;
function TCustomAbstractGroupedEdit.RealGetText: TCaption;
@ -935,7 +935,8 @@ end;
procedure TCustomAbstractGroupedEdit.DoEnter;
begin
inherited DoEnter;
FEdit.SetFocus;
if not (csDesigning in ComponentState) then
FEdit.SetFocus;
end;
procedure TCustomAbstractGroupedEdit.EditChange;
@ -1132,7 +1133,6 @@ end;
procedure TCustomAbstractGroupedEdit.SetTabStop(AValue: Boolean);
begin
inherited TabStop := AValue;
FEdit.TabStop := AValue;
end;
@ -1193,6 +1193,7 @@ begin
FDirectInput := True;
FIsReadOnly := False;
TabStop := True;
inherited TabStop := False;
FocusOnBuddyClick := False;
FSpacing := 0;
SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);

18
lcl/include/control.inc
View File

@ -3003,7 +3003,8 @@ procedure TControl.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
var
AAWidth, AAHeight: Boolean;
NewLeft, NewTop, NewWidth, NewHeight, NewRight, NewBottom, OldWidth, OldHeight: Integer;
NewLeft, NewTop, NewWidth, NewHeight, NewRight, NewBottom, OldWidth, OldHeight,
BeforeConstraintsWidth, BeforeConstraintsHeight: Integer;
begin
// Apply the changes
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
@ -3066,20 +3067,25 @@ begin
if AAHeight then
NewHeight := Round(Height * AYProportion);
if AAWidth then
BorderSpacing.AutoAdjustLayout(AXProportion, AYProportion);
Constraints.AutoAdjustLayout(AXProportion, AYProportion);
BeforeConstraintsWidth := NewWidth;
NewWidth := Constraints.MinMaxWidth(NewWidth);
BeforeConstraintsHeight := NewHeight;
NewHeight := Constraints.MinMaxHeight(NewHeight);
if AAWidth or (BeforeConstraintsWidth<>NewWidth) then
begin
if akRight in Anchors then
NewLeft := NewLeft-NewWidth+OldWidth;
end;
if AAHeight then
if AAHeight or (BeforeConstraintsHeight<>NewHeight) then
begin
if akBottom in Anchors then
NewTop := NewTop-NewHeight+OldHeight;
end;
BorderSpacing.AutoAdjustLayout(AXProportion, AYProportion);
Constraints.AutoAdjustLayout(AXProportion, AYProportion);
SetBounds(NewLeft, NewTop, NewWidth, NewHeight);
finally
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.DoAutoAdjustLayout'){$ENDIF};

3
lcl/include/customcombobox.inc
View File

@ -1015,7 +1015,10 @@ begin
begin
FCanvas.Handle := DC;
if Font<>nil then
begin
FCanvas.Font := Font;
FCanvas.Font.PixelsPerInch := Font.PixelsPerInch;
end;
if Brush<>nil then
FCanvas.Brush := Brush;
if (ItemID <> UINT(-1)) and (odSelected in ItemState) then

33
lcl/include/customdesigncontrol.inc
View File

@ -30,6 +30,39 @@ begin
FPixelsPerInch := AToPPI;
end;
procedure TCustomDesignControl.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double
);
var
NewWidth, NewHeight: Integer;
begin
if Assigned(Parent) then
begin
inherited;
Exit;
end;
// Apply the changes
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.DoAutoAdjustLayout'){$ENDIF};
try
if not ParentFont or (Parent=nil) then
ScaleFontsPPI(AYProportion);
NewWidth := Round(Width*AXProportion);
NewHeight := Round(Height*AYProportion);
BorderSpacing.AutoAdjustLayout(AXProportion, AYProportion);
Constraints.AutoAdjustLayout(AXProportion, AYProportion);
SetBounds(Left, Top, NewWidth, NewHeight);
finally
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.DoAutoAdjustLayout'){$ENDIF};
end;
end;
end;
procedure TCustomDesignControl.Loaded;
procedure FixChildren(const AParent: TWinControl);
var

32
lcl/include/customform.inc
View File

@ -1560,38 +1560,6 @@ begin
end;
end;
procedure TCustomForm.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
var
NewWidth, NewHeight: Integer;
begin
if Assigned(Parent) then
begin
inherited;
Exit;
end;
// Apply the changes
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.DoAutoAdjustLayout'){$ENDIF};
try
if not ParentFont or (Parent=nil) then
ScaleFontsPPI(AYProportion);
NewWidth := Round(Width*AXProportion);
NewHeight := Round(Height*AYProportion);
BorderSpacing.AutoAdjustLayout(AXProportion, AYProportion);
Constraints.AutoAdjustLayout(AXProportion, AYProportion);
SetBounds(Left, Top, NewWidth, NewHeight);
finally
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.DoAutoAdjustLayout'){$ENDIF};
end;
end;
end;
procedure TCustomForm.DoRemoveActionList(List: TCustomActionList);
begin
if FActionLists<>nil then

3
lcl/include/customlistbox.inc
View File

@ -271,7 +271,10 @@ begin
begin
FCanvas.Handle := DC;
if Assigned(Font) then
begin
FCanvas.Font := Font;
FCanvas.Font.PixelsPerInch := Font.PixelsPerInch;
end;
if Assigned(Brush) then
FCanvas.Brush := Brush;
if (ItemID <> UINT(-1)) and (odSelected in ItemState) then

18
lcl/interfaces/qt5/cbindings/Qt5Pas.pro
View File

@ -117,7 +117,10 @@ HEADERS += \
qsize_c.h \
qstring_c.h \
qstringlist_c.h \
qsurface_c.h \
qsurfaceformat_c.h \
qrect_c.h \
qmargins_c.h \
qdatetime_c.h \
qbytearray_c.h \
qlocale_c.h \
@ -149,6 +152,10 @@ HEADERS += \
qapplication_hook.h \
qwhatsthis_c.h \
qsizepolicy_c.h \
qscreen_c.h \
qscreen_hook.h \
qwindow_c.h \
qwindow_hook.h \
qwidget_c.h \
qwidget_hook.h \
qlayoutitem_c.h \
@ -175,6 +182,7 @@ HEADERS += \
qbrush_c.h \
qpen_c.h \
qpolygon_c.h \
qbackingstore_c.h \
qpainter_c.h \
qpaintengine_c.h \
qpaintdevice_c.h \
@ -371,6 +379,8 @@ HEADERS += \
qdrag_hook_c.h \
qguiapplication_hook_c.h \
qapplication_hook_c.h \
qscreen_hook_c.h \
qwindow_hook_c.h \
qwidget_hook_c.h \
qlayout_hook_c.h \
qstackedlayout_hook_c.h \
@ -464,7 +474,10 @@ SOURCES += \
qsize_c.cpp \
qstring_c.cpp \
qstringlist_c.cpp \
qsurface_c.cpp \
qsurfaceformat_c.cpp \
qrect_c.cpp \
qmargins_c.cpp \
qdatetime_c.cpp \
qbytearray_c.cpp \
qlocale_c.cpp \
@ -489,6 +502,8 @@ SOURCES += \
qapplication_c.cpp \
qwhatsthis_c.cpp \
qsizepolicy_c.cpp \
qscreen_c.cpp \
qwindow_c.cpp \
qwidget_c.cpp \
qlayoutitem_c.cpp \
qlayout_c.cpp \
@ -508,6 +523,7 @@ SOURCES += \
qbrush_c.cpp \
qpen_c.cpp \
qpolygon_c.cpp \
qbackingstore_c.cpp \
qpainter_c.cpp \
qpaintengine_c.cpp \
qpaintdevice_c.cpp \
@ -642,6 +658,8 @@ SOURCES += \
qdrag_hook_c.cpp \
qguiapplication_hook_c.cpp \
qapplication_hook_c.cpp \
qscreen_hook_c.cpp \
qwindow_hook_c.cpp \
qwidget_hook_c.cpp \
qlayout_hook_c.cpp \
qstackedlayout_hook_c.cpp \

4
lcl/interfaces/qt5/cbindings/src/chandles.h
View File

@ -23,6 +23,8 @@ typedef unsigned int PTRUINT;
typedef struct QAbstractButton__ { PTRINT dummy; } *QAbstractButtonH;
typedef struct QSizePolicy__ { PTRINT dummy; } *QSizePolicyH;
typedef struct QSurface__ { PTRINT dummy; } *QSurfaceH;
typedef struct QSurfaceFormat__ { PTRINT dummy; } *QSurfaceFormatH;
/* typedef struct QWebHistoryItem_hook__ { PTRINT dummy; } *QWebHistoryItem_hookH; */
typedef struct QSlider_hook__ { PTRINT dummy; } *QSlider_hookH;
typedef struct QGraphicsScene_hook__ { PTRINT dummy; } *QGraphicsScene_hookH;
@ -446,6 +448,8 @@ typedef struct QButtonGroup_hook__ { PTRINT dummy; } *QButtonGroup_hookH;
typedef struct QInputMethodEvent__ { PTRINT dummy; } *QInputMethodEventH;
typedef struct QDate__ { PTRINT dummy; } *QDateH;
typedef struct QStyleOptionTitleBar__ { PTRINT dummy; } *QStyleOptionTitleBarH;
typedef struct QScreen_hook__ { PTRINT dummy; } *QScreen_hookH;
typedef struct QWindow_hook__ { PTRINT dummy; } *QWindow_hookH;
typedef struct QWidget_hook__ { PTRINT dummy; } *QWidget_hookH;
typedef struct QDockWidget__ { PTRINT dummy; } *QDockWidgetH;
typedef struct QLine__ { PTRINT dummy; } *QLineH;

78
lcl/interfaces/qt5/cbindings/src/qbackingstore_c.cpp Normal file
View File

@ -0,0 +1,78 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qbackingstore_c.h"
QBackingStoreH QBackingStore_Create(QWindowH window)
{
return (QBackingStoreH) new QBackingStore((QWindow*)window);
}
void QBackingStore_Destroy(QBackingStoreH handle)
{
delete (QBackingStore *)handle;
}
QWindowH QBackingStore_window(QBackingStoreH handle)
{
return (QWindowH) ((QBackingStore *)handle)->window();
}
QPaintDeviceH QBackingStore_paintDevice(QBackingStoreH handle)
{
return (QPaintDeviceH) ((QBackingStore *)handle)->paintDevice();
}
void QBackingStore_flush(QBackingStoreH handle, const QRegionH region, QWindowH window, const QPointH offset)
{
((QBackingStore *)handle)->flush(*(const QRegion*) region, (QWindow *)window, *(const QPoint*) offset);
}
void QBackingStore_resize(QBackingStoreH handle, const QSizeH AnonParam1)
{
((QBackingStore *)handle)->resize(*(const QSize*)AnonParam1);
}
void QBackingStore_size(QBackingStoreH handle, PSize retval)
{
*(QSize *)retval = ((QBackingStore *)handle)->size();
}
bool QBackingStore_scroll(QBackingStoreH handle, const QRegionH area, int dx, int dy)
{
((QBackingStore *)handle)->scroll(*(const QRegion*)area, dx, dy);
}
void QBackingStore_beginPaint(QBackingStoreH handle, const QRegionH AnonParam1)
{
((QBackingStore *)handle)->beginPaint(*(const QRegion*)AnonParam1);
}
void QBackingStore_endPaint(QBackingStoreH handle)
{
((QBackingStore *)handle)->endPaint();
}
void QBackingStore_setStaticContents(QBackingStoreH handle, const QRegionH AnonParam1)
{
((QBackingStore *)handle)->setStaticContents(*(const QRegion*)AnonParam1);
}
void QBackingStore_staticContents(QBackingStoreH handle, QRegionH retval)
{
*(QRegion *)retval = ((QBackingStore *)handle)->staticContents();
}
bool QBackingStore_hasStaticContents(QBackingStoreH handle)
{
return (bool) ((QBackingStore *)handle)->hasStaticContents();
}

32
lcl/interfaces/qt5/cbindings/src/qbackingstore_c.h Normal file
View File

@ -0,0 +1,32 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QBACKINGSTORE_C_H
#define QBACKINGSTORE_C_H
#include <QtGui>
#include "pascalbind.h"
C_EXPORT QBackingStoreH QBackingStore_Create(QWindowH window);
C_EXPORT void QBackingStore_Destroy(QBackingStoreH handle);
C_EXPORT QWindowH QBackingStore_window(QBackingStoreH handle);
C_EXPORT QPaintDeviceH QBackingStore_paintDevice(QBackingStoreH handle);
C_EXPORT void QBackingStore_flush(QBackingStoreH handle, const QRegionH region, QWindowH window, const QPointH offset);
C_EXPORT void QBackingStore_resize(QBackingStoreH handle, const QSizeH AnonParam1);
C_EXPORT void QBackingStore_size(QBackingStoreH handle, PSize retval);
C_EXPORT bool QBackingStore_scroll(QBackingStoreH handle, const QRegionH area, int dx, int dy);
C_EXPORT void QBackingStore_beginPaint(QBackingStoreH handle, const QRegionH AnonParam1);
C_EXPORT void QBackingStore_endPaint(QBackingStoreH handle);
C_EXPORT void QBackingStore_setStaticContents(QBackingStoreH handle, const QRegionH AnonParam1);
C_EXPORT void QBackingStore_staticContents(QBackingStoreH handle, QRegionH retval);
C_EXPORT bool QBackingStore_hasStaticContents(QBackingStoreH handle);
#endif

73
lcl/interfaces/qt5/cbindings/src/qmargins_c.cpp Normal file
View File

@ -0,0 +1,73 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qmargins_c.h"
QMarginsH QMargins_Create()
{
return (QMarginsH) new QMargins();
}
QMarginsH QMargins_Create2(int left, int top, int right, int bottom)
{
return (QMarginsH) new QMargins(left, top, right, bottom);
}
void QMargins_Destroy(QMarginsH handle)
{
delete (QMargins *)handle;
}
bool QMargins_isNull(QMarginsH handle)
{
return (bool) ((QMargins *)handle)->isNull();
}
int QMargins_left(QMarginsH handle)
{
return (int) ((QMargins *)handle)->left();
}
int QMargins_top(QMarginsH handle)
{
return (int) ((QMargins *)handle)->top();
}
int QMargins_right(QMarginsH handle)
{
return (int) ((QMargins *)handle)->right();
}
int QMargins_bottom(QMarginsH handle)
{
return (int) ((QMargins *)handle)->bottom();
}
void QMargins_setLeft(QMarginsH handle, int left)
{
((QMargins *)handle)->setLeft(left);
}
void QMargins_setTop(QMarginsH handle, int top)
{
((QMargins *)handle)->setTop(top);
}
void QMargins_setRight(QMarginsH handle, int right)
{
((QMargins *)handle)->setRight(right);
}
void QMargins_setBottom(QMarginsH handle, int bottom)
{
((QMargins *)handle)->setBottom(bottom);
}

31
lcl/interfaces/qt5/cbindings/src/qmargins_c.h Normal file
View File

@ -0,0 +1,31 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QMARGINS_C_H
#define QMARGINS_C_H
#include <QtCore>
#include "pascalbind.h"
C_EXPORT QMarginsH QMargins_Create();
C_EXPORT QMarginsH QMargins_Create2(int left, int top, int right, int bottom);
C_EXPORT void QMargins_Destroy(QMarginsH handle);
C_EXPORT bool QMargins_isNull(QMarginsH handle);
C_EXPORT int QMargins_left(QMarginsH handle);
C_EXPORT int QMargins_top(QMarginsH handle);
C_EXPORT int QMargins_right(QMarginsH handle);
C_EXPORT int QMargins_bottom(QMarginsH handle);
C_EXPORT void QMargins_setLeft(QMarginsH handle, int left);
C_EXPORT void QMargins_setTop(QMarginsH handle, int top);
C_EXPORT void QMargins_setRight(QMarginsH handle, int right);
C_EXPORT void QMargins_setBottom(QMarginsH handle, int bottom);
#endif

178
lcl/interfaces/qt5/cbindings/src/qscreen_c.cpp Normal file
View File

@ -0,0 +1,178 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qscreen_c.h"
void QScreen_Destroy(QScreenH handle)
{
delete (QScreen *)handle;
}
void QScreen_name(QScreenH handle, PWideString retval)
{
QString t_retval;
t_retval = ((QScreen *)handle)->name();
copyQStringToPWideString(t_retval, retval);
}
int QScreen_depth(QScreenH handle)
{
return (int) ((QScreen *)handle)->depth();
}
void QScreen_size(QScreenH handle, PSize retval)
{
*(QSize *)retval = ((QScreen *)handle)->size();
}
void QScreen_geometry(QScreenH handle, PRect retval)
{
QRect t_retval;
t_retval = ((QScreen *)handle)->geometry();
copyQRectToPRect(t_retval, retval);
}
void QScreen_physicalSize(QScreenH handle, QSizeFH retval)
{
*(QSizeF *)retval = ((QScreen *)handle)->physicalSize();
}
qreal QScreen_physicalDotsPerInchX(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->physicalDotsPerInchX();
}
qreal QScreen_physicalDotsPerInchY(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->physicalDotsPerInchY();
}
qreal QScreen_physicalDotsPerInch(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->physicalDotsPerInch();
}
qreal QScreen_logicalDotsPerInchX(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->logicalDotsPerInchX();
}
qreal QScreen_logicalDotsPerInchY(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->logicalDotsPerInchY();
}
qreal QScreen_logicalDotsPerInch(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->logicalDotsPerInch();
}
qreal QScreen_devicePixelRatio(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->devicePixelRatio();
}
void QScreen_availableSize(QScreenH handle, PSize retval)
{
*(QSize *)retval = ((QScreen *)handle)->availableSize();
}
void QScreen_availableGeometry(QScreenH handle, PRect retval)
{
QRect t_retval;
t_retval = ((QScreen *)handle)->availableGeometry();
copyQRectToPRect(t_retval, retval);
}
void QScreen_virtualSize(QScreenH handle, PSize retval)
{
*(QSize *)retval = ((QScreen *)handle)->virtualSize();
}
void QScreen_virtualGeometry(QScreenH handle, PRect retval)
{
QRect t_retval;
t_retval = ((QScreen *)handle)->virtualGeometry();
copyQRectToPRect(t_retval, retval);
}
Qt::ScreenOrientation QScreen_primaryOrientation(QScreenH handle)
{
return (Qt::ScreenOrientation) ((QScreen *)handle)->primaryOrientation();
}
Qt::ScreenOrientation QScreen_orientation(QScreenH handle)
{
return (Qt::ScreenOrientation) ((QScreen *)handle)->orientation();
}
Qt::ScreenOrientation QScreen_nativeOrientation(QScreenH handle)
{
return (Qt::ScreenOrientation) ((QScreen *)handle)->nativeOrientation();
}
Qt::ScreenOrientations QScreen_orientationUpdateMask(QScreenH handle)
{
return (Qt::ScreenOrientations) ((QScreen *)handle)->orientationUpdateMask();
}
void QScreen_setOrientationUpdateMask(QScreenH handle, Qt::ScreenOrientations mask)
{
((QScreen *)handle)->setOrientationUpdateMask((Qt::ScreenOrientations) mask);
}
int QScreen_angleBetween(QScreenH handle, Qt::ScreenOrientation a, Qt::ScreenOrientation b)
{
return (int) ((QScreen *)handle)->angleBetween((Qt::ScreenOrientation) a, (Qt::ScreenOrientation) b);
}
void QScreen_virtualSiblings(QScreenH handle, PPtrIntArray retval)
{
QList<QScreen*> t_retval;
t_retval = ((QScreen *)handle)->virtualSiblings();
copyQListTemplateToPtrIntArray(t_retval, retval);
}
void QScreen_transformBetween(QScreenH handle, QTransformH retval, Qt::ScreenOrientation a, Qt::ScreenOrientation b, PRect AnonParam1)
{
QRect t_AnonParam1;
copyPRectToQRect(AnonParam1, t_AnonParam1);
*(QTransform *)retval = ((QScreen *)handle)->transformBetween((Qt::ScreenOrientation) a, (Qt::ScreenOrientation) b, t_AnonParam1);
}
void QScreen_mapBetween(QScreenH handle, PRect retval, Qt::ScreenOrientation a, Qt::ScreenOrientation b, PRect AnonParam1)
{
QRect t_AnonParam1;
QRect t_retval;
copyPRectToQRect(AnonParam1, t_AnonParam1);
t_retval = ((QScreen *)handle)->mapBetween((Qt::ScreenOrientation) a, (Qt::ScreenOrientation) b, t_AnonParam1);
copyQRectToPRect(t_retval, retval);
}
bool QScreen_isPortrait(QScreenH handle, Qt::ScreenOrientation orientation)
{
return (bool) ((QScreen *)handle)->isPortrait((Qt::ScreenOrientation) orientation);
}
bool QScreen_isLandscape(QScreenH handle, Qt::ScreenOrientation orientation)
{
return (bool) ((QScreen *)handle)->isLandscape((Qt::ScreenOrientation) orientation);
}
void QScreen_grabWindow(QScreenH handle, QPixmapH retval,unsigned int window, int x,int y,int w, int h)
{
*(QPixmap *)retval = ((QScreen *)handle)->grabWindow((WId) window, x, y, w, h);
}
qreal QScreen_refreshRate(QScreenH handle)
{
return (qreal) ((QScreen *)handle)->refreshRate();
}

49
lcl/interfaces/qt5/cbindings/src/qscreen_c.h Normal file
View File

@ -0,0 +1,49 @@
//******************************************************************************
// Copyright (c) 2007 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QSCREEN_C_H
#define QSCREEN_C_H
#include <QtGui>
#include "pascalbind.h"
C_EXPORT void QScreen_Destroy(QScreenH handle);
C_EXPORT void QScreen_name(QScreenH handle, PWideString retval);
C_EXPORT int QScreen_depth(QScreenH handle);
C_EXPORT void QScreen_size(QScreenH handle, PSize retval);
C_EXPORT void QScreen_geometry(QScreenH handle, PRect retval);
C_EXPORT void QScreen_physicalSize(QScreenH handle, QSizeFH retval);
C_EXPORT qreal QScreen_physicalDotsPerInchX(QScreenH handle);
C_EXPORT qreal QScreen_physicalDotsPerInchY(QScreenH handle);
C_EXPORT qreal QScreen_physicalDotsPerInch(QScreenH handle);
C_EXPORT qreal QScreen_logicalDotsPerInchX(QScreenH handle);
C_EXPORT qreal QScreen_logicalDotsPerInchY(QScreenH handle);
C_EXPORT qreal QScreen_logicalDotsPerInch(QScreenH handle);
C_EXPORT qreal QScreen_devicePixelRatio(QScreenH handle);
C_EXPORT void QScreen_availableSize(QScreenH handle, PSize retval);
C_EXPORT void QScreen_availableGeometry(QScreenH handle, PRect retval);
C_EXPORT void QScreen_virtualSize(QScreenH handle, PSize retval);
C_EXPORT void QScreen_virtualGeometry(QScreenH handle, PRect retval);
C_EXPORT Qt::ScreenOrientation QScreen_primaryOrientation(QScreenH handle);
C_EXPORT Qt::ScreenOrientation QScreen_orientation(QScreenH handle);
C_EXPORT Qt::ScreenOrientation QScreen_nativeOrientation(QScreenH handle);
C_EXPORT Qt::ScreenOrientations QScreen_orientationUpdateMask(QScreenH handle);
C_EXPORT void QScreen_setOrientationUpdateMask(QScreenH handle, Qt::ScreenOrientations mask);
C_EXPORT int QScreen_angleBetween(QScreenH handle, Qt::ScreenOrientation a, Qt::ScreenOrientation b);
C_EXPORT void QScreen_virtualSiblings(QScreenH handle, PPtrIntArray retval);
C_EXPORT void QScreen_transformBetween(QScreenH handle, QTransformH retval, Qt::ScreenOrientation a, Qt::ScreenOrientation b, PRect AnonParam1);
C_EXPORT void QScreen_mapBetween(QScreenH handle, PRect retval, Qt::ScreenOrientation a, Qt::ScreenOrientation b, PRect AnonParam1);
C_EXPORT bool QScreen_isPortrait(QScreenH handle, Qt::ScreenOrientation orientation);
C_EXPORT bool QScreen_isLandscape(QScreenH handle, Qt::ScreenOrientation orientation);
C_EXPORT void QScreen_grabWindow(QScreenH handle, QPixmapH retval,unsigned int window, int x = 0,int y = 0,int w = -1, int h = -1);
C_EXPORT qreal QScreen_refreshRate(QScreenH handle);
#endif

190
lcl/interfaces/qt5/cbindings/src/qscreen_hook.h Normal file
View File

@ -0,0 +1,190 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QSCREEN_HOOK_H
#define QSCREEN_HOOK_H
#include <qscreen.h>
#include "qobject_hook.h"
class QScreen_hook : public QObject_hook {
Q_OBJECT
public:
QScreen_hook(QObject *handle) : QObject_hook(handle) {
geometryChanged_event.func = NULL;
availableGeometryChanged_event.func = NULL;
physicalSizeChanged_event.func = NULL;
physicalDotsPerInchChanged_event.func = NULL;
logicalDotsPerInchChanged_event.func = NULL;
virtualGeometryChanged_event.func = NULL;
primaryOrientationChanged_event.func = NULL;
orientationChanged_event.func = NULL;
refreshRateChanged_event.func = NULL;
}
void hook_geometryChanged(QHook &hook) {
if ( !geometryChanged_event.func )
connect(handle, SIGNAL(geometryChanged(const QRect&)), this, SLOT(geometryChanged_hook(const QRect&)));
geometryChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(geometryChanged(const QRect&)), this, SLOT(geometryChanged_hook(const QRect&)));
}
void hook_availableGeometryChanged(QHook &hook) {
if ( !availableGeometryChanged_event.func )
connect(handle, SIGNAL(availableGeometryChanged(const QRect&)), this, SLOT(availableGeometryChanged_hook(const QRect&)));
availableGeometryChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(availableGeometryChanged(const QRect&)), this, SLOT(availableGeometryChanged_hook(const QRect&)));
}
void hook_physicalSizeChanged(QHook &hook) {
if ( !physicalSizeChanged_event.func )
connect(handle, SIGNAL(physicalSizeChanged(const QSizeF&)), this, SLOT(physicalSizeChanged_hook(const QSizeF&)));
physicalSizeChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(physicalSizeChanged(const QSizeF&)), this, SLOT(physicalSizeChanged_hook(const QSizeF&)));
}
void hook_physicalDotsPerInchChanged(QHook &hook) {
if ( !physicalDotsPerInchChanged_event.func )
connect(handle, SIGNAL(physicalDotsPerInchChanged(qreal)), this, SLOT(physicalDotsPerInchChanged_hook(qreal)));
physicalDotsPerInchChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(physicalDotsPerInchChanged(qreal)), this, SLOT(physicalDotsPerInchChanged_hook(qreal)));
}
void hook_logicalDotsPerInchChanged(QHook &hook) {
if ( !logicalDotsPerInchChanged_event.func )
connect(handle, SIGNAL(logicalDotsPerInchChanged(qreal)), this, SLOT(logicalDotsPerInchChanged_hook(qreal)));
logicalDotsPerInchChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(logicalDotsPerInchChanged(qreal)), this, SLOT(logicalDotsPerInchChanged_hook(qreal)));
}
void hook_virtualGeometryChanged(QHook &hook) {
if ( !virtualGeometryChanged_event.func )
connect(handle, SIGNAL(virtualGeometryChanged(const QRect&)), this, SLOT(virtualGeometryChanged_hook(const QRect&)));
virtualGeometryChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(virtualGeometryChanged(const QRect&)), this, SLOT(virtualGeometryChanged_hook(const QRect&)));
}
void hook_primaryOrientationChanged(QHook &hook) {
if ( !primaryOrientationChanged_event.func )
connect(handle, SIGNAL(primaryOrientationChanged(Qt::ScreenOrientation)), this, SLOT(primaryOrientationChanged_hook(Qt::ScreenOrientation)));
primaryOrientationChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(primaryOrientationChanged(Qt::ScreenOrientation)), this, SLOT(primaryOrientationChanged_hook(Qt::ScreenOrientation)));
}
void hook_orientationChanged(QHook &hook) {
if ( !orientationChanged_event.func )
connect(handle, SIGNAL(orientationChanged(Qt::ScreenOrientation)), this, SLOT(orientationChanged_hook(Qt::ScreenOrientation)));
orientationChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(orientationChanged(Qt::ScreenOrientation)), this, SLOT(orientationChanged_hook(Qt::ScreenOrientation)));
}
void hook_refreshRateChanged(QHook &hook) {
if ( !refreshRateChanged_event.func )
connect(handle, SIGNAL(refreshRateChanged(qreal)), this, SLOT(refreshRateChanged_hook(qreal)));
refreshRateChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(refreshRateChanged(qreal)), this, SLOT(refreshRateChanged_hook(qreal)));
}
private slots:
void geometryChanged_hook(const QRect& geom) {
if ( geometryChanged_event.func ) {
typedef void (*func_type)(void *data, PRect geom);
PRect t_geom;
copyQRectToPRect(geom, t_geom);
(*(func_type)geometryChanged_event.func)(geometryChanged_event.data, t_geom);
}
}
void availableGeometryChanged_hook(const QRect& geom) {
if ( availableGeometryChanged_event.func ) {
typedef void (*func_type)(void *data, PRect geom);
PRect t_geom;
copyQRectToPRect(geom, t_geom);
(*(func_type)availableGeometryChanged_event.func)(availableGeometryChanged_event.data, t_geom);
}
}
void physicalSizeChanged_hook(const QSizeF& pos) {
if ( physicalSizeChanged_event.func ) {
typedef void (*func_type)(void *data, const QSizeFH pos);
(*(func_type)physicalSizeChanged_event.func)(physicalSizeChanged_event.data, (const QSizeFH)&pos);
}
}
void physicalDotsPerInchChanged_hook(qreal dpi) {
if ( physicalDotsPerInchChanged_event.func ) {
typedef void (*func_type)(void *data, qreal dpi);
(*(func_type)physicalDotsPerInchChanged_event.func)(physicalDotsPerInchChanged_event.data, dpi);
}
}
void logicalDotsPerInchChanged_hook(qreal dpi) {
if ( logicalDotsPerInchChanged_event.func ) {
typedef void (*func_type)(void *data, qreal dpi);
(*(func_type)logicalDotsPerInchChanged_event.func)(logicalDotsPerInchChanged_event.data, dpi);
}
}
void virtualGeometryChanged_hook(const QRect& geom) {
if ( virtualGeometryChanged_event.func ) {
typedef void (*func_type)(void *data, PRect geom);
PRect t_geom;
copyQRectToPRect(geom, t_geom);
(*(func_type)virtualGeometryChanged_event.func)(virtualGeometryChanged_event.data, t_geom);
}
}
void primaryOrientationChanged_hook(Qt::ScreenOrientation orientation) {
if ( primaryOrientationChanged_event.func ) {
typedef void (*func_type)(void *data, Qt::ScreenOrientation orientation);
(*(func_type)primaryOrientationChanged_event.func)(primaryOrientationChanged_event.data, orientation);
}
}
void orientationChanged_hook(Qt::ScreenOrientation orientation) {
if ( orientationChanged_event.func ) {
typedef void (*func_type)(void *data, Qt::ScreenOrientation orientation);
(*(func_type)orientationChanged_event.func)(orientationChanged_event.data, orientation);
}
}
void refreshRateChanged_hook(qreal refreshRate) {
if ( refreshRateChanged_event.func ) {
typedef void (*func_type)(void *data, qreal refreshRate);
(*(func_type)refreshRateChanged_event.func)(refreshRateChanged_event.data, refreshRate);
}
}
private:
QHook geometryChanged_event;
QHook availableGeometryChanged_event;
QHook physicalSizeChanged_event;
QHook physicalDotsPerInchChanged_event;
QHook logicalDotsPerInchChanged_event;
QHook virtualGeometryChanged_event;
QHook primaryOrientationChanged_event;
QHook orientationChanged_event;
QHook refreshRateChanged_event;
};
#endif

68
lcl/interfaces/qt5/cbindings/src/qscreen_hook_c.cpp Normal file
View File

@ -0,0 +1,68 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qscreen_hook_c.h"
QScreen_hookH QScreen_hook_Create(QObjectH handle)
{
return (QScreen_hookH) new QScreen_hook((QObject*)handle);
}
void QScreen_hook_Destroy(QScreen_hookH handle)
{
delete (QScreen_hook *)handle;
}
void QScreen_hook_hook_geometryChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_geometryChanged(hook);
}
void QScreen_hook_hook_availableGeometryChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_availableGeometryChanged(hook);
}
void QScreen_hook_hook_physicalSizeChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_physicalSizeChanged(hook);
}
void QScreen_hook_hook_physicalDotsPerInchChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_physicalDotsPerInchChanged(hook);
}
void QScreen_hook_hook_logicalDotsPerInchChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_logicalDotsPerInchChanged(hook);
}
void QScreen_hook_hook_virtualGeometryChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_virtualGeometryChanged(hook);
}
void QScreen_hook_hook_primaryOrientationChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_primaryOrientationChanged(hook);
}
void QScreen_hook_hook_orientationChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_orientationChanged(hook);
}
void QScreen_hook_hook_refreshRateChanged(QScreen_hookH handle, QHookH hook)
{
((QScreen_hook *)handle)->hook_refreshRateChanged(hook);
}

30
lcl/interfaces/qt5/cbindings/src/qscreen_hook_c.h Normal file
View File

@ -0,0 +1,30 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QSCREEN_HOOK_C_H
#define QSCREEN_HOOK_C_H
#include "qscreen_hook.h"
C_EXPORT QScreen_hookH QScreen_hook_Create(QObjectH handle);
C_EXPORT void QScreen_hook_Destroy(QScreen_hookH handle);
C_EXPORT void QScreen_hook_hook_geometryChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_availableGeometryChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_physicalSizeChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_physicalDotsPerInchChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_logicalDotsPerInchChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_virtualGeometryChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_primaryOrientationChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_orientationChanged(QScreen_hookH handle, QHookH hook);
C_EXPORT void QScreen_hook_hook_refreshRateChanged(QScreen_hookH handle, QHookH hook);
#endif

45
lcl/interfaces/qt5/cbindings/src/qsurface_c.cpp Normal file
View File

@ -0,0 +1,45 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qsurface_c.h"
void QSurface_Destroy(QSurfaceH handle)
{
delete (QSurface *)handle;
}
void QSurface_size(QSurfaceH handle, PSize retval)
{
*(QSize *)retval = ((QSurface *)handle)->size();
}
bool QSurface_supportsOpenGL(QSurfaceH handle)
{
return (bool) ((QSurface *)handle)->supportsOpenGL();
}
QSurface::SurfaceClass QSurface_surfaceClass(QSurfaceH handle)
{
return (QSurface::SurfaceClass) ((QSurface *)handle)->surfaceClass();
}
QSurface::SurfaceType QSurface_surfaceType(QSurfaceH handle)
{
return (QSurface::SurfaceType) ((QSurface *)handle)->surfaceType();
}
void QSurface_format(QSurfaceH handle, QSurfaceFormatH areturn)
{
*(QSurfaceFormat *)areturn = ((QSurface *)handle)->format();
}

25
lcl/interfaces/qt5/cbindings/src/qsurface_c.h Normal file
View File

@ -0,0 +1,25 @@
//******************************************************************************
// Copyright (c) 2007 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QSURFACE_C_H
#define QSURFACE_C_H
#include <QtGui>
#include "pascalbind.h"
C_EXPORT void QSurface_Destroy(QSurfaceH handle);
C_EXPORT void QSurface_size(QSurfaceH handle, PSize retval);
C_EXPORT bool QSurface_supportsOpenGL(QSurfaceH handle);
C_EXPORT QSurface::SurfaceClass QSurface_surfaceClass(QSurfaceH handle);
C_EXPORT QSurface::SurfaceType QSurface_surfaceType(QSurfaceH handle);
C_EXPORT void QSurface_format(QSurfaceH handle, QSurfaceFormatH areturn);
#endif

202
lcl/interfaces/qt5/cbindings/src/qsurfaceformat_c.cpp Normal file
View File

@ -0,0 +1,202 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qsurfaceformat_c.h"
QSurfaceFormatH QSurfaceFormat_Create()
{
return (QSurfaceFormatH) new QSurfaceFormat();
}
QSurfaceFormatH QSurfaceFormat_Create2(QSurfaceFormat::FormatOptions options)
{
return (QSurfaceFormatH) new QSurfaceFormat((QSurfaceFormat::FormatOptions) options);
}
void QSurfaceFormat_Destroy(QSurfaceFormatH handle)
{
delete (QSurfaceFormat *)handle;
}
void QSurfaceFormat_setDepthBufferSize(QSurfaceFormatH handle, int size)
{
((QSurfaceFormat*)handle)->setDepthBufferSize(size);
}
int QSurfaceFormat_depthBufferSize(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->depthBufferSize();
}
void QSurfaceFormat_setStencilBufferSize(QSurfaceFormatH handle, int size)
{
((QSurfaceFormat*)handle)->setStencilBufferSize(size);
}
int QSurfaceFormat_stencilBufferSize(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->stencilBufferSize();
}
void QSurfaceFormat_setRedBufferSize(QSurfaceFormatH handle, int size)
{
((QSurfaceFormat*)handle)->setRedBufferSize(size);
}
int QSurfaceFormat_redBufferSize(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->redBufferSize();
}
void QSurfaceFormat_setGreenBufferSize(QSurfaceFormatH handle, int size)
{
((QSurfaceFormat*)handle)->setGreenBufferSize(size);
}
int QSurfaceFormat_greenBufferSize(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->greenBufferSize();
}
void QSurfaceFormat_setBlueBufferSize(QSurfaceFormatH handle, int size)
{
((QSurfaceFormat*)handle)->setBlueBufferSize(size);
}
int QSurfaceFormat_blueBufferSize(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->blueBufferSize();
}
void QSurfaceFormat_setAlphaBufferSize(QSurfaceFormatH handle, int size)
{
((QSurfaceFormat*)handle)->setAlphaBufferSize(size);
}
int QSurfaceFormat_alphaBufferSize(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->alphaBufferSize();
}
void QSurfaceFormat_setSamples(QSurfaceFormatH handle, int numSamples)
{
((QSurfaceFormat*)handle)->setSamples(numSamples);
}
int QSurfaceFormat_samples(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->samples();
}
void QSurfaceFormat_setSwapBehavior(QSurfaceFormatH handle, QSurfaceFormat::SwapBehavior behavior)
{
((QSurfaceFormat*)handle)->setSwapBehavior((QSurfaceFormat::SwapBehavior) behavior);
}
QSurfaceFormat::SwapBehavior QSurfaceFormat_swapBehavior(QSurfaceFormatH handle)
{
return (QSurfaceFormat::SwapBehavior) ((QSurfaceFormat*)handle)->swapBehavior();
}
bool QSurfaceFormat_hasAlpha(QSurfaceFormatH handle)
{
return (bool) ((QSurfaceFormat*)handle)->hasAlpha();
}
void QSurfaceFormat_setProfile(QSurfaceFormatH handle, QSurfaceFormat::OpenGLContextProfile profile)
{
((QSurfaceFormat*)handle)->setProfile((QSurfaceFormat::OpenGLContextProfile) profile);
}
QSurfaceFormat::OpenGLContextProfile QSurfaceFormat_profile(QSurfaceFormatH handle)
{
return (QSurfaceFormat::OpenGLContextProfile) ((QSurfaceFormat*)handle)->profile();
}
void QSurfaceFormat_setRenderableType(QSurfaceFormatH handle, QSurfaceFormat::RenderableType type)
{
((QSurfaceFormat*)handle)->setRenderableType((QSurfaceFormat::RenderableType) type);
}
QSurfaceFormat::RenderableType QSurfaceFormat_renderableType(QSurfaceFormatH handle)
{
return (QSurfaceFormat::RenderableType) ((QSurfaceFormat*)handle)->renderableType();
}
void QSurfaceFormat_setMajorVersion(QSurfaceFormatH handle, int majorVersion)
{
((QSurfaceFormat*)handle)->setMajorVersion(majorVersion);
}
int QSurfaceFormat_majorVersion(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->majorVersion();
}
void QSurfaceFormat_setMinorVersion(QSurfaceFormatH handle, int minorVersion)
{
((QSurfaceFormat*)handle)->setMinorVersion(minorVersion);
}
int QSurfaceFormat_minorVersion(QSurfaceFormatH handle)
{
return (int) ((QSurfaceFormat*)handle)->minorVersion();
}
bool QSurfaceFormat_stereo(QSurfaceFormatH handle)
{
return (bool) ((QSurfaceFormat*)handle)->stereo();
}
void QSurfaceFormat_setStereo(QSurfaceFormatH handle, bool enable)
{
((QSurfaceFormat*)handle)->setStereo(enable);
}
void QSurfaceFormat_setOptions(QSurfaceFormatH handle, QSurfaceFormat::FormatOptions options)
{
((QSurfaceFormat*)handle)->setOptions((QSurfaceFormat::FormatOptions) options);
}
void QSurfaceFormat_setOption(QSurfaceFormatH handle, QSurfaceFormat::FormatOption option, bool on)
{
((QSurfaceFormat*)handle)->setOption((QSurfaceFormat::FormatOption) option, on);
}
bool QSurfaceFormat_testOption(QSurfaceFormatH handle, QSurfaceFormat::FormatOption option)
{
return (bool) ((QSurfaceFormat*)handle)->testOption((QSurfaceFormat::FormatOption) option);
}
QSurfaceFormat::FormatOptions QSurfaceFormat_options(QSurfaceFormatH handle)
{
return (QSurfaceFormat::FormatOptions) ((QSurfaceFormat*)handle)->options();
}
int QSurfaceFormat_swapInterval(QSurfaceFormatH handle)
{
return ((QSurfaceFormat*)handle)->swapInterval();
}
void QSurfaceFormat_setSwapInterval(QSurfaceFormatH handle, int interval)
{
((QSurfaceFormat*)handle)->setSwapInterval(interval);
}
void QSurfaceFormat_setDefaultFormat(QSurfaceFormatH format)
{
QSurfaceFormat::setDefaultFormat(*(const QSurfaceFormat*) format);
}
void QSurfaceFormat_defaultFormat(QSurfaceFormatH retval)
{
*(QSurfaceFormat*)retval = QSurfaceFormat::defaultFormat();
}

57
lcl/interfaces/qt5/cbindings/src/qsurfaceformat_c.h Normal file
View File

@ -0,0 +1,57 @@
//******************************************************************************
// Copyright (c) 2007 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QSURFACEFORMAT_C_H
#define QSURFACEFORMAT_C_H
#include <QtGui>
#include "pascalbind.h"
C_EXPORT QSurfaceFormatH QSurfaceFormat_Create();
C_EXPORT QSurfaceFormatH QSurfaceFormat_Create2(QSurfaceFormat::FormatOptions options);
C_EXPORT void QSurfaceFormat_Destroy(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setDepthBufferSize(QSurfaceFormatH handle,int size);
C_EXPORT int QSurfaceFormat_depthBufferSize(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setStencilBufferSize(QSurfaceFormatH handle, int size);
C_EXPORT int QSurfaceFormat_stencilBufferSize(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setRedBufferSize(QSurfaceFormatH handle, int size);
C_EXPORT int QSurfaceFormat_redBufferSize(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setGreenBufferSize(QSurfaceFormatH handle, int size);
C_EXPORT int QSurfaceFormat_greenBufferSize(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setBlueBufferSize(QSurfaceFormatH handle, int size);
C_EXPORT int QSurfaceFormat_blueBufferSize(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setAlphaBufferSize(QSurfaceFormatH handle, int size);
C_EXPORT int QSurfaceFormat_alphaBufferSize(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setSamples(QSurfaceFormatH handle, int numSamples);
C_EXPORT int QSurfaceFormat_samples(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setSwapBehavior(QSurfaceFormatH handle, QSurfaceFormat::SwapBehavior behavior);
C_EXPORT QSurfaceFormat::SwapBehavior QSurfaceFormat_swapBehavior(QSurfaceFormatH handle);
C_EXPORT bool QSurfaceFormat_hasAlpha(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setProfile(QSurfaceFormatH handle, QSurfaceFormat::OpenGLContextProfile profile);
C_EXPORT QSurfaceFormat::OpenGLContextProfile QSurfaceFormat_profile(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setRenderableType(QSurfaceFormatH handle, QSurfaceFormat::RenderableType type);
C_EXPORT QSurfaceFormat::RenderableType QSurfaceFormat_renderableType(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setMajorVersion(QSurfaceFormatH handle, int majorVersion);
C_EXPORT int QSurfaceFormat_majorVersion(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setMinorVersion(QSurfaceFormatH handle, int minorVersion);
C_EXPORT int QSurfaceFormat_minorVersion(QSurfaceFormatH handle);
C_EXPORT bool QSurfaceFormat_stereo(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setStereo(QSurfaceFormatH handle, bool enable);
C_EXPORT void QSurfaceFormat_setOptions(QSurfaceFormatH handle, QSurfaceFormat::FormatOptions options);
C_EXPORT void QSurfaceFormat_setOption(QSurfaceFormatH handle, QSurfaceFormat::FormatOption option, bool on = true);
C_EXPORT bool QSurfaceFormat_testOption(QSurfaceFormatH handle, QSurfaceFormat::FormatOption option);
C_EXPORT QSurfaceFormat::FormatOptions QSurfaceFormat_options(QSurfaceFormatH handle);
C_EXPORT int QSurfaceFormat_swapInterval(QSurfaceFormatH handle);
C_EXPORT void QSurfaceFormat_setSwapInterval(QSurfaceFormatH handle, int interval);
C_EXPORT void QSurfaceFormat_setDefaultFormat(QSurfaceFormatH format);
C_EXPORT void QSurfaceFormat_defaultFormat(QSurfaceFormatH retval);
#endif

548
lcl/interfaces/qt5/cbindings/src/qwindow_c.cpp Normal file
View File

@ -0,0 +1,548 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qwindow_c.h"
QWindowH QWindow_Create(QWindowH parent)
{
return (QWindowH) new QWindow((QWindow*)parent);
}
QWindowH QWindow_Create2(QScreenH screen)
{
return (QWindowH) new QWindow((QScreen*)screen);
}
void QWindow_Destroy(QWindowH handle)
{
delete (QWindow *)handle;
}
void QWindow_setSurfaceType(QWindowH handle, QSurface::SurfaceType surfaceType)
{
((QWindow *)handle)->setSurfaceType((QSurface::SurfaceType) surfaceType);
}
QSurface::SurfaceType QWindow_surfaceType(QWindowH handle)
{
return (QSurface::SurfaceType) ((QWindow *)handle)->surfaceType();
}
bool QWindow_isVisible(QWindowH handle)
{
return (bool) ((QWindow *)handle)->isVisible();
}
QWindow::Visibility QWindow_visibility(QWindowH handle)
{
return (QWindow::Visibility) ((QWindow *)handle)->visibility();
}
void QWindow_setVisibility(QWindowH handle, QWindow::Visibility v)
{
((QWindow *)handle)->setVisibility((QWindow::Visibility) v);
}
void QWindow_createPlatformResources(QWindowH handle) /* void create(); */
{
((QWindow *)handle)->create();
}
void QWindow_destroyPlatformResources(QWindowH handle) /* void destroy(); */
{
((QWindow *)handle)->destroy();
}
unsigned int QWindow_winId(QWindowH handle)
{
return (unsigned int) ((QWindow *)handle)->winId();
}
QWindowH QWindow_parent(QWindowH handle)
{
return (QWindowH) ((QWindow *)handle)->parent();
}
void QWindow_setParent(QWindowH handle, QWindowH parent)
{
((QWindow *)handle)->setParent((QWindow*)parent);
}
bool QWindow_isTopLevel(QWindowH handle)
{
return (bool) ((QWindow *)handle)->isTopLevel();
}
bool QWindow_isModal(QWindowH handle)
{
return (bool) ((QWindow *)handle)->isModal();
}
Qt::WindowModality QWindow_modality(QWindowH handle)
{
return (Qt::WindowModality) ((QWindow *)handle)->modality();
}
void QWindow_setModality(QWindowH handle, Qt::WindowModality windowModality)
{
((QWindow *)handle)->setModality((Qt::WindowModality)windowModality);
}
void QWindow_setFormat(QWindowH handle, const QSurfaceFormatH format)
{
((QWindow *)handle)->setFormat(*(const QSurfaceFormat*) format);
}
void QWindow_format(QWindowH handle, QSurfaceFormatH retval)
{
*(QSurfaceFormat*) retval = ((QWindow *)handle)->format();
}
void QWindow_requestedFormat(QWindowH handle, QSurfaceFormatH retval)
{
*(QSurfaceFormat*) retval = ((QWindow *)handle)->requestedFormat();
}
void QWindow_setFlags(QWindowH handle, unsigned int flags)
{
((QWindow *)handle)->setFlags((Qt::WindowFlags)flags);
}
unsigned int QWindow_flags(QWindowH handle)
{
return (unsigned int) ((QWindow *)handle)->flags();
}
Qt::WindowType QWindow_type(QWindowH handle)
{
return (Qt::WindowType) ((QWindow *)handle)->type();
}
void QWindow_title(QWindowH handle, PWideString retval)
{
QString t_retval;
t_retval = ((QWindow *)handle)->title();
copyQStringToPWideString(t_retval, retval);
}
void QWindow_setOpacity(QWindowH handle, qreal level)
{
((QWindow *)handle)->setOpacity(level);
}
qreal QWindow_opacity(QWindowH handle)
{
return (qreal) ((QWindow *)handle)->opacity();
}
void QWindow_setMask(QWindowH handle, const QRegionH AnonParam1)
{
((QWindow *)handle)->setMask(*(const QRegion*)AnonParam1);
}
void QWindow_mask(QWindowH handle, QRegionH retval)
{
*(QRegion *)retval = ((QWindow *)handle)->mask();
}
bool QWindow_isActiveWindow(QWindowH handle)
{
return (bool) ((QWindow *)handle)->isActive();
}
void QWindow_reportContentOrientationChange(QWindowH handle, Qt::ScreenOrientation orientation)
{
((QWindow *)handle)->reportContentOrientationChange((Qt::ScreenOrientation) orientation);
}
Qt::ScreenOrientation QWindow_contentOrientation(QWindowH handle)
{
return (Qt::ScreenOrientation) ((QWindow *)handle)->contentOrientation();
}
qreal QWindow_devicePixelRatio(QWindowH handle)
{
return (qreal) ((QWindow *)handle)->devicePixelRatio();
}
unsigned int QWindow_windowState(QWindowH handle)
{
return (unsigned int) ((QWindow *)handle)->windowState();
}
void QWindow_setWindowState(QWindowH handle, unsigned int state)
{
((QWindow *)handle)->setWindowState((Qt::WindowState)state);
}
void QWindow_setTransientParent(QWindowH handle, QWindowH parent)
{
((QWindow *)handle)->setTransientParent((QWindow*)parent);
}
QWindowH QWindow_transientParent(QWindowH handle)
{
return (QWindowH) ((QWindow *)handle)->transientParent();
}
bool QWindow_isAncestorOf(QWindowH handle, const QWindowH child, QWindow::AncestorMode mode)
{
return (bool) ((QWindow *)handle)->isAncestorOf((QWindow *)child, (QWindow::AncestorMode) mode);
}
bool QWindow_isExposed(QWindowH handle)
{
return (bool) ((QWindow *)handle)->isExposed();
}
int QWindow_minimumWidth(QWindowH handle)
{
return (int) ((QWindow *)handle)->minimumWidth();
}
int QWindow_minimumHeight(QWindowH handle)
{
return (int) ((QWindow *)handle)->minimumHeight();
}
int QWindow_maximumWidth(QWindowH handle)
{
return (int) ((QWindow *)handle)->maximumWidth();
}
int QWindow_maximumHeight(QWindowH handle)
{
return (int) ((QWindow *)handle)->maximumHeight();
}
void QWindow_minimumSize(QWindowH handle, PSize retval)
{
*(QSize *)retval = ((QWindow *)handle)->minimumSize();
}
void QWindow_maximumSize(QWindowH handle, PSize retval)
{
*(QSize *)retval = ((QWindow *)handle)->maximumSize();
}
void QWindow_baseSize(QWindowH handle, PSize retval)
{
*(QSize *)retval = ((QWindow *)handle)->baseSize();
}
void QWindow_sizeIncrement(QWindowH handle, PSize retval)
{
*(QSize *)retval = ((QWindow *)handle)->sizeIncrement();
}
void QWindow_setMinimumSize(QWindowH handle, const QSizeH AnonParam1)
{
((QWindow *)handle)->setMinimumSize(*(const QSize*)AnonParam1);
}
void QWindow_setMaximumSize(QWindowH handle, const QSizeH AnonParam1)
{
((QWindow *)handle)->setMaximumSize(*(const QSize*)AnonParam1);
}
void QWindow_setBaseSize(QWindowH handle, const QSizeH AnonParam1)
{
((QWindow *)handle)->setBaseSize(*(const QSize*)AnonParam1);
}
void QWindow_setSizeIncrement(QWindowH handle, const QSizeH AnonParam1)
{
((QWindow *)handle)->setSizeIncrement(*(const QSize*)AnonParam1);
}
void QWindow_setGeometry(QWindowH handle, int x, int y, int w, int h)
{
((QWindow *)handle)->setGeometry(x, y, w, h);
}
void QWindow_setGeometry2(QWindowH handle, PRect AnonParam1)
{
QRect t_AnonParam1;
copyPRectToQRect(AnonParam1, t_AnonParam1);
((QWindow *)handle)->setGeometry(t_AnonParam1);
}
void QWindow_geometry(QWindowH handle, PRect retval)
{
QRect t_retval;
t_retval = ((QWindow *)handle)->geometry();
copyQRectToPRect(t_retval, retval);
}
void QWindow_frameMargins(QWindowH handle, QMarginsH retval)
{
*(QMargins *)retval = ((QWindow *)handle)->frameMargins();
}
void QWindow_frameGeometry(QWindowH handle, PRect retval)
{
QRect t_retval;
t_retval = ((QWindow *)handle)->frameGeometry();
copyQRectToPRect(t_retval, retval);
}
void QWindow_framePosition(QWindowH handle, PQtPoint retval)
{
*(QPoint *)retval = ((QWindow *)handle)->framePosition();
}
void QWindow_setFramePosition(QWindowH handle, const QPointH AnonParam1)
{
((QWindow *)handle)->setFramePosition(*(const QPoint*)AnonParam1);
}
int QWindow_width(QWindowH handle)
{
return (int) ((QWindow *)handle)->width();
}
int QWindow_height(QWindowH handle)
{
return (int) ((QWindow *)handle)->height();
}
int QWindow_x(QWindowH handle)
{
return (int) ((QWindow *)handle)->x();
}
int QWindow_y(QWindowH handle)
{
return (int) ((QWindow *)handle)->y();
}
void QWindow_size(QWindowH handle, PSize retval)
{
*(QSize *)retval = ((QWindow *)handle)->size();
}
void QWindow_position(QWindowH handle, PQtPoint retval)
{
*(QPoint *)retval = ((QWindow *)handle)->position();
}
void QWindow_setPosition(QWindowH handle, const QPointH AnonParam1)
{
((QWindow *)handle)->setPosition(*(const QPoint*)AnonParam1);
}
void QWindow_setPosition2(QWindowH handle, int posx, int posy)
{
((QWindow *)handle)->setPosition(posx, posy);
}
void QWindow_resize(QWindowH handle, const QSizeH AnonParam1)
{
((QWindow *)handle)->resize(*(const QSize*)AnonParam1);
}
void QWindow_resize2(QWindowH handle, int w, int h)
{
((QWindow *)handle)->resize(w, h);
}
void QWindow_setFilePath(QWindowH handle, PWideString AnonParam1)
{
QString t_AnonParam1;
copyPWideStringToQString(AnonParam1, t_AnonParam1);
((QWindow *)handle)->setFilePath(t_AnonParam1);
}
void QWindow_filePath(QWindowH handle, PWideString retval)
{
QString t_retval;
t_retval = ((QWindow *)handle)->filePath();
copyQStringToPWideString(t_retval, retval);
}
void QWindow_setIcon(QWindowH handle, const QIconH icon)
{
((QWindow *)handle)->setIcon(*(const QIcon*)icon);
}
void QWindow_icon(QWindowH handle, QIconH retval)
{
*(QIcon *)retval = ((QWindow *)handle)->icon();
}
QScreenH QWindow_screen(QWindowH handle)
{
return (QScreenH) ((QWindow *)handle)->screen();
}
void QWindow_setScreen(QWindowH handle, QScreenH screen)
{
((QWindow *)handle)->setScreen((QScreen *) screen);
}
bool QWindow_setKeyboardGrabEnabled(QWindowH handle, bool grab)
{
((QWindow *)handle)->setKeyboardGrabEnabled(grab);
}
bool QWindow_setMouseGrabEnabled(QWindowH handle, bool grab)
{
((QWindow *)handle)->setMouseGrabEnabled(grab);
}
void QWindow_mapToGlobal(QWindowH handle, PQtPoint retval, const QPointH AnonParam1)
{
*(QPoint *)retval = ((QWindow *)handle)->mapToGlobal(*(const QPoint*)AnonParam1);
}
void QWindow_mapFromGlobal(QWindowH handle, PQtPoint retval, const QPointH AnonParam1)
{
*(QPoint *)retval = ((QWindow *)handle)->mapFromGlobal(*(const QPoint*)AnonParam1);
}
void QWindow_cursor(QWindowH handle, QCursorH retval)
{
*(QCursor *)retval = ((QWindow *)handle)->cursor();
}
void QWindow_setCursor(QWindowH handle, const QCursorH AnonParam1)
{
((QWindow *)handle)->setCursor(*(const QCursor*)AnonParam1);
}
void QWindow_unsetCursor(QWindowH handle)
{
((QWindow *)handle)->unsetCursor();
}
QObjectH QWindow_focusObject(QWindowH handle)
{
return (QObjectH) ((QWindow *)handle)->focusObject();
}
QWindowH QWindow_fromWinID(unsigned int id)
{
return (QWindowH) QWindow::fromWinId((WId) id);
}
void QWindow_requestActivate(QWindowH handle)
{
((QWindow *)handle)->requestActivate();
}
void QWindow_setVisible(QWindowH handle, bool visible)
{
((QWindow *)handle)->setVisible(visible);
}
void QWindow_show(QWindowH handle)
{
((QWindow *)handle)->show();
}
void QWindow_hide(QWindowH handle)
{
((QWindow *)handle)->hide();
}
void QWindow_showMinimized(QWindowH handle)
{
((QWindow *)handle)->showMinimized();
}
void QWindow_showMaximized(QWindowH handle)
{
((QWindow *)handle)->showMaximized();
}
void QWindow_showFullScreen(QWindowH handle)
{
((QWindow *)handle)->showFullScreen();
}
void QWindow_showNormal(QWindowH handle)
{
((QWindow *)handle)->showNormal();
}
bool QWindow_close(QWindowH handle)
{
return (bool) ((QWindow *)handle)->close();
}
void QWindow_raise(QWindowH handle)
{
((QWindow *)handle)->raise();
}
void QWindow_lower(QWindowH handle)
{
((QWindow *)handle)->lower();
}
void QWindow_setWindowTitle(QWindowH handle, PWideString AnonParam1)
{
QString t_AnonParam1;
copyPWideStringToQString(AnonParam1, t_AnonParam1);
((QWindow *)handle)->setTitle(t_AnonParam1);
}
void QWindow_setX(QWindowH handle, int argx)
{
((QWindow *)handle)->setX(argx);
}
void QWindow_setY(QWindowH handle, int argy)
{
((QWindow *)handle)->setY(argy);
}
void QWindow_setWidth(QWindowH handle, int argw)
{
((QWindow *)handle)->setWidth(argw);
}
void QWindow_setHeight(QWindowH handle, int argh)
{
((QWindow *)handle)->setHeight(argh);
}
void QWindow_setMinimumWidth(QWindowH handle, int w)
{
((QWindow *)handle)->setMinimumWidth(w);
}
void QWindow_setMinimumHeight(QWindowH handle, int h)
{
((QWindow *)handle)->setMinimumHeight(h);
}
void QWindow_setMaximumWidth(QWindowH handle, int w)
{
((QWindow *)handle)->setMaximumWidth(w);
}
void QWindow_setMaximumHeight(QWindowH handle, int h)
{
((QWindow *)handle)->setMaximumHeight(h);
}
void QWindow_alert(QWindowH handle, int msec)
{
((QWindow *)handle)->alert(msec);
}
void QWindow_requestUpdate(QWindowH handle)
{
((QWindow *)handle)->requestUpdate();
}

123
lcl/interfaces/qt5/cbindings/src/qwindow_c.h Normal file
View File

@ -0,0 +1,123 @@
//******************************************************************************
// Copyright (c) 2007 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QWINDOW_C_H
#define QWINDOW_C_H
#include <QtGui>
#include "pascalbind.h"
C_EXPORT QWindowH QWindow_Create(QWindowH parent);
C_EXPORT QWindowH QWindow_Create2(QScreenH screen = Q_NULLPTR);
C_EXPORT void QWindow_Destroy(QWindowH handle);
C_EXPORT void QWindow_setSurfaceType(QWindowH handle, QSurface::SurfaceType surfaceType);
C_EXPORT QSurface::SurfaceType QWindow_surfaceType(QWindowH handle);
C_EXPORT bool QWindow_isVisible(QWindowH handle);
C_EXPORT QWindow::Visibility QWindow_visibility(QWindowH handle);
C_EXPORT void QWindow_setVisibility(QWindowH handle, QWindow::Visibility v);
C_EXPORT void QWindow_createPlatformResources(QWindowH handle); /* void create(); */
C_EXPORT void QWindow_destroyPlatformResources(QWindowH handle); /* void destroy(); */
C_EXPORT unsigned int QWindow_winId(QWindowH handle);
C_EXPORT QWindowH QWindow_parent(QWindowH handle);
C_EXPORT void QWindow_setParent(QWindowH handle, QWindowH parent);
C_EXPORT bool QWindow_isTopLevel(QWindowH handle);
C_EXPORT bool QWindow_isModal(QWindowH handle);
C_EXPORT Qt::WindowModality QWindow_modality(QWindowH handle);
C_EXPORT void QWindow_setModality(QWindowH handle, Qt::WindowModality windowModality);
C_EXPORT void QWindow_setFormat(QWindowH handle, const QSurfaceFormatH format);
C_EXPORT void QWindow_format(QWindowH handle, QSurfaceFormatH retval);
C_EXPORT void QWindow_requestedFormat(QWindowH handle, QSurfaceFormatH retval);
C_EXPORT void QWindow_setFlags(QWindowH handle, unsigned int flags);
C_EXPORT unsigned int QWindow_flags(QWindowH handle);
C_EXPORT Qt::WindowType QWindow_type(QWindowH handle);
C_EXPORT void QWindow_title(QWindowH handle, PWideString retval);
C_EXPORT void QWindow_setOpacity(QWindowH handle, qreal level);
C_EXPORT qreal QWindow_opacity(QWindowH handle);
C_EXPORT void QWindow_setMask(QWindowH handle, const QRegionH AnonParam1);
C_EXPORT void QWindow_mask(QWindowH handle, QRegionH retval);
C_EXPORT bool QWindow_isActive(QWindowH handle);
C_EXPORT void QWindow_reportContentOrientationChange(QWindowH handle, Qt::ScreenOrientation orientation);
C_EXPORT Qt::ScreenOrientation QWindow_contentOrientation(QWindowH handle);
C_EXPORT qreal QWindow_devicePixelRatio(QWindowH handle);
C_EXPORT unsigned int QWindow_windowState(QWindowH handle);
C_EXPORT void QWindow_setWindowState(QWindowH handle, unsigned int state);
C_EXPORT void QWindow_setTransientParent(QWindowH handle, QWindowH parent);
C_EXPORT QWindowH QWindow_transientParent(QWindowH handle);
C_EXPORT bool QWindow_isAncestorOf(QWindowH handle, const QWindowH child, QWindow::AncestorMode mode = QWindow::AncestorMode::IncludeTransients);
C_EXPORT bool QWindow_isExposed(QWindowH handle);
C_EXPORT int QWindow_minimumWidth(QWindowH handle);
C_EXPORT int QWindow_minimumHeight(QWindowH handle);
C_EXPORT int QWindow_maximumWidth(QWindowH handle);
C_EXPORT int QWindow_maximumHeight(QWindowH handle);
C_EXPORT void QWindow_minimumSize(QWindowH handle, PSize retval);
C_EXPORT void QWindow_maximumSize(QWindowH handle, PSize retval);
C_EXPORT void QWindow_baseSize(QWindowH handle, PSize retval);
C_EXPORT void QWindow_sizeIncrement(QWindowH handle, PSize retval);
C_EXPORT void QWindow_setMinimumSize(QWindowH handle, const QSizeH AnonParam1);
C_EXPORT void QWindow_setMaximumSize(QWindowH handle, const QSizeH AnonParam1);
C_EXPORT void QWindow_setBaseSize(QWindowH handle, const QSizeH AnonParam1);
C_EXPORT void QWindow_setSizeIncrement(QWindowH handle, const QSizeH AnonParam1);
C_EXPORT void QWindow_setGeometry(QWindowH handle, int x, int y, int w, int h);
C_EXPORT void QWindow_setGeometry2(QWindowH handle, PRect AnonParam1);
C_EXPORT void QWindow_geometry(QWindowH handle, PRect retval);
C_EXPORT void QWindow_frameMargins(QWindowH handle, QMarginsH retval);
C_EXPORT void QWindow_frameGeometry(QWindowH handle, PRect retval);
C_EXPORT void QWindow_framePosition(QWindowH handle, PQtPoint retval);
C_EXPORT void QWindow_setFramePosition(QWindowH handle, const QPointH AnonParam1);
C_EXPORT int QWindow_width(QWindowH handle);
C_EXPORT int QWindow_height(QWindowH handle);
C_EXPORT int QWindow_x(QWindowH handle);
C_EXPORT int QWindow_y(QWindowH handle);
C_EXPORT void QWindow_size(QWindowH handle, PSize retval);
C_EXPORT void QWindow_position(QWindowH handle, PQtPoint retval);
C_EXPORT void QWindow_setPosition(QWindowH handle, const QPointH AnonParam1);
C_EXPORT void QWindow_setPosition2(QWindowH handle, int posx, int posy);
C_EXPORT void QWindow_resize(QWindowH handle, const QSizeH AnonParam1);
C_EXPORT void QWindow_resize2(QWindowH handle, int w, int h);
C_EXPORT void QWindow_setFilePath(QWindowH handle, PWideString AnonParam1);
C_EXPORT void QWindow_filePath(QWindowH handle, PWideString retval);
C_EXPORT void QWindow_setIcon(QWindowH handle, const QIconH icon);
C_EXPORT void QWindow_icon(QWindowH handle, QIconH retval);
C_EXPORT QScreenH QWindow_screen(QWindowH handle);
C_EXPORT void QWindow_setScreen(QWindowH handle, QScreenH screen);
C_EXPORT bool QWindow_setKeyboardGrabEnabled(QWindowH handle, bool grab);
C_EXPORT bool QWindow_setMouseGrabEnabled(QWindowH handle, bool grab);
C_EXPORT void QWindow_mapToGlobal(QWindowH handle, PQtPoint retval, const QPointH AnonParam1);
C_EXPORT void QWindow_mapFromGlobal(QWindowH handle, PQtPoint retval, const QPointH AnonParam1);
C_EXPORT void QWindow_cursor(QWindowH handle, QCursorH retval);
C_EXPORT void QWindow_setCursor(QWindowH handle, const QCursorH AnonParam1);
C_EXPORT void QWindow_unsetCursor(QWindowH handle);
C_EXPORT QObjectH QWindow_focusObject(QWindowH handle);
C_EXPORT QWindowH QWindow_fromWinID(unsigned int id);
C_EXPORT void QWindow_requestActivate(QWindowH handle);
C_EXPORT void QWindow_setVisible(QWindowH handle, bool visible);
C_EXPORT void QWindow_show(QWindowH handle);
C_EXPORT void QWindow_hide(QWindowH handle);
C_EXPORT void QWindow_showMinimized(QWindowH handle);
C_EXPORT void QWindow_showMaximized(QWindowH handle);
C_EXPORT void QWindow_showFullScreen(QWindowH handle);
C_EXPORT void QWindow_showNormal(QWindowH handle);
C_EXPORT bool QWindow_close(QWindowH handle);
C_EXPORT void QWindow_raise(QWindowH handle);
C_EXPORT void QWindow_lower(QWindowH handle);
C_EXPORT void QWindow_setTitle(QWindowH handle, PWideString AnonParam1);
C_EXPORT void QWindow_setX(QWindowH handle, int argx);
C_EXPORT void QWindow_setY(QWindowH handle, int argy);
C_EXPORT void QWindow_setWidth(QWindowH handle, int argw);
C_EXPORT void QWindow_setHeight(QWindowH handle, int argh);
C_EXPORT void QWindow_setMinimumWidth(QWindowH handle, int w);
C_EXPORT void QWindow_setMinimumHeight(QWindowH handle, int h);
C_EXPORT void QWindow_setMaximumWidth(QWindowH handle, int w);
C_EXPORT void QWindow_setMaximumHeight(QWindowH handle, int h);
C_EXPORT void QWindow_alert(QWindowH handle, int msec);
C_EXPORT void QWindow_requestUpdate(QWindowH handle);
#endif

341
lcl/interfaces/qt5/cbindings/src/qwindow_hook.h Normal file
View File

@ -0,0 +1,341 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QWINDOW_HOOK_H
#define QWINDOW_HOOK_H
#include <qwindow.h>
#include "qobject_hook.h"
class QWindow_hook : public QObject_hook {
Q_OBJECT
public:
QWindow_hook(QObject *handle) : QObject_hook(handle) {
screenChanged_event.func = NULL;;
modalityChanged_event.func = NULL;;
windowStateChanged_event.func = NULL;;
windowTitleChanged_event.func = NULL;;
xChanged_event.func = NULL;;
yChanged_event.func = NULL;;
widthChanged_event.func = NULL;;
heightChanged_event.func = NULL;;
minimumWidthChanged_event.func = NULL;;
minimumHeightChanged_event.func = NULL;;
maximumWidthChanged_event.func = NULL;;
maximumHeightChanged_event.func = NULL;;
visibleChanged_event.func = NULL;;
visibilityChanged_event.func = NULL;;
activeChanged_event.func = NULL;;
contentOrientationChanged_event.func = NULL;;
focusObjectChanged_event.func = NULL;;
opacityChanged_event.func = NULL;;
}
void hook_screenChanged(QHook &hook) {
if ( !screenChanged_event.func )
connect(handle, SIGNAL(screenChanged(QScreen*)), this, SLOT(screenChanged_hook(QScreen*)));
screenChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(screenChanged(QScreen*)), this, SLOT(screenChanged_hook(QScreen*)));
}
void hook_modalityChanged(QHook &hook) {
if ( !modalityChanged_event.func )
connect(handle, SIGNAL(modalityChanged(Qt::WindowModality)), this, SLOT(modalityChanged_hook(Qt::WindowModality)));
modalityChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(modalityChanged(Qt::WindowModality)), this, SLOT(modalityChanged_hook(Qt::WindowModality)));
}
void hook_windowStateChanged(QHook &hook) {
if ( !windowStateChanged_event.func )
connect(handle, SIGNAL(windowStateChanged(Qt::WindowState)), this, SLOT(windowStateChanged_hook(Qt::WindowState)));
windowStateChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(windowStateChanged(Qt::WindowState)), this, SLOT(windowStateChanged_hook(Qt::WindowState)));
}
void hook_windowTitleChanged(QHook &hook) {
if ( !windowTitleChanged_event.func )
connect(handle, SIGNAL(windowTitleChanged(const QString&)), this, SLOT(windowTitleChanged_hook(const QString&)));
windowTitleChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(windowTitleChanged(const QString&)), this, SLOT(windowTitleChanged_hook(const QString&)));
}
void hook_xChanged(QHook &hook) {
if ( !xChanged_event.func )
connect(handle, SIGNAL(xChanged(int)), this, SLOT(xChanged_hook(int)));
xChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(xChanged(int)), this, SLOT(xChanged_hook(int)));
}
void hook_yChanged(QHook &hook) {
if ( !yChanged_event.func )
connect(handle, SIGNAL(yChanged(int)), this, SLOT(yChanged_hook(int)));
yChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(yChanged(int)), this, SLOT(yChanged_hook(int)));
}
void hook_widthChanged(QHook &hook) {
if ( !widthChanged_event.func )
connect(handle, SIGNAL(widthChanged(int)), this, SLOT(widthChanged_hook(int)));
widthChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(widthChanged(int)), this, SLOT(widthChanged_hook(int)));
}
void hook_heightChanged(QHook &hook) {
if ( !heightChanged_event.func )
connect(handle, SIGNAL(heightChanged(int)), this, SLOT(heightChanged_hook(int)));
heightChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(heightChanged(int)), this, SLOT(heightChanged_hook(int)));
}
void hook_minimumWidthChanged(QHook &hook) {
if ( !minimumWidthChanged_event.func )
connect(handle, SIGNAL(minimumWidthChanged(int)), this, SLOT(minimumWidthChanged_hook(int)));
minimumWidthChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(minimumWidthChanged(int)), this, SLOT(minimumWidthChanged_hook(int)));
}
void hook_minimumHeightChanged(QHook &hook) {
if ( !minimumHeightChanged_event.func )
connect(handle, SIGNAL(minimumHeightChanged(int)), this, SLOT(minimumHeightChanged_hook(int)));
minimumHeightChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(minimumHeightChanged(int)), this, SLOT(minimumHeightChanged_hook(int)));
}
void hook_maximumWidthChanged(QHook &hook) {
if ( !maximumWidthChanged_event.func )
connect(handle, SIGNAL(maximumWidthChanged(int)), this, SLOT(maximumWidthChanged_hook(int)));
maximumWidthChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(maximumWidthChanged(int)), this, SLOT(maximumWidthChanged_hook(int)));
}
void hook_maximumHeightChanged(QHook &hook) {
if ( !maximumHeightChanged_event.func )
connect(handle, SIGNAL(maximumHeightChanged(int)), this, SLOT(maximumHeightChanged_hook(int)));
maximumHeightChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(maximumHeightChanged(int)), this, SLOT(maximumHeightChanged_hook(int)));
}
void hook_visibleChanged(QHook &hook) {
if ( !visibleChanged_event.func )
connect(handle, SIGNAL(visibleChanged(bool)), this, SLOT(visibleChanged_hook(bool)));
visibleChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(visibleChanged(bool)), this, SLOT(visibleChanged_hook(bool)));
}
void hook_visibilityChanged(QHook &hook) {
if ( !visibilityChanged_event.func )
connect(handle, SIGNAL(visibilityChanged(QWindow::Visibility)), this, SLOT(visibilityChanged_hook(QWindow::Visibility)));
visibilityChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(visibilityChanged(QWindow::Visibility)), this, SLOT(visibilityChanged_hook(QWindow::Visibility)));
}
void hook_activeChanged(QHook &hook) {
if ( !activeChanged_event.func )
connect(handle, SIGNAL(activeChanged()), this, SLOT(activeChanged_hook()));
activeChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(activeChanged()), this, SLOT(activeChanged_hook()));
}
void hook_contentOrientationChanged(QHook &hook) {
if ( !contentOrientationChanged_event.func )
connect(handle, SIGNAL(contentOrientationChanged(Qt::ScreenOrientation)), this, SLOT(contentOrientationChanged_hook(Qt::ScreenOrientation)));
contentOrientationChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(contentOrientationChanged(Qt::ScreenOrientation)), this, SLOT(contentOrientationChanged_hook(Qt::ScreenOrientation)));
}
void hook_focusObjectChanged(QHook &hook) {
if ( !focusObjectChanged_event.func )
connect(handle, SIGNAL(focusObjectChanged(QObject*)), this, SLOT(focusObjectChanged_hook(QObject*)));
focusObjectChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(focusObjectChanged(QObject*)), this, SLOT(focusObjectChanged_hook(QObject*)));
}
void hook_opacityChanged(QHook &hook) {
if ( !opacityChanged_event.func )
connect(handle, SIGNAL(opacityChanged(qreal)), this, SLOT(opacityChanged_hook(qreal)));
opacityChanged_event = hook;
if ( !hook.func )
disconnect(handle, SIGNAL(opacityChanged(qreal)), this, SLOT(opacityChanged_hook(qreal)));
}
private slots:
void screenChanged_hook(QScreen* screen) {
if ( screenChanged_event.func ) {
typedef void (*func_type)(void *data, QScreenH screen);
(*(func_type)screenChanged_event.func)(screenChanged_event.data, (QScreenH)screen);
}
}
void modalityChanged_hook(Qt::WindowModality modality) {
if ( modalityChanged_event.func ) {
typedef void (*func_type)(void *data, Qt::WindowModality modality);
(*(func_type)modalityChanged_event.func)(modalityChanged_event.data, modality);
}
}
void windowStateChanged_hook(Qt::WindowState windowState) {
if ( windowStateChanged_event.func ) {
typedef void (*func_type)(void *data, Qt::WindowState windowState);
(*(func_type)windowStateChanged_event.func)(windowStateChanged_event.data, windowState);
}
}
void windowTitleChanged_hook(const QString& title) {
if ( windowTitleChanged_event.func ) {
typedef void (*func_type)(void *data, PWideString title);
PWideString t_title;
initializePWideString(t_title);
copyQStringToPWideString(title, t_title);
(*(func_type)windowTitleChanged_event.func)(windowTitleChanged_event.data, t_title);
finalizePWideString(t_title);
}
}
void xChanged_hook(int arg) {
if ( xChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)xChanged_event.func)(xChanged_event.data, arg);
}
}
void yChanged_hook(int arg) {
if ( yChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)yChanged_event.func)(yChanged_event.data, arg);
}
}
void widthChanged_hook(int arg) {
if ( widthChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)widthChanged_event.func)(widthChanged_event.data, arg);
}
}
void heightChanged_hook(int arg) {
if ( heightChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)heightChanged_event.func)(heightChanged_event.data, arg);
}
}
void minimumWidthChanged_hook(int arg) {
if ( minimumWidthChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)minimumWidthChanged_event.func)(minimumWidthChanged_event.data, arg);
}
}
void minimumHeightChanged_hook(int arg) {
if ( minimumHeightChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)minimumHeightChanged_event.func)(minimumHeightChanged_event.data, arg);
}
}
void maximumWidthChanged_hook(int arg) {
if ( maximumWidthChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)maximumWidthChanged_event.func)(maximumWidthChanged_event.data, arg);
}
}
void maximumHeightChanged_hook(int arg) {
if ( maximumHeightChanged_event.func ) {
typedef void (*func_type)(void *data, int arg);
(*(func_type)maximumHeightChanged_event.func)(maximumHeightChanged_event.data, arg);
}
}
void visibleChanged_hook(bool arg) {
if ( visibleChanged_event.func ) {
typedef void (*func_type)(void *data, bool arg);
(*(func_type)visibleChanged_event.func)(visibleChanged_event.data, arg);
}
}
void visibilityChanged_hook(QWindow::Visibility visibility) {
if ( visibilityChanged_event.func ) {
typedef void (*func_type)(void *data, QWindow::Visibility visibility);
(*(func_type)visibilityChanged_event.func)(visibilityChanged_event.data, visibility);
}
}
void activeChanged_hook() {
if ( activeChanged_event.func ) {
typedef void (*func_type)(void *data);
(*(func_type)activeChanged_event.func)(activeChanged_event.data);
}
}
void contentOrientationChanged_hook(Qt::ScreenOrientation orientation) {
if ( contentOrientationChanged_event.func ) {
typedef void (*func_type)(void *data, Qt::ScreenOrientation orientation);
(*(func_type)contentOrientationChanged_event.func)(contentOrientationChanged_event.data, orientation);
}
}
void focusObjectChanged_hook(QObject* object) {
if ( focusObjectChanged_event.func ) {
typedef void (*func_type)(void *data, QObjectH object);
(*(func_type)focusObjectChanged_event.func)(focusObjectChanged_event.data, (QObjectH)object);
}
}
void opacityChanged_hook(qreal opacity) {
if ( opacityChanged_event.func ) {
typedef void (*func_type)(void *data, qreal opacity);
(*(func_type)opacityChanged_event.func)(opacityChanged_event.data, opacity);
}
}
private:
QHook screenChanged_event;
QHook modalityChanged_event;
QHook windowStateChanged_event;
QHook windowTitleChanged_event;
QHook xChanged_event;
QHook yChanged_event;
QHook widthChanged_event;
QHook heightChanged_event;
QHook minimumWidthChanged_event;
QHook minimumHeightChanged_event;
QHook maximumWidthChanged_event;
QHook maximumHeightChanged_event;
QHook visibleChanged_event;
QHook visibilityChanged_event;
QHook activeChanged_event;
QHook contentOrientationChanged_event;
QHook focusObjectChanged_event;
QHook opacityChanged_event;
};
#endif

112
lcl/interfaces/qt5/cbindings/src/qwindow_hook_c.cpp Normal file
View File

@ -0,0 +1,112 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#include "qwindow_hook_c.h"
QWindow_hookH QWindow_hook_Create(QObjectH handle)
{
return (QWindow_hookH) new QWindow_hook((QObject*)handle);
}
void QWindow_hook_Destroy(QWindow_hookH handle)
{
delete (QWindow_hook *)handle;
}
void QWindow_hook_hook_screenChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_screenChanged(hook);
}
void QWindow_hook_hook_modalityChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_modalityChanged(hook);
}
void QWindow_hook_hook_windowStateChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_windowStateChanged(hook);
}
void QWindow_hook_hook_windowTitleChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_windowTitleChanged(hook);
}
void QWindow_hook_hook_xChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_xChanged(hook);
}
void QWindow_hook_hook_yChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_yChanged(hook);
}
void QWindow_hook_hook_widthChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_widthChanged(hook);
}
void QWindow_hook_hook_heightChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_heightChanged(hook);
}
void QWindow_hook_hook_minimumWidthChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_minimumWidthChanged(hook);
}
void QWindow_hook_hook_minimumHeightChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_minimumHeightChanged(hook);
}
void QWindow_hook_hook_maximumWidthChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_maximumWidthChanged(hook);
}
void QWindow_hook_hook_maximumHeightChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_maximumHeightChanged(hook);
}
void QWindow_hook_hook_visibleChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_visibleChanged(hook);
}
void QWindow_hook_hook_visibilityChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_visibilityChanged(hook);
}
void QWindow_hook_hook_activeChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_activeChanged(hook);
}
void QWindow_hook_hook_contentOrientationChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_contentOrientationChanged(hook);
}
void QWindow_hook_hook_focusObjectChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_focusObjectChanged(hook);
}
void QWindow_hook_hook_opacityChanged(QWindow_hookH handle, QHookH hook)
{
((QWindow_hook *)handle)->hook_opacityChanged(hook);
}

38
lcl/interfaces/qt5/cbindings/src/qwindow_hook_c.h Normal file
View File

@ -0,0 +1,38 @@
//******************************************************************************
// Copyright (c) 2017 by Željan Rikalo
//
// See the included file COPYING.TXT for details about the copyright.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//******************************************************************************
#ifndef QWINDOW_HOOK_C_H
#define QWINDOW_HOOK_C_H
#include "qwindow_hook.h"
C_EXPORT QWindow_hookH QWindow_hook_Create(QObjectH handle);
C_EXPORT void QWindow_hook_Destroy(QWindow_hookH handle);
C_EXPORT void QWindow_hook_hook_screenChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_modalityChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_windowStateChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_windowTitleChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_xChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_yChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_widthChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_heightChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_minimumWidthChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_minimumHeightChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_maximumWidthChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_maximumHeightChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_visibleChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_visibilityChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_activeChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_contentOrientationChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_focusObjectChanged(QWindow_hookH handle, QHookH hook);
C_EXPORT void QWindow_hook_hook_opacityChanged(QWindow_hookH handle, QHookH hook);
#endif

320
lcl/interfaces/qt5/qt56.pas
View File

@ -498,6 +498,7 @@ QStyleOptionH = class(TObject) end;
QStyleOptionToolBoxH = class(QStyleOptionH) end;
QStyleOptionViewItemH = class(QStyleOptionH) end;
QSurfaceH = class(TObject) end;
QSurfaceFormatH = class(TObject) end;
QTableWidgetItemH = class(TObject) end;
QTableWidgetSelectionRangeH = class(TObject) end;
QTextBlockH = class(TObject) end;
@ -556,6 +557,8 @@ QClipboard_hookH = class(QObject_hookH) end;
QDrag_hookH = class(QObject_hookH) end;
QGuiApplication_hookH = class(QCoreApplication_hookH) end;
QApplication_hookH = class(QGuiApplication_hookH) end;
QScreen_hookH = class(QObject_hookH) end;
QWindow_hookH = class(QObject_hookH) end;
QWidget_hookH = class(QObject_hookH) end;
QLayout_hookH = class(QObject_hookH) end;
QStackedLayout_hookH = class(QLayout_hookH) end;
@ -3204,6 +3207,21 @@ procedure QStringList_takeLast(handle: QStringListH; retval: PWideString); cdecl
procedure QStringList_move(handle: QStringListH; from: Integer; _to: Integer); cdecl; external Qt5PasLib name 'QStringList_move';
procedure QStringList_swap(handle: QStringListH; i: Integer; j: Integer); cdecl; external Qt5PasLib name 'QStringList_swap';
function QMargins_Create(): QMarginsH; cdecl; external Qt5PasLib name 'QMargins_Create';
function QMargins_Create(left: integer; top: integer; right: integer; bottom: integer): QMarginsH; cdecl; external Qt5PasLib name 'QMargins_Create2';
procedure QMargins_Destroy(handle: QMarginsH); cdecl; external Qt5PasLib name 'QMargins_Destroy';
function QMargins_isNull(handle: QMarginsH): boolean; cdecl; external Qt5PasLib name 'QMargins_isNull';
function QMargins_left(handle: QMarginsH): integer; cdecl; external Qt5PasLib name 'QMargins_left';
function QMargins_top(handle: QMarginsH): integer; cdecl; external Qt5PasLib name 'QMargins_top';
function QMargins_right(handle: QMarginsH): integer; cdecl; external Qt5PasLib name 'QMargins_right';
function QMargins_bottom(handle: QMarginsH): integer; cdecl; external Qt5PasLib name 'QMargins_bottom';
procedure QMargins_setLeft(handle: QMarginsH; left: integer); cdecl; external Qt5PasLib name 'QMargins_setLeft';
procedure QMargins_setTop(handle: QMarginsH; top: integer); cdecl; external Qt5PasLib name 'QMargins_setTop';
procedure QMargins_setRight(handle: QMarginsH; right: integer); cdecl; external Qt5PasLib name 'QMargins_setRight';
procedure QMargins_setBottom(handle: QMarginsH; bottom: integer); cdecl; external Qt5PasLib name 'QMargins_setBottom';
function QRect_Create(): QRectH; cdecl; external Qt5PasLib name 'QRect_Create';
procedure QRect_Destroy(handle: QRectH); cdecl; external Qt5PasLib name 'QRect_Destroy';
function QRect_Create(topleft: PQtPoint; bottomright: PQtPoint): QRectH; cdecl; external Qt5PasLib name 'QRect_Create2';
@ -5662,6 +5680,231 @@ procedure QSizePolicy_setHorizontalStretch(handle: QSizePolicyH; stretchFactor:
procedure QSizePolicy_setVerticalStretch(handle: QSizePolicyH; stretchFactor: Integer); cdecl; external Qt5PasLib name 'QSizePolicy_setVerticalStretch';
procedure QSizePolicy_transpose(handle: QSizePolicyH); cdecl; external Qt5PasLib name 'QSizePolicy_transpose';
function QBackingStore_Create(window: QWindowH): QBackingStoreH; cdecl; external Qt5PasLib name 'QBackingStore_Create';
procedure QBackingStore_Destroy(handle: QBackingStoreH); cdecl; external Qt5PasLib name 'QBackingStore_Destroy';
function QBackingStore_window(handle: QBackingStoreH): QWindowH; cdecl; external Qt5PasLib name 'QBackingStore_window';
function QBackingStore_paintDevice(handle: QBackingStoreH): QPaintDeviceH; cdecl; external Qt5PasLib name 'QBackingStore_paintDevice';
procedure QBackingStore_flush(handle: QBackingStoreH; region: QRegionH; window: QWindowH; offset: PQtPoint); cdecl; external Qt5PasLib name 'QBackingStore_flush';
procedure QBackingStore_resize(handle: QBackingStoreH; AnonParam1: PSize); cdecl; external Qt5PasLib name 'QBackingStore_resize';
procedure QBackingStore_size(handle: QBackingStoreH; retval: PSize); cdecl; external Qt5PasLib name 'QBackingStore_size';
function QBackingStore_scroll(handle: QBackingStoreH; area: QRegionH; dx: integer; dy: integer): boolean; cdecl; external Qt5PasLib name 'QBackingStore_scroll';
procedure QBackingStore_beginPaint(handle: QBackingStoreH; AnonParam1: QRegionH); cdecl; external Qt5PasLib name 'QBackingStore_beginPaint';
procedure QBackingStore_endPaint(handle: QBackingStoreH); cdecl; external Qt5PasLib name 'QBackingStore_endPaint';
procedure QBackingStore_setStaticContents(handle: QBackingStoreH; AnonParam1: QRegionH); cdecl; external Qt5PasLib name 'QBackingStore_setStaticContents';
procedure QBackingStore_staticContents(handle: QBackingStoreH; retval: QRegionH); cdecl; external Qt5PasLib name 'QBackingStore_staticContents';
function QBackingStore_hasStaticContents(handle: QBackingStoreH): boolean; cdecl; external Qt5PasLib name 'QBackingStore_hasStaticContents';
type
QSurfaceSurfaceClass = (QSurfaceSurfaceClassWindow, QSurfaceSurfaceClassOffscreen);
QSurfaceSurfaceType = (QSurfaceSurfaceTypeRasterSurface, QSurfaceSurfaceTypeOpenGLSurface, QSurfaceSurfaceTypeRasterGLSurface);
procedure QSurface_Destroy(handle: QSurfaceH); cdecl; external Qt5PasLib name 'QSurface_Destroy';
procedure QSurface_size(handle: QSurfaceH; retval: PSize); cdecl; external Qt5PasLib name 'QSurface_size';
function QSurface_supportsOpenGL(handle: QSurfaceH): boolean; cdecl; external Qt5PasLib name 'QSurface_supportsOpenGL';
function QSurface_surfaceClass(handle: QSurfaceH): QSurfaceSurfaceClass; cdecl; external Qt5PasLib name 'QSurface_surfaceClass';
function QSurface_surfaceType(handle: QSurfaceH): QSurfaceSurfaceType; cdecl; external Qt5PasLib name 'QSurface_surfaceType';
procedure QSurface_format(handle: QSurfaceH; retval: QSurfaceFormatH); cdecl; external Qt5PasLib name 'QSurface_format';
type
QSurfaceFormatFormatOptions = cardinal;
QSurfaceFormatFormatOption = cardinal;
const
QSurfaceFormatOptionStereoBuffers = $0001;
QSurfaceFormatOptionDebugContext = $0002;
QSurfaceFormatOptionDeprecatedFunctions = $0004;
QSurfaceFormatOptionResetNotification = $0008;
type
QSurfaceSwapBehavior = (QSurfaceSwapBehaviorDefaultSwapBehavior,
QSurfaceSwapBehaviorSingleBuffer, QSurfaceSwapBehaviorDoubleBuffer,
QSurfaceSwapBehaviorTripleBuffer);
QSurfaceFormatOpenGLContextProfile = (QSurfaceFormatOpenGLContextProfileNoProfile,
QSurfaceFormatOpenGLContextProfileCoreProfile,
QSurfaceFormatOpenGLContextProfileCompatibilityProfile);
QSurfaceFormatRenderableType = (QSurfaceFormatRenderableTypeDefaultRenderableType = $0,
QSurfaceFormatRenderableTypeOpenGL = $1, QSurfaceFormatRenderableTypeOpenGLES = $2,
QSurfaceFormatRenderableTypeOpenVG = $4);
function QSurfaceFormat_Create(): QSurfaceFormatH; cdecl; external Qt5PasLib name 'QSurfaceFormat_Create';
function QSurfaceFormat_Create(options: QSurfaceFormatFormatOptions):QSurfaceFormatH; cdecl; external Qt5PasLib name 'QSurfaceFormat_Create2';
procedure QSurfaceFormat_Destroy(handle: QSurfaceFormatH); cdecl; external Qt5PasLib name 'QSurfaceFormat_Destroy';
procedure QSurfaceFormat_setDepthBufferSize(handle: QSurfaceFormatH; asize: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setDepthBufferSize';
function QSurfaceFormat_depthBufferSize(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_depthBufferSize';
procedure QSurfaceFormat_setStencilBufferSize(handle: QSurfaceFormatH; asize: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setStencilBufferSize';
function QSurfaceFormat_stencilBufferSize(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_stencilBufferSize';
procedure QSurfaceFormat_setRedBufferSize(handle: QSurfaceFormatH; asize: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setRedBufferSize';
function QSurfaceFormat_redBufferSize(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_redBufferSize';
procedure QSurfaceFormat_setGreenBufferSize(handle: QSurfaceFormatH; asize: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setGreenBufferSize';
function QSurfaceFormat_greenBufferSize(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_greenBufferSize';
procedure QSurfaceFormat_setBlueBufferSize(handle: QSurfaceFormatH; asize: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setBlueBufferSize';
function QSurfaceFormat_blueBufferSize(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_blueBufferSize';
procedure QSurfaceFormat_setAlphaBufferSize(handle: QSurfaceFormatH; asize: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setAlphaBufferSize';
function QSurfaceFormat_alphaBufferSize(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_alphaBufferSize';
procedure QSurfaceFormat_setSamples(handle: QSurfaceFormatH; numSamples: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setSamples';
function QSurfaceFormat_samples(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_samples';
procedure QSurfaceFormat_setSwapBehavior(handle: QSurfaceFormatH; behavior: QSurfaceSwapBehavior); cdecl; external Qt5PasLib name 'QSurfaceFormat_setSwapBehavior';
function QSurfaceFormat_swapBehavior(handle: QSurfaceFormatH): QSurfaceSwapBehavior; cdecl; external Qt5PasLib name 'QSurfaceFormat_swapBehavior';
function QSurfaceFormat_hasAlpha(handle: QSurfaceFormatH): boolean; cdecl; external Qt5PasLib name 'QSurfaceFormat_hasAlpha';
procedure QSurfaceFormat_setProfile(handle: QSurfaceFormatH; profile: QSurfaceFormatOpenGLContextProfile); cdecl; external Qt5PasLib name 'QSurfaceFormat_setProfile';
function QSurfaceFormat_profile(handle: QSurfaceFormatH): QSurfaceFormatOpenGLContextProfile; cdecl; external Qt5PasLib name 'QSurfaceFormat_profile';
procedure QSurfaceFormat_setRenderableType(handle: QSurfaceFormatH; atype: QSurfaceFormatRenderableType); cdecl; external Qt5PasLib name 'QSurfaceFormat_setRenderableType';
function QSurfaceFormat_renderableType(handle: QSurfaceFormatH): QSurfaceFormatRenderableType; cdecl; external Qt5PasLib name 'QSurfaceFormat_renderableType';
procedure QSurfaceFormat_setMajorVersion(handle: QSurfaceFormatH; majorVersion: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setMajorVersion';
function QSurfaceFormat_majorVersion(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_majorVersion';
procedure QSurfaceFormat_setMinorVersion(handle: QSurfaceFormatH; minorVersion: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setMinorVersion';
function QSurfaceFormat_minorVersion(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_minorVersion';
function QSurfaceFormat_stereo(handle: QSurfaceFormatH): boolean; cdecl; external Qt5PasLib name 'QSurfaceFormat_stereo';
procedure QSurfaceFormat_setStereo(handle: QSurfaceFormatH; enable: boolean); cdecl; external Qt5PasLib name 'QSurfaceFormat_setStereo';
procedure QSurfaceFormat_setOptions(handle: QSurfaceFormatH; options: QSurfaceFormatFormatOptions); cdecl; external Qt5PasLib name 'QSurfaceFormat_setOptions';
procedure QSurfaceFormat_setOption(handle: QSurfaceFormatH; option: QSurfaceFormatFormatOption; AOn: boolean = True); cdecl; external Qt5PasLib name 'QSurfaceFormat_setOption';
function QSurfaceFormat_testOption(handle: QSurfaceFormatH; option: QSurfaceFormatFormatOption): boolean; cdecl; external Qt5PasLib name 'QSurfaceFormat_testOption';
function QSurfaceFormat_options(handle: QSurfaceFormatH): QSurfaceFormatFormatOptions; cdecl; external Qt5PasLib name 'QSurfaceFormat_options';
function QSurfaceFormat_swapInterval(handle: QSurfaceFormatH): integer; cdecl; external Qt5PasLib name 'QSurfaceFormat_swapInterval';
procedure QSurfaceFormat_setSwapInterval(handle: QSurfaceFormatH; interval: integer); cdecl; external Qt5PasLib name 'QSurfaceFormat_setSwapInterval';
procedure QSurfaceFormat_setDefaultFormat(format: QSurfaceFormatH); cdecl; external Qt5PasLib name 'QSurfaceFormat_setDefaultFormat';
procedure QSurfaceFormat_defaultFormat(retval: QSurfaceFormatH); cdecl; external Qt5PasLib name 'QSurfaceFormat_defaultFormat';
type
QWindowVisibility = (QWindowVisibilityHidden,
QWindowVisibilityAutomaticVisibility, QWindowVisibilityWindowed, QWindowVisibilityMinimized,
QWindowVisibilityMaximized, QWindowVisibilityFullScreen);
QWindowAncestorMode = (QWindowAncestorModeExcludeTransients,
QWindowAncestorModeIncludeTransients);
function QWindow_Create(parent: QWindowH = nil): QWindowH; cdecl; external Qt5PasLib name 'QWindow_Create';
function QWindow_Create(screen: QScreenH = nil): QWindowH; cdecl; external Qt5PasLib name 'QWindow_Create2';
procedure QWindow_Destroy(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_Destroy';
procedure QWindow_setSurfaceType(handle: QWindowH; surfaceType: QSurfaceSurfaceType); cdecl; external Qt5PasLib name 'QWindow_setSurfaceType';
function QWindow_surfaceType(handle: QWindowH): QSurfaceSurfaceType; cdecl; external Qt5PasLib name 'QWindow_surfaceType';
function QWindow_isVisible(handle: QWindowH): boolean; cdecl; external Qt5PasLib name 'QWindow_isVisible';
function QWindow_visibility(handle: QWindowH): QWindowVisibility; cdecl; external Qt5PasLib name 'QWindow_visibility';
procedure QWindow_setVisibility(handle: QWindowH; v: QWindowVisibility); cdecl; external Qt5PasLib name 'QWindow_setVisibility';
procedure QWindow_createPlatformResources(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_createPlatformResources';
procedure QWindow_destroyPlatformResources(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_destroyPlatformResources';
function QWindow_winId(handle: QWindowH): LongWord; cdecl; external Qt5PasLib name 'QWindow_winId';
function QWindow_parent(handle: QWindowH): QWindowH; cdecl; external Qt5PasLib name 'QWindow_parent';
procedure QWindow_setParent(handle: QWindowH; parent: QWindowH); cdecl; external Qt5PasLib name 'QWindow_setParent';
function QWindow_isTopLevel(handle: QWindowH): boolean; cdecl; external Qt5PasLib name 'QWindow_isTopLevel';
function QWindow_isModal(handle: QWindowH): boolean; cdecl; external Qt5PasLib name 'QWindow_isModal';
function QWindow_modality(handle: QWindowH): QtWindowModality; cdecl; external Qt5PasLib name 'QWindow_modality';
procedure QWindow_setModality(handle: QWindowH; windowModality: QtWindowModality); cdecl; external Qt5PasLib name 'QWindow_setModality';
procedure QWindow_setFormat(handle: QWindowH; format: QSurfaceFormatH); cdecl; external Qt5PasLib name 'QWindow_setFormat';
procedure QWindow_format(handle: QWindowH; retval: QSurfaceFormatH); cdecl; external Qt5PasLib name 'QWindow_format';
procedure QWindow_requestedFormat(handle: QWindowH; retval: QSurfaceFormatH); cdecl; external Qt5PasLib name 'QWindow_requestedFormat';
procedure QWindow_setFlags(handle: QWindowH; flags: QtWindowFlags); cdecl; external Qt5PasLib name 'QWindow_setFlags';
function QWindow_flags(handle: QWindowH): LongWord; cdecl; external Qt5PasLib name 'QWindow_flags';
function QWindow_type(handle: QWindowH): QtWindowType; cdecl; external Qt5PasLib name 'QWindow_type';
procedure QWindow_title(handle: QWindowH; retval: PWideString); cdecl; external Qt5PasLib name 'QWindow_title';
procedure QWindow_setOpacity(handle: QWindowH; level: qreal); cdecl; external Qt5PasLib name 'QWindow_setOpacity';
function QWindow_opacity(handle: QWindowH): qreal; cdecl; external Qt5PasLib name 'QWindow_opacity';
procedure QWindow_setMask(handle: QWindowH; AnonParam1: QRegionH); cdecl; external Qt5PasLib name 'QWindow_setMask';
procedure QWindow_mask(handle: QWindowH; retval: QRegionH); cdecl; external Qt5PasLib name 'QWindow_mask';
function QWindow_isActive(handle: QWindowH): boolean; cdecl; external Qt5PasLib name 'QWindow_isActive';
procedure QWindow_reportContentOrientationChange(handle: QWindowH; orientation: QtScreenOrientation); cdecl; external Qt5PasLib name 'QWindow_reportContentOrientationChange';
function QWindow_contentOrientation(handle: QWindowH): QtScreenOrientation; cdecl; external Qt5PasLib name 'QWindow_contentOrientation';
function QWindow_devicePixelRatio(handle: QWindowH): qreal; cdecl; external Qt5PasLib name 'QWindow_devicePixelRatio';
function QWindow_windowState(handle: QWindowH): QtWindowState; cdecl; external Qt5PasLib name 'QWindow_windowState';
procedure QWindow_setWindowState(handle: QWindowH; state: QtWindowState); cdecl; external Qt5PasLib name 'QWindow_setWindowState';
procedure QWindow_setTransientParent(handle: QWindowH; parent: QWindowH); cdecl; external Qt5PasLib name 'QWindow_setTransientParent';
function QWindow_transientParent(handle: QWindowH): QWindowH; cdecl; external Qt5PasLib name 'QWindow_transientParent';
function QWindow_isAncestorOf(handle: QWindowH; child: QWindowH; mode: QWindowAncestorMode = QWindowAncestorModeIncludeTransients): boolean; cdecl; external Qt5PasLib name 'QWindow_isAncestorOf';
function QWindow_isExposed(handle: QWindowH): boolean; cdecl; external Qt5PasLib name 'QWindow_isExposed';
function QWindow_minimumWidth(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_minimumWidth';
function QWindow_minimumHeight(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_minimumHeight';
function QWindow_maximumWidth(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_maximumWidth';
function QWindow_maximumHeight(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_maximumHeight';
procedure QWindow_minimumSize(handle: QWindowH; retval: PSize); cdecl; external Qt5PasLib name 'QWindow_minimumSize';
procedure QWindow_maximumSize(handle: QWindowH; retval: PSize); cdecl; external Qt5PasLib name 'QWindow_maximumSize';
procedure QWindow_baseSize(handle: QWindowH; retval: PSize); cdecl; external Qt5PasLib name 'QWindow_baseSize';
procedure QWindow_sizeIncrement(handle: QWindowH; retval: PSize); cdecl; external Qt5PasLib name 'QWindow_sizeIncrement';
procedure QWindow_setMinimumSize(handle: QWindowH; AnonParam1: QSizeH); cdecl; external Qt5PasLib name 'QWindow_setMinimumSize';
procedure QWindow_setMaximumSize(handle: QWindowH; AnonParam1: QSizeH); cdecl; external Qt5PasLib name 'QWindow_setMaximumSize';
procedure QWindow_setBaseSize(handle: QWindowH; AnonParam1: QSizeH); cdecl; external Qt5PasLib name 'QWindow_setBaseSize';
procedure QWindow_setSizeIncrement(handle: QWindowH; AnonParam1: QSizeH); cdecl; external Qt5PasLib name 'QWindow_setSizeIncrement';
procedure QWindow_setGeometry(handle: QWindowH; x: integer; y: integer; w: integer; h: integer); cdecl; external Qt5PasLib name 'QWindow_setGeometry';
procedure QWindow_setGeometry(handle: QWindowH; AnonParam1: PRect); cdecl; external Qt5PasLib name 'QWindow_setGeometry2';
procedure QWindow_geometry(handle: QWindowH; retval: PRect); cdecl; external Qt5PasLib name 'QWindow_geometry';
procedure QWindow_frameMargins(handle: QWindowH; retval: QMarginsH); cdecl; external Qt5PasLib name 'QWindow_frameMargins';
procedure QWindow_frameGeometry(handle: QWindowH; retval: PRect); cdecl; external Qt5PasLib name 'QWindow_frameGeometry';
procedure QWindow_framePosition(handle: QWindowH; retval: PQtPoint); cdecl; external Qt5PasLib name 'QWindow_framePosition';
procedure QWindow_setFramePosition(handle: QWindowH; AnonParam1: PQtPoint); cdecl; external Qt5PasLib name 'QWindow_setFramePosition';
function QWindow_width(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_width';
function QWindow_height(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_height';
function QWindow_x(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_x';
function QWindow_y(handle: QWindowH): integer; cdecl; external Qt5PasLib name 'QWindow_y';
procedure QWindow_size(handle: QWindowH; retval: PSize); cdecl; external Qt5PasLib name 'QWindow_size';
procedure QWindow_position(handle: QWindowH; retval: PQtPoint); cdecl; external Qt5PasLib name 'QWindow_position';
procedure QWindow_setPosition(handle: QWindowH; AnonParam1: PQtPoint); cdecl; external Qt5PasLib name 'QWindow_setPosition';
procedure QWindow_setPosition(handle: QWindowH; posx: integer; posy: integer); cdecl; external Qt5PasLib name 'QWindow_setPosition2';
procedure QWindow_resize(handle: QWindowH; AnonParam1: QSizeH); cdecl; external Qt5PasLib name 'QWindow_resize';
procedure QWindow_resize(handle: QWindowH; w: integer; h: integer); cdecl; external Qt5PasLib name 'QWindow_resize2';
procedure QWindow_setFilePath(handle: QWindowH; AnonParam1: PWideString); cdecl; external Qt5PasLib name 'QWindow_setFilePath';
procedure QWindow_filePath(handle: QWindowH; retval: PWideString); cdecl; external Qt5PasLib name 'QWindow_filePath';
procedure QWindow_setIcon(handle: QWindowH; icon: QIconH); cdecl; external Qt5PasLib name 'QWindow_setIcon';
procedure QWindow_icon(handle: QWindowH; retval: QIconH); cdecl; external Qt5PasLib name 'QWindow_icon';
function QWindow_screen(handle: QWindowH): QScreenH; cdecl; external Qt5PasLib name 'QWindow_screen';
procedure QWindow_setScreen(handle: QWindowH; screen: QScreenH); cdecl; external Qt5PasLib name 'QWindow_setScreen';
function QWindow_setKeyboardGrabEnabled(handle: QWindowH; grab: boolean): boolean; cdecl; external Qt5PasLib name 'QWindow_setKeyboardGrabEnabled';
function QWindow_setMouseGrabEnabled(handle: QWindowH; grab: boolean): boolean; cdecl; external Qt5PasLib name 'QWindow_setMouseGrabEnabled';
procedure QWindow_mapToGlobal(handle: QWindowH; retval: PQtPoint; AnonParam1: PQtPoint); cdecl; external Qt5PasLib name 'QWindow_mapToGlobal';
procedure QWindow_mapFromGlobal(handle: QWindowH; retval: PQtPoint; AnonParam1: PQtPoint); cdecl; external Qt5PasLib name 'QWindow_mapFromGlobal';
procedure QWindow_cursor(handle: QWindowH; retval: QCursorH); cdecl; external Qt5PasLib name 'QWindow_cursor';
procedure QWindow_setCursor(handle: QWindowH; AnonParam1: QCursorH); cdecl; external Qt5PasLib name 'QWindow_setCursor';
procedure QWindow_unsetCursor(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_unsetCursor';
function QWindow_focusObject(handle: QWindowH): QObjectH; cdecl; external Qt5PasLib name 'QWindow_focusObject';
function QWindow_fromWinID(id: LongWord): QWindowH; cdecl; external Qt5PasLib name 'QWindow_fromWinId';
procedure QWindow_requestActivate(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_requestActivate';
procedure QWindow_setVisible(handle: QWindowH; visible: boolean); cdecl; external Qt5PasLib name 'QWindow_setVisible';
procedure QWindow_show(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_show';
procedure QWindow_hide(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_hide';
procedure QWindow_showMinimized(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_showMinimized';
procedure QWindow_showMaximized(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_showMaximized';
procedure QWindow_showFullScreen(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_showFullScreen';
procedure QWindow_showNormal(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_showNormal';
function QWindow_close(handle: QWindowH): boolean; cdecl; external Qt5PasLib name 'QWindow_close';
procedure QWindow_raise(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_raise';
procedure QWindow_lower(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_lower';
procedure QWindow_setTitle(handle: QWindowH; AnonParam1: PWideString); cdecl; external Qt5PasLib name 'QWindow_setTitle';
procedure QWindow_setX(handle: QWindowH; x: integer); cdecl; external Qt5PasLib name 'QWindow_setX';
procedure QWindow_setY(handle: QWindowH; y: integer); cdecl; external Qt5PasLib name 'QWindow_setY';
procedure QWindow_setWidth(handle: QWindowH; w: integer); cdecl; external Qt5PasLib name 'QWindow_setWidth';
procedure QWindow_setHeight(handle: QWindowH; h: integer); cdecl; external Qt5PasLib name 'QWindow_setHeight';
procedure QWindow_setMinimumWidth(handle: QWindowH; w: integer); cdecl; external Qt5PasLib name 'QWindow_setMinimumWidth';
procedure QWindow_setMinimumHeight(handle: QWindowH; h: integer); cdecl; external Qt5PasLib name 'QWindow_setMinimumHeight';
procedure QWindow_setMaximumWidth(handle: QWindowH; w: integer); cdecl; external Qt5PasLib name 'QWindow_setMaximumWidth';
procedure QWindow_setMaximumHeight(handle: QWindowH; h: integer); cdecl; external Qt5PasLib name 'QWindow_setMaximumHeight';
procedure QWindow_alert(handle: QWindowH; msec: integer); cdecl; external Qt5PasLib name 'QWindow_alert';
procedure QWindow_requestUpdate(handle: QWindowH); cdecl; external Qt5PasLib name 'QWindow_requestUpdate';
type
QWindow_screenChanged_Event = procedure (screen: QScreenH) of object cdecl;
QWindow_modalityChanged_Event = procedure (modality: QtWindowModality) of object cdecl;
QWindow_windowStateChanged_Event = procedure (windowstate: QtWindowState) of object cdecl;
QWindow_windowTitleChanged_Event = procedure (AnonParam1: PWideString) of object cdecl;
QWindow_xChanged_Event = procedure (x: integer) of object cdecl;
QWindow_yChanged_Event = procedure (y: integer) of object cdecl;
QWindow_widthChanged_Event = procedure (w: integer) of object cdecl;
QWindow_heightChanged_Event = procedure (h: integer) of object cdecl;
QWindow_minimumWidthChanged_Event = procedure (mw: integer) of object cdecl;
QWindow_minimumHeightChanged_Event = procedure (mh: integer) of object cdecl;
QWindow_maximumWidthChanged_Event = procedure (mw: integer) of object cdecl;
QWindow_maximumHeightChanged_Event = procedure (mh: integer) of object cdecl;
QWindow_visibleChanged_Event = procedure (vis: boolean) of object cdecl;
QWindow_visibilityChanged_Event = procedure (vis: QWindowVisibility) of object cdecl;
QWindow_activeChanged_event = procedure() of object cdecl;
QWindow_contentOrientationChanged_event = procedure(orientation: QtOrientation) of object cdecl;
QWindow_focusObjectChanged_event = procedure(AObj: QObjectH) of object cdecl;
QWindow_opacityChanged_event = procedure(opacity: qreal) of object cdecl;
type
QWidgetRenderFlag = cardinal; // QWidget::RenderFlag
QWidgetRenderFlags = QWidgetRenderFlag; //QFlags<> (3)
@ -6252,6 +6495,49 @@ procedure QGridLayout_addItem(handle: QGridLayoutH; item: QLayoutItemH; row: Int
procedure QGridLayout_setDefaultPositioning(handle: QGridLayoutH; n: Integer; orient: QtOrientation); cdecl; external Qt5PasLib name 'QGridLayout_setDefaultPositioning';
procedure QGridLayout_getItemPosition(handle: QGridLayoutH; idx: Integer; row: PInteger; column: PInteger; rowSpan: PInteger; columnSpan: PInteger); cdecl; external Qt5PasLib name 'QGridLayout_getItemPosition';
procedure QScreen_Destroy(handle: QScreenH); cdecl; external Qt5PasLib name 'QScreen_Destroy';
procedure QScreen_name(handle: QScreenH; retval: PWideString); cdecl; external Qt5PasLib name 'QScreen_name';
function QScreen_depth(handle: QScreenH): integer; cdecl; external Qt5PasLib name 'QScreen_depth';
procedure QScreen_size(handle: QScreenH; retval: PSize); cdecl; external Qt5PasLib name 'QScreen_size';
procedure QScreen_geometry(handle: QScreenH; retval: PRect); cdecl; external Qt5PasLib name 'QScreen_geometry';
{screen's physical size in millimeters}
procedure QScreen_physicalSize(handle: QScreenH; retval: QSizeFH); cdecl; external Qt5PasLib name 'QScreen_physicalSize';
function QScreen_physicalDotsPerInchX(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_physicalDotsPerInchX';
function QScreen_physicalDotsPerInchY(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_physicalDotsPerInchY';
function QScreen_physicalDotsPerInch(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_physicalDotsPerInch';
function QScreen_logicalDotsPerInchX(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_logicalDotsPerInchX';
function QScreen_logicalDotsPerInchY(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_logicalDotsPerInchY';
function QScreen_logicalDotsPerInch(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_logicalDotsPerInch';
function QScreen_devicePixelRatio(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_devicePixelRatio';
procedure QScreen_availableSize(handle: QScreenH; retval: PSize); cdecl; external Qt5PasLib name 'QScreen_availableSize';
procedure QScreen_availableGeometry(handle: QScreenH; retval: PRect); cdecl; external Qt5PasLib name 'QScreen_availableGeometry';
procedure QScreen_virtualSize(handle: QScreenH; retval: PSize); cdecl; external Qt5PasLib name 'QScreen_virtualSize';
procedure QScreen_virtualGeometry(handle: QScreenH; retval: PRect); cdecl; external Qt5PasLib name 'QScreen_virtualGeometry';
function QScreen_primaryOrientation(handle: QScreenH): QtScreenOrientation; cdecl; external Qt5PasLib name 'QScreen_primaryOrientation';
function QScreen_orientation(handle: QScreenH): QtScreenOrientation; cdecl; external Qt5PasLib name 'QScreen_orientation';
function QScreen_nativeOrientation(handle: QScreenH): QtScreenOrientation; cdecl; external Qt5PasLib name 'QScreen_nativeOrientation';
function QScreen_orientationUpdateMask(handle: QScreenH): QtScreenOrientations; cdecl; external Qt5PasLib name 'QScreen_orientationUpdateMask';
procedure QScreen_setOrientationUpdateMask(handle: QScreenH; mask: QtScreenOrientations); cdecl; external Qt5PasLib name 'QScreen_setOrientationUpdateMask';
function QScreen_angleBetween(handle: QScreenH; a: QtScreenOrientation; b: QtScreenOrientation): integer; cdecl; external Qt5PasLib name 'QScreen_angleBetween';
procedure QScreen_virtualSiblings(handle: QScreenH; retval: PPtrIntArray); cdecl; external Qt5PasLib name 'QScreen_virtualSiblings';
procedure QScreen_transformBetween(handle: QScreenH; retval: QTransformH; a: QtScreenOrientation; b: QtScreenOrientation; AnonParam1: PRect); cdecl; external Qt5PasLib name 'QScreen_transformBetween';
procedure QScreen_mapBetween(handle: QScreenH; retval: PRect; a: QtScreenOrientation; b: QtScreenOrientation; AnonParam1: PRect); cdecl; external Qt5PasLib name 'QScreen_mapBetween';
function QScreen_isPortrait(handle: QScreenH; orientation: QtScreenOrientation): boolean; cdecl; external Qt5PasLib name 'QScreen_isPortrait';
function QScreen_isLandscape(handle: QScreenH; orientation: QtScreenOrientation): boolean; cdecl; external Qt5PasLib name 'QScreen_isLandscape';
procedure QScreen_grabWindow(handle: QScreenH; retval: QPixmapH; window: LongWord; x: integer = 0; y: integer = 0; w: integer = -1; h: integer = -1); cdecl; external Qt5PasLib name 'QScreen_grabWindow';
function QScreen_refreshRate(handle: QScreenH): qreal; cdecl; external Qt5PasLib name 'QScreen_refreshRate';
type
QScreen_geometryChanged_event = procedure (geom: PRect) of object cdecl;
QScreen_availableGeometryChanged_event = procedure (geom: PRect) of object cdecl;
QScreen_physicalSizeChanged_event = procedure (asize: QSizeFH) of object cdecl;
QScreen_physicalDotsPerInchChanged_event = procedure (adpi: qreal) of object cdecl;
QScreen_logicalDotsPerInchChanged_event = procedure (adpi: qreal) of object cdecl;
QScreen_virtualGeometryChanged_event = procedure (geom: PRect) of object cdecl;
QScreen_primaryOrientationChanged_event = procedure (orientation: QtOrientation) of object cdecl;
QScreen_orientationChanged_event = procedure (orientation: QtOrientation) of object cdecl;
QScreen_refreshRateChanged_event = procedure (refreshRate: qreal) of object cdecl;
function QDesktopWidget_Create(): QDesktopWidgetH; cdecl; external Qt5PasLib name 'QDesktopWidget_Create';
procedure QDesktopWidget_Destroy(handle: QDesktopWidgetH); cdecl; external Qt5PasLib name 'QDesktopWidget_Destroy';
function QDesktopWidget_isVirtualDesktop(handle: QDesktopWidgetH): Boolean; cdecl; external Qt5PasLib name 'QDesktopWidget_isVirtualDesktop';
@ -14498,6 +14784,40 @@ function QApplication_hook_Create(handle: QObjectH): QApplication_hookH; cdecl;
procedure QApplication_hook_Destroy(handle: QApplication_hookH); cdecl; external Qt5PasLib name 'QApplication_hook_Destroy';
procedure QApplication_hook_hook_focusChanged(handle: QApplication_hookH; hook: QApplication_focusChanged_Event); cdecl; external Qt5PasLib name 'QApplication_hook_hook_focusChanged';
function QScreen_hook_Create(handle: QObjectH): QScreen_hookH; cdecl; external Qt5PasLib name 'QScreen_hook_Create';
procedure QScreen_hook_Destroy(handle: QScreen_hookH); cdecl; external Qt5PasLib name 'QScreen_hook_Destroy';
procedure QScreen_hook_hook_geometryChanged(handle: QScreen_hookH; hook: QScreen_geometryChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_geometryChanged';
procedure QScreen_hook_hook_availableGeometryChanged(handle: QScreen_hookH; hook: QScreen_availableGeometryChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_availableGeometryChanged';
procedure QScreen_hook_hook_physicalSizeChanged(handle: QScreen_hookH; hook: QScreen_physicalSizeChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_physicalSizeChanged';
procedure QScreen_hook_hook_physicalDotsPerInchChanged(handle: QScreen_hookH; hook: QScreen_physicalDotsPerInchChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_physicalDotsPerInchChanged';
procedure QScreen_hook_hook_logicalDotsPerInchChanged(handle: QScreen_hookH; hook: QScreen_logicalDotsPerInchChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_logicalDotsPerInchChanged';
procedure QScreen_hook_hook_virtualGeometryChanged(handle: QScreen_hookH; hook: QScreen_virtualGeometryChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_virtualGeometryChanged';
procedure QScreen_hook_hook_primaryOrientationChanged(handle: QScreen_hookH; hook: QScreen_primaryOrientationChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_primaryOrientationChanged';
procedure QScreen_hook_hook_orientationChanged(handle: QScreen_hookH; hook: QScreen_orientationChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_orientationChanged';
procedure QScreen_hook_hook_refreshRateChanged(handle: QScreen_hookH; hook: QScreen_refreshRateChanged_event); cdecl; external Qt5PasLib name 'QScreen_hook_hook_refreshRateChanged';
function QWindow_hook_Create(handle: QObjectH): QWindow_hookH; cdecl; external Qt5PasLib name 'QWindow_hook_Create';
procedure QWindow_hook_Destroy(handle: QWindow_hookH); cdecl; external Qt5PasLib name 'QWindow_hook_Destroy';
procedure QWindow_hook_hook_screenChanged(handle: QWindow_hookH; hook: QWindow_screenChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_screenChanged';
procedure QWindow_hook_hook_modalityChanged(handle: QWindow_hookH; hook: QWindow_modalityChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_modalityChanged';
procedure QWindow_hook_hook_windowStateChanged(handle: QWindow_hookH; hook: QWindow_windowStateChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_windowStateChanged';
procedure QWindow_hook_hook_windowTitleChanged(handle: QWindow_hookH; hook: QWindow_windowTitleChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_windowTitleChanged';
procedure QWindow_hook_hook_xChanged(handle: QWindow_hookH; hook: QWindow_xChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_xChanged';
procedure QWindow_hook_hook_yChanged(handle: QWindow_hookH; hook: QWindow_yChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_yChanged';
procedure QWindow_hook_hook_widthChanged(handle: QWindow_hookH; hook: QWindow_widthChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_widthChanged';
procedure QWindow_hook_hook_heightChanged(handle: QWindow_hookH; hook: QWindow_heightChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_heightChanged';
procedure QWindow_hook_hook_minimumWidthChanged(handle: QWindow_hookH; hook: QWindow_minimumWidthChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_minimumWidthChanged';
procedure QWindow_hook_hook_minimumHeightChanged(handle: QWindow_hookH; hook: QWindow_minimumHeightChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_minimumHeightChanged';
procedure QWindow_hook_hook_maximumWidthChanged(handle: QWindow_hookH; hook: QWindow_maximumWidthChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_maximumWidthChanged';
procedure QWindow_hook_hook_maximumHeightChanged(handle: QWindow_hookH; hook: QWindow_maximumHeightChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_maximumHeightChanged';
procedure QWindow_hook_hook_visibleChanged(handle: QWindow_hookH; hook: QWindow_visibleChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_visibleChanged';
procedure QWindow_hook_hook_visibilityChanged(handle: QWindow_hookH; hook: QWindow_visibilityChanged_Event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_visibilityChanged';
procedure QWindow_hook_hook_activeChanged(handle: QWindow_hookH; hook: QWindow_activeChanged_event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_activeChanged';
procedure QWindow_hook_hook_contentOrientationChanged(handle: QWindow_hookH; hook: QWindow_contentOrientationChanged_event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_contentOrientationChanged';
procedure QWindow_hook_hook_focusObjectChanged(handle: QWindow_hookH; hook: QWindow_focusObjectChanged_event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_focusObjectChanged';
procedure QWindow_hook_hook_opacityChanged(handle: QWindow_hookH; hook: QWindow_opacityChanged_event); cdecl; external Qt5PasLib name 'QWindow_hook_hook_opacityChanged';
function QWidget_hook_Create(handle: QObjectH): QWidget_hookH; cdecl; external Qt5PasLib name 'QWidget_hook_Create';
procedure QWidget_hook_Destroy(handle: QWidget_hookH); cdecl; external Qt5PasLib name 'QWidget_hook_Destroy';
procedure QWidget_hook_hook_customContextMenuRequested(handle: QWidget_hookH; hook: QWidget_customContextMenuRequested_Event); cdecl; external Qt5PasLib name 'QWidget_hook_hook_customContextMenuRequested';