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

replaced WMSize by DoSetBounds

Browse Source 
git-svn-id: trunk@5476 -
This commit is contained in:
mattias 2004-05-15 20:17:09 +00:00
parent b21086ecc7
commit 6e24956d9e
3 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ideintf/objectinspector.pp
View File

@ -246,7 +246,6 @@ type
ARect: TRect; State: TOwnerDrawState);
procedure WMVScroll(var Msg: TWMScroll); message WM_VSCROLL;
procedure WMSize(var Msg: TWMSize); message WM_SIZE;
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetBackgroundColor(const AValue: TColor);
procedure UpdateScrollBar;
@ -261,6 +260,8 @@ type
procedure HandleStandardKeys(var Key : Word; Shift : TShiftState);
procedure EraseBackground(DC: HDC); override;
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
public
ValueEdit:TEdit;
ValueComboBox:TComboBox;
@ -606,12 +607,6 @@ begin
end;
end;
procedure TOIPropertyGrid.WMSize(var Msg: TWMSize);
begin
inherited WMSize(Msg);
UpdateScrollBar;
end;
destructor TOIPropertyGrid.Destroy;
var a:integer;
begin
@ -1336,6 +1331,12 @@ begin
// everything is painted, so erasing the background is not needed
end;
procedure TOIPropertyGrid.DoSetBounds(ALeft, ATop, AWidth, AHeight: integer);
begin
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
UpdateScrollBar;
end;
procedure TOIPropertyGrid.OnUserInput(Sender: TObject; Msg: Cardinal);
begin
ResetHintTimer;

4
lcl/include/control.inc
View File

@ -321,6 +321,7 @@ begin
FLastDoChangeBounds:=CurBounds;
DoOnChangeBounds;
end;
// for delphi compatibility send size/move messages
SendMoveSizeMessages(SizeChanged,PosChanged);
end;
end;
@ -2923,6 +2924,9 @@ end;
{ =============================================================================
$Log$
Revision 1.186 2004/05/15 20:17:09 mattias
replaced WMSize by DoSetBounds
Revision 1.185 2004/05/11 11:42:27 mattias
replaced writeln by debugln

5
lcl/include/custommemo.inc
View File

@ -132,8 +132,6 @@ end;
procedure TCustomMemo.Loaded;
------------------------------------------------------------------------------}
procedure TCustomMemo.Loaded;
var
s: String;
begin
inherited Loaded;
CNSendMessage(LM_SETPROPERTIES, Self, nil);
@ -160,6 +158,9 @@ end;
{ =============================================================================
$Log$
Revision 1.26 2004/05/15 20:17:09 mattias
replaced WMSize by DoSetBounds
Revision 1.25 2004/05/14 12:53:25 mattias
improved grids e.g. OnPrepareCanvas patch from Jesus