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

2
components/virtualtreeview/virtualstringtree.pas
View File

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

14
components/virtualtreeview/virtualtrees.pas
View File

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