mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-28 21:41:01 +02:00
MG: fixed TComboBox and InvalidateControl
git-svn-id: trunk@1871 -
This commit is contained in:
parent
ff3404c47b
commit
89d18dedbb
@ -2697,6 +2697,8 @@ begin
|
||||
FillChar(Values, SizeOf(Values), #0);
|
||||
end
|
||||
else begin
|
||||
// ToDo: other widget types
|
||||
|
||||
pFixed := GetFixedWidget(Pointer(hWnd));
|
||||
if pFixed = nil
|
||||
then begin
|
||||
@ -5396,6 +5398,8 @@ begin
|
||||
|
||||
Point.X := NewX;
|
||||
Point.Y := NewY;
|
||||
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
@ -6196,6 +6200,9 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.115 2002/08/29 00:07:03 lazarus
|
||||
MG: fixed TComboBox and InvalidateControl
|
||||
|
||||
Revision 1.114 2002/08/28 09:40:50 lazarus
|
||||
MG: reduced paint messages and DC getting/releasing
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user