fixed WindowProc

git-svn-id: trunk@4426 -
This commit is contained in:
mattias 2003-07-26 13:26:56 +00:00
parent 2491d3f480
commit 017985b0ec
4 changed files with 22 additions and 11 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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