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

deactivated EraseBackGound for TOIPropertyGrid and TTreeView

Browse Source 
git-svn-id: trunk@5042 -
This commit is contained in:
mattias 2004-01-10 17:09:20 +00:00
parent 85edd4a3f8
commit 9605ba5354
4 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designerprocs.pas
View File

@ -287,6 +287,7 @@ end;
{ TDesignerDeviceContext }
function TDesignerDeviceContext.GetDCOrigin: TPoint;
// returns the DC origin in screen coordinates
begin
if not (ddcDCOriginValid in FFlags) then begin
GetWindowOrgEx(FDC,@FDCOrigin);
@ -296,6 +297,7 @@ begin
end;
function TDesignerDeviceContext.GetDCSize: TPoint;
// returns the DC size
begin
if not (ddcSizeValid in FFlags) then begin
GetDeviceSize(FDC,FDCSize);

8
ideintf/objectinspector.pp
View File

@ -258,8 +258,9 @@ type
procedure MouseUp(Button:TMouseButton; Shift:TShiftState; X,Y:integer); override;
procedure KeyDown(var Key : Word; Shift : TShiftState); override;
procedure HandleStandardKeys(var Key : Word; Shift : TShiftState);
procedure EraseBackground(DC: HDC); override;
public
ValueEdit:TEdit;
ValueComboBox:TComboBox;
@ -1298,6 +1299,11 @@ begin
if Handled then Key:=VK_UNKNOWN;
end;
procedure TOIPropertyGrid.EraseBackground(DC: HDC);
begin
// everything is painted, so erasing the background is not needed
end;
procedure TOIPropertyGrid.OnUserInput(Sender: TObject; Msg: Cardinal);
begin
ResetHintTimer;

4
lcl/comctrls.pp
View File

@ -1645,6 +1645,7 @@ type
procedure GetSelectedIndex(Node: TTreeNode); virtual;
procedure InitializeWnd; override;
procedure Invalidate; override;
procedure EraseBackground(DC: HDC); override;
procedure KeyDown(var Key : Word; Shift : TShiftState); override;
procedure Loaded; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
@ -1944,6 +1945,9 @@ end.
{ =============================================================================
$Log$
Revision 1.100 2004/01/10 17:09:20 mattias
deactivated EraseBackGound for TOIPropertyGrid and TTreeView
Revision 1.99 2004/01/03 23:14:59 mattias
default font can now change height and fixed gtk crash

5
lcl/include/treeview.inc
View File

@ -2711,6 +2711,11 @@ begin
inherited Invalidate;
end;
procedure TCustomTreeView.EraseBackground(DC: HDC);
begin
// everything is painted, so erasing the background is not needed
end;
procedure TCustomTreeView.DestroyWnd;
//var Node: TTreeNode;
begin