pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Removed Ctl3D

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2009-03-25 10:24:27 +00:00
parent 1d04d5aab3
commit 8adbc8ab54
3 changed files with 2 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview/virtualdrawtree.pas
View File

@ -61,7 +61,6 @@ type
property Color;
property Colors;
property Constraints;
property Ctl3D;
property CustomCheckImages;
property DefaultNodeHeight;
property DefaultPasteMode;
@ -90,7 +89,6 @@ type
property ParentBackground;
{$endif COMPILER_7_UP}
property ParentColor default False;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;

2
components/virtualtreeview/virtualstringtree.pas
View File

@ -248,7 +248,6 @@ type
property Color;
property Colors;
property Constraints;
property Ctl3D;
property CustomCheckImages;
property DefaultNodeHeight;
property DefaultPasteMode;
@ -278,7 +277,6 @@ type
property ParentBackground;
{$endif COMPILER_7_UP}
property ParentColor default False;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;

14
components/virtualtreeview/virtualtrees.pas
View File

@ -15482,15 +15482,7 @@ begin
else
WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);
if FBorderStyle = bsSingle then
begin
if Ctl3D then
begin
ExStyle := ExStyle or WS_EX_CLIENTEDGE;
Style := Style and not WS_BORDER;
end
else
Style := Style or WS_BORDER;
end
Style := Style or WS_BORDER
else
Style := Style and not WS_BORDER;
@ -19026,7 +19018,7 @@ begin
if True{todoBevelKind <> bkNone} then
begin
DrawEdge(DC, RC, BDR_RAISEDINNER{InnerStyles[BevelInner]} or 0{OuterStyles[BevelOuter]}, 15{Byte(BevelEdges)} or 0{EdgeStyles[BevelKind]} or
Ctl3DStyles[Ctl3D]);
Ctl3DStyles[False]);
EdgeSize := 0;
// if BevelInner <> bvNone then
@ -20650,7 +20642,6 @@ begin
Self.Color := Color;
Self.Colors.Assign(Colors);
Self.Constraints.Assign(Constraints);
Self.Ctl3D := Ctl3D;
Self.DefaultNodeHeight := DefaultNodeHeight;
Self.DefaultPasteMode := DefaultPasteMode;
Self.DragCursor := DragCursor;
@ -20670,7 +20661,6 @@ begin
Self.TreeOptions := TreeOptions;
//b Self.ParentBiDiMode := ParentBiDiMode;
Self.ParentColor := ParentColor;
Self.ParentCtl3D := ParentCtl3D;
Self.ParentFont := ParentFont;
Self.ParentShowHint := ParentShowHint;
Self.PopupMenu := PopupMenu;