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

Fixes compilation of qt widgetset.

Browse Source 
git-svn-id: trunk@10075 -
This commit is contained in:
sekelsenmat 2006-10-15 21:26:00 +00:00
parent 44d439dd69
commit 43d1567fab
4 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtint.pp
View File

@ -70,9 +70,9 @@ type
function InitHintFont(HintFont: TObject): Boolean; override;
// create and destroy
function CreateComponent(Sender : TObject): LCLType.THandle; override; // deprecated
function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc): LCLType.THandle; override;
function DestroyTimer(TimerHandle: LCLType.THandle): boolean; override;
function CreateComponent(Sender : TObject): THandle; override; // deprecated
function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc): THandle; override;
function DestroyTimer(TimerHandle: THandle): boolean; override;
// device contexts
function IsValidDC(const DC: HDC): Boolean; virtual;

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

@ -50,8 +50,7 @@ end;
Creates a new timer and sets the callback event.
------------------------------------------------------------------------------}
function TQtWidgetSet.CreateTimer(Interval: integer;
TimerFunc: TFNTimerProc): LCLType.THandle;
function TQtWidgetSet.CreateTimer(Interval: integer; TimerFunc: TFNTimerProc): THandle;
var
QtTimer: TQtTimer;
begin
@ -67,7 +66,7 @@ end;
Destroys a timer.
------------------------------------------------------------------------------}
function TQtWidgetSet.DestroyTimer(TimerHandle: LCLType.THandle): boolean;
function TQtWidgetSet.DestroyTimer(TimerHandle: THandle): boolean;
begin
TQtTimer(TimerHandle).Free;
@ -162,7 +161,7 @@ end;
Deprecated, never call this function
------------------------------------------------------------------------------}
function TQtWidgetSet.CreateComponent(Sender : TObject): LCLType.THandle;
function TQtWidgetSet.CreateComponent(Sender : TObject): THandle;
begin
Result := 0;
end;

14
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2080,11 +2080,8 @@ begin
// Sets the initial items
for I := 0 to TCustomListBox(AWinControl).Items.Count - 1 do
begin
if (AWinControl as TStatusBar).SimplePanel then
begin;
Text := UTF8Decode((AWinControl as TStatusBar).SimpleText);
showMessage(@Text);
end;
Text := UTF8Decode(TCustomListBox(AWinControl).Items.Strings[i]);
QListWidget_addItem(QListWidgetH(Widget), @Text);
end;
// Sets it´ s initial properties
@ -2313,8 +2310,11 @@ begin
Parent := TQtWidget(AWinControl.Parent.Handle).Widget;
Widget := QStatusBar_create(Parent);
Text := UTF8Decode(AWinControl.Caption);
showMessage(@Text);
if (AWinControl as TStatusBar).SimplePanel then
begin;
Text := UTF8Decode((AWinControl as TStatusBar).SimpleText);
showMessage(@Text);
end;
// Sets it´ s initial properties
QWidget_setGeometry(Widget, AWinControl.Left, AWinControl.Top,

2
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -249,7 +249,7 @@ begin
Hook := QObject_hook_create(QtStatusBar.Widget);
TEventFilterMethod(Method) := QtStatusBar.EventFilter;
TEventFilterMethod(Method) := @QtStatusBar.EventFilter;
QObject_hook_hook_events(Hook, Method);