paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:20:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

(Qt): misc

Browse Source 
git-svn-id: trunk@11706 -
This commit is contained in:
paul 2007-08-01 13:32:49 +00:00
parent 19c4c706cc
commit 6872289be3
3 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtobject.inc
View File

@ -162,6 +162,18 @@ begin
TQtMainWindow(Application.MainForm.Handle).BringToFront;
end;
{procedure TQtWidgetSet.AppSetIcon(const AIcon: HICON);
var
Icon: TQtIcon;
begin
Icon := TQtIcon(AIcon);
if Icon <> nil then
QApplication_setWindowIcon(Icon.Handle)
else
QApplication_setWindowIcon(nil);
end;
}
procedure TQtWidgetSet.AppSetTitle(const ATitle: string);
begin
// TODO

11
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -88,11 +88,11 @@ type
// class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
// class procedure SetText(const AWinControl: TWinControl; const AText: string); override;
{
class procedure SetChildZPosition(const AWinControl, AChild: TWinControl;
const AOldPos, ANewPos: Integer;
const AChildren: TFPList); override;}
const AChildren: TFPList); override;
class procedure ConstraintsChange(const AWinControl: TWinControl); override;
end;
@ -334,6 +334,13 @@ begin
end;
end;
class procedure TQtWSWinControl.SetChildZPosition(const AWinControl,
AChild: TWinControl; const AOldPos, ANewPos: Integer; const AChildren: TFPList);
begin
{$note TODO: QWidget::stackUnder, QWidget::raise, QWidget::lower}
inherited SetChildZPosition(AWinControl, AChild, AOldPos, ANewPos, AChildren);
end;
class procedure TQtWSWinControl.ConstraintsChange(const AWinControl: TWinControl);
const
QtMaxContraint = $FFFFFF;

10
lcl/interfaces/qt/qtwsforms.pp
View File

@ -33,7 +33,7 @@ uses
{$else}
qt4,
{$endif}
qtwidgets,
qtobjects, qtwidgets,
// LCL
SysUtils, Classes, Controls, LCLType, Forms,
// Widgetset
@ -257,8 +257,14 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
class procedure TQtWSCustomForm.SetIcon(const AForm: TCustomForm; const AIcon: HICON);
var
Icon: TQtIcon;
begin
inherited SetIcon(AForm, AIcon);
Icon := TQtIcon(AIcon);
if Icon <> nil then
TQtWidget(AForm.Handle).setWindowIcon(Icon.Handle)
else
TQtWidget(AForm.Handle).setWindowIcon(nil);
end;
{------------------------------------------------------------------------------