mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 03:41:00 +02:00
fixed WindowProc
git-svn-id: trunk@4426 -
This commit is contained in:
parent
2491d3f480
commit
017985b0ec
@ -446,9 +446,7 @@ begin
|
||||
inc(ChompLen);
|
||||
if ChompLen>0 then
|
||||
Result:=LeftStr(Result,length(Filename)-ChompLen);
|
||||
writeln('TTransferMacroList.MF_MakeFile A "',Result,'"');
|
||||
Result:=TrimFilename(Result);
|
||||
writeln('TTransferMacroList.MF_MakeFile B "',Result,'"');
|
||||
end;
|
||||
|
||||
function TTransferMacroList.MF_Trim(const Filename: string; var Abort: boolean
|
||||
|
@ -554,7 +554,7 @@ begin
|
||||
inherited Create(AOwner);
|
||||
|
||||
fCompStyle := csComboBox;
|
||||
SetBounds(1,1,100,25);
|
||||
SetInitialBounds(1,1,100,25);
|
||||
FItems := TStringlist.Create;
|
||||
FItemIndex:=-1;
|
||||
FDropDownCount:=8;
|
||||
@ -788,6 +788,9 @@ end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.29 2003/07/26 13:26:56 mattias
|
||||
fixed WindowProc
|
||||
|
||||
Revision 1.28 2003/06/12 16:18:23 mattias
|
||||
applied TComboBox fix for grabbing keys from Yoyong
|
||||
|
||||
|
@ -51,13 +51,17 @@ End;
|
||||
Handles the messages sent to the current window by Windows or other
|
||||
applications
|
||||
------------------------------------------------------------------------------}
|
||||
Function WindowProc(Window: HWnd; Msg: UInt; WParam: WParam; LParam: LParam): LResult; stdcall;
|
||||
Function WindowProc(Window: HWnd; Msg: UInt;
|
||||
WParam: WParam; LParam: LParam): LResult; stdcall;
|
||||
Var
|
||||
LMessage: TLMessage;
|
||||
PLMsg: PLMessage;
|
||||
R: TRect;
|
||||
OwnerObject: TObject;
|
||||
WinProcess: Boolean;
|
||||
PrevWndProc: Pointer;
|
||||
|
||||
LMInsertText: TLMInsertText; // used by CB_INSERTSTRING, LB_INSERTSTRING
|
||||
|
||||
procedure ShowHideTabPage(NotebookHandle: HWnd; Showing: boolean);
|
||||
var
|
||||
@ -103,6 +107,7 @@ Begin
|
||||
|
||||
Result := 0;
|
||||
LMessage.Msg := -1;
|
||||
PLMsg := @LMessage;
|
||||
WinProcess := True;
|
||||
|
||||
Assert(False, 'Trace:WindowProc - Getting Object With Callback Procedure');
|
||||
@ -141,7 +146,8 @@ Begin
|
||||
End;
|
||||
CB_INSERTSTRING, LB_INSERTSTRING:
|
||||
Begin
|
||||
With PLMInsertText(@LMessage)^ Do
|
||||
PLMsg:=@LMInsertText;
|
||||
With LMInsertText Do
|
||||
Begin
|
||||
Msg := LM_INSERTTEXT;
|
||||
Position := WParam;
|
||||
@ -523,14 +529,14 @@ Begin
|
||||
List := TMsgArray(GetProp(Window, 'MsgList'));
|
||||
If Pointer(List) <> Nil Then
|
||||
For C := 0 To Length(List) Do
|
||||
If List[C] = LMessage.Msg Then
|
||||
If List[C] = PLMsg^.Msg Then
|
||||
Begin
|
||||
DeliverMessage(OwnerObject, LMessage);
|
||||
DeliverMessage(OwnerObject, PLMsg^);
|
||||
Exit;
|
||||
End;
|
||||
{$ELSE VER1_1}
|
||||
If (OwnerObject <> Nil) And (LMessage.Msg <> -1) Then
|
||||
DeliverMessage(OwnerObject, LMessage);
|
||||
If (OwnerObject <> Nil) And (PLMsg^.Msg <> -1) Then
|
||||
DeliverMessage(OwnerObject, PLMsg^);
|
||||
{$ENDIF VER1_1}
|
||||
|
||||
Assert(False, 'Trace:WindowProc - Exit');
|
||||
@ -579,6 +585,9 @@ end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.43 2003/07/26 13:26:56 mattias
|
||||
fixed WindowProc
|
||||
|
||||
Revision 1.42 2003/07/26 10:30:44 mattias
|
||||
rewritten WM_COMMAND by Micha
|
||||
|
||||
|
@ -470,8 +470,6 @@ type
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
TLMKey = record
|
||||
Msg: Cardinal;
|
||||
CharCode: Word;
|
||||
@ -1059,6 +1057,9 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.50 2003/07/26 13:26:56 mattias
|
||||
fixed WindowProc
|
||||
|
||||
Revision 1.49 2003/07/07 23:58:43 marc
|
||||
+ Implemented TCheckListBox.Checked[] property
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user