paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 01:21:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

added qtmemostrings.inc

Browse Source 
git-svn-id: trunk@9255 -
This commit is contained in:
mattias 2006-05-08 18:57:04 +00:00
parent 8de95bae67
commit 260a95030f
3 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -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/qtint.pp svneol=native#text/pascal
lcl/interfaces/qt/qtlclintf.inc 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/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/qtobject.inc svneol=native#text/pascal
lcl/interfaces/qt/qtprivate.pp svneol=native#text/plain lcl/interfaces/qt/qtprivate.pp svneol=native#text/plain
lcl/interfaces/qt/qtwinapi.inc svneol=native#text/pascal lcl/interfaces/qt/qtwinapi.inc svneol=native#text/pascal

5
lcl/interfaces/qt/qtmemostr.inc → lcl/interfaces/qt/qtmemostrings.inc
View File

@ -186,13 +186,8 @@ end;
function TQtMemoStrings.TextChangedHandler(Sender: QObjectH; Event: QEventH): Boolean; cdecl; function TQtMemoStrings.TextChangedHandler(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var var
Mess: TLMessage; Mess: TLMessage;
// just for debugging
SenderView: QObjectH;
EventView: QEventH;
begin begin
if not FUpdating then begin if not FUpdating then begin
SenderView := Sender;
EventView := Event;
FTextChanged := True; FTextChanged := True;
FillChar(Mess, SizeOf(Mess), #0); FillChar(Mess, SizeOf(Mess), #0);
Mess.Msg := CM_TEXTCHANGED; Mess.Msg := CM_TEXTCHANGED;

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -430,8 +430,6 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TQtWidgetSet.GetSystemMetrics(nIndex: Integer): Integer; function TQtWidgetSet.GetSystemMetrics(nIndex: Integer): Integer;
var
P : Pointer;
begin begin
Assert(False, Format('Trace:> [TGtkWidgetSet.GetSystemMetrics] %d', [nIndex])); Assert(False, Format('Trace:> [TGtkWidgetSet.GetSystemMetrics] %d', [nIndex]));
case nIndex of case nIndex of