paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with empty labels

Browse Source
This commit is contained in:
florian 2005-03-06 21:31:15 +00:00
parent 2d4ade242c
commit 9db0c54694
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fv/dialogs.pas
View File

@ -3046,13 +3046,17 @@ BEGIN
Case Event.What Of
evNothing: Exit; { Speed up exit }
evMouseDown: FocusLink; { Focus link view }
evKeyDown: Begin
C := HotKey(Text^); { Check for hotkey }
If (GetAltCode(C) = Event.KeyCode) OR { Alt plus char }
((C <> #0) AND (Owner^.Phase = phPostProcess) { Post process phase }
AND (UpCase(Event.CharCode) = C)) Then { Upper case match }
FocusLink; { Focus link view }
End;
evKeyDown:
Begin
if assigned(text) then
begin
C := HotKey(Text^); { Check for hotkey }
If (GetAltCode(C) = Event.KeyCode) OR { Alt plus char }
((C <> #0) AND (Owner^.Phase = phPostProcess) { Post process phase }
AND (UpCase(Event.CharCode) = C)) Then { Upper case match }
FocusLink; { Focus link view }
end;
end;
evBroadcast: If ((Event.Command = cmReceivedFocus)
OR (Event.Command = cmReleasedFocus)) AND { Focus state change }
(Link <> Nil) Then Begin
@ -4141,7 +4145,10 @@ END;
END.
{
$Log$
Revision 1.33 2005-02-14 17:13:18 peter
Revision 1.34 2005-03-06 21:31:15 florian
* fixed crash with empty labels
Revision 1.33 2005/02/14 17:13:18 peter
* truncate log
}