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

Pressing DEL when form is the only thing selected in designer no longer crashes Lazarus.

Browse Source 
Shane

git-svn-id: trunk@442 -
This commit is contained in:
lazarus 2001-11-20 18:30:32 +00:00
parent 7a1a9a44ca
commit edfc4165eb
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designer.pp
View File

@ -593,8 +593,6 @@ try
begin
// move selection
FHasSized:=true;
// TControl(MouseDownComponent).SetBounds(TControl(MouseDownComponent).Left+(MouseX-LastMouseMovePos.X),TControl(MouseDownComponent).Top+(MouseY-LastMouseMovePos.Y),TControl(MouseDownComponent).Width,TControl(MouseDownComponent).Height);
ControlSelection.MoveSelection(MouseX-LastMouseMovePos.X, MouseY-LastMouseMovePos.Y);
if Assigned(FOnPropertiesChanged) then
FOnPropertiesChanged(Self);
@ -653,8 +651,10 @@ Writeln('KEYDOWN');
Shift := KeyDataToShiftState(Message.KeyData);
if Message.CharCode = 46 then //DEL KEY
if (Message.CharCode = 46) then //DEL KEY
begin
if (ControlSelection.Count = 1) and (ControlSelection.Items[0].Component = FCustomForm) then
Exit;
ControlSelection.BeginUpdate;
for I := ControlSelection.Count-1 downto 0 do Begin
Writeln('I = '+inttostr(i));

5
ide/main.pp
View File

@ -1773,6 +1773,7 @@ begin
OpenDialog:=TOpenDialog.Create(Application);
try
OpenDialog.Title:='Open Project File (*.lpi)';
OPenDialog.Filter := '*.lpi';
OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
if OpenDialog.Execute then begin
AFilename:=ExpandFilename(OpenDialog.Filename);
@ -4755,6 +4756,10 @@ end.
{ =============================================================================
$Log$
Revision 1.152 2001/11/20 18:30:30 lazarus
Pressing DEL when form is the only thing selected in designer no longer crashes Lazarus.
Shane
Revision 1.151 2001/11/20 15:09:21 lazarus
MG: open project now only opens lpi files

4
lcl/interfaces/gtk/gtkobject.inc
View File

@ -3323,6 +3323,10 @@ end;
{ =============================================================================
$Log$
Revision 1.74 2001/11/20 18:30:32 lazarus
Pressing DEL when form is the only thing selected in designer no longer crashes Lazarus.
Shane
Revision 1.73 2001/11/17 09:42:26 lazarus
MG: fixed range check errors for FG,BG in Init