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

* fixes from Juan Salvador Pérez García

Browse Source 
git-svn-id: trunk@10069 -
This commit is contained in:
marc 2006-10-15 14:13:32 +00:00
parent 8459fd3faa
commit 72be679b4d
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/designermenu.pp
View File

@ -1578,6 +1578,9 @@ var
i: Integer; i: Integer;
begin begin
Result:=0; Result:=0;
if DesignerMenuItem = nil then exit;
temp_parentmenudesignermenuitem:=DesignerMenuItem^.ParentMenu; temp_parentmenudesignermenuitem:=DesignerMenuItem^.ParentMenu;
temp_previousdesignermenuitem:=DesignerMenuItem^.PrevItem; temp_previousdesignermenuitem:=DesignerMenuItem^.PrevItem;
temp_nextdesignermenuitem:=DesignerMenuItem^.NextItem; temp_nextdesignermenuitem:=DesignerMenuItem^.NextItem;

2
lcl/include/bitbtn.inc
View File

@ -196,7 +196,7 @@ begin
Caption := GetCaptionOfKind(fKind); Caption := GetCaptionOfKind(fKind);
ModalResult := BitBtnModalResults[FKind]; ModalResult := BitBtnModalResults[FKind];
Default := FKind in [bkOk,bkYes]; Default := FKind in [bkOk,bkYes];
Cancel := FKind = bkCancel; Cancel := FKind in [bkCancel,bkNo];
end; end;
end; end;