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

also invalidate control, if it is only moved, but not resized.

Browse Source 
git-svn-id: trunk@7164 -
This commit is contained in:
vincents 2005-05-09 14:52:33 +00:00
parent 889b18ba42
commit 776c27aac0
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extctrls.pp
View File

@ -836,7 +836,6 @@ type
property CharCase;
property Color;
property Constraints;
//property EditLabel; sub components not implemented in FCL
property EditLabel;
property Enabled;
property LabelPosition;
@ -997,6 +996,9 @@ end.
{
$Log$
Revision 1.136 2005/05/09 14:52:33 vincents
also invalidate control, if it is only moved, but not resized.
Revision 1.135 2005/04/17 18:41:15 micha
implement active default control switching
pressing return key executes active default control action

6
lcl/include/control.inc
View File

@ -379,8 +379,7 @@ begin
if FSizeLock>0 then exit;
// invalidate
if SizeChanged
and (not (csLoading in ComponentState))
if (not (csLoading in ComponentState))
and (not (Self is TWinControl)) then
Invalidate;
// notify user about resize
@ -3516,6 +3515,9 @@ end;
{ =============================================================================
$Log$
Revision 1.256 2005/05/09 14:52:33 vincents
also invalidate control, if it is only moved, but not resized.
Revision 1.255 2005/04/17 18:41:15 micha
implement active default control switching
pressing return key executes active default control action