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

1. pressing the Return key in ObjectInspector when editing a value throws an exception

Browse Source 
2. placing TPairSplitter component on the form produces "Division by zero"

git-svn-id: trunk@5214 -
This commit is contained in:
micha 2004-02-21 10:11:36 +00:00
parent 56c98b2587
commit 057ab4eab9
2 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/win32/win32callback.inc
View File

@ -197,8 +197,8 @@ Var
if Result=nil then //if Result is still nil, process main menu
begin
MainMenuHandle := GetMenu(Window);
GetMenuItemInfo(MainMenuHandle, Lo(WParam), false, @MenuInfo);
Result := TObject(MenuInfo.dwItemData);
if GetMenuItemInfo(MainMenuHandle, Lo(WParam), false, @MenuInfo) then
Result := TObject(MenuInfo.dwItemData);
end;
end;
@ -368,8 +368,8 @@ Begin
End;
WM_COMMAND:
Begin
OwnerObject := TObject(GetProp(LParam, 'Wincontrol'));
if LParam=0 then OwnerObject := GetMenuItemObject; {menuitem or shortcut}
if LParam=0 then OwnerObject := GetMenuItemObject {menuitem or shortcut}
else OwnerObject := TObject(GetProp(LParam, 'Wincontrol'));
// is this for speedbuttons?
// If ((OwnerObject Is TControl) And (Not (OwnerObject Is TButton))) Then
@ -490,6 +490,11 @@ Begin
WM_GETDLGCODE:
Begin
LMessage.Msg := LM_GETDLGCODE;
if OwnerObject is TEdit then
begin
WinProcess := false;
LMessage.Result := DLGC_WANTALLKEYS;
end;
End;
WM_KEYDOWN:
Begin
@ -1001,6 +1006,10 @@ end;
{
$Log$
Revision 1.93 2004/02/21 10:11:36 micha
1. pressing the Return key in ObjectInspector when editing a value throws an exception
2. placing TPairSplitter component on the form produces "Division by zero"
Revision 1.92 2004/02/12 18:03:15 mattias
fixed combobox enabled from Vincent

9
lcl/interfaces/win32/win32object.inc
View File

@ -2151,6 +2151,11 @@ Begin
WindowTitle := StrCaption;
Flags := Flags Or SS_LEFT;
End;
csPairSplitter, csPairSplitterSide:
begin
pClassName := 'STATIC';
WindowTitle := StrCaption;
end;
csListView:
Begin
pClassName := WC_LISTVIEW;
@ -3001,6 +3006,10 @@ End;
{
$Log$
Revision 1.171 2004/02/21 10:11:36 micha
1. pressing the Return key in ObjectInspector when editing a value throws an exception
2. placing TPairSplitter component on the form produces "Division by zero"
Revision 1.170 2004/02/20 19:52:18 micha
fixed: tarrow crash in win32
added: interface function DrawArrow to draw themed arrow