mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 02:09:21 +02:00
added qtmemostrings.inc
git-svn-id: trunk@9255 -
This commit is contained in:
parent
8de95bae67
commit
260a95030f
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -2189,7 +2189,7 @@ lcl/interfaces/qt/qtcallback.inc svneol=native#text/pascal
|
||||
lcl/interfaces/qt/qtint.pp svneol=native#text/pascal
|
||||
lcl/interfaces/qt/qtlclintf.inc svneol=native#text/pascal
|
||||
lcl/interfaces/qt/qtlclintfh.inc svneol=native#text/pascal
|
||||
lcl/interfaces/qt/qtmemostr.inc svneol=native#text/plain
|
||||
lcl/interfaces/qt/qtmemostrings.inc svneol=native#text/plain
|
||||
lcl/interfaces/qt/qtobject.inc svneol=native#text/pascal
|
||||
lcl/interfaces/qt/qtprivate.pp svneol=native#text/plain
|
||||
lcl/interfaces/qt/qtwinapi.inc svneol=native#text/pascal
|
||||
|
@ -186,13 +186,8 @@ end;
|
||||
function TQtMemoStrings.TextChangedHandler(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
|
||||
var
|
||||
Mess: TLMessage;
|
||||
// just for debugging
|
||||
SenderView: QObjectH;
|
||||
EventView: QEventH;
|
||||
begin
|
||||
if not FUpdating then begin
|
||||
SenderView := Sender;
|
||||
EventView := Event;
|
||||
FTextChanged := True;
|
||||
FillChar(Mess, SizeOf(Mess), #0);
|
||||
Mess.Msg := CM_TEXTCHANGED;
|
@ -430,8 +430,6 @@ end;
|
||||
|
||||
------------------------------------------------------------------------------}
|
||||
function TQtWidgetSet.GetSystemMetrics(nIndex: Integer): Integer;
|
||||
var
|
||||
P : Pointer;
|
||||
begin
|
||||
Assert(False, Format('Trace:> [TGtkWidgetSet.GetSystemMetrics] %d', [nIndex]));
|
||||
case nIndex of
|
||||
|
Loading…
Reference in New Issue
Block a user