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

* Fix compilation in unix

Browse Source 
* Remove Ctl3d properties

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@701 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-02-08 17:52:22 +00:00
parent 3f7fa819e2
commit 795438d20c
1 changed files with 5 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
components/virtualtreeview-new/VirtualTrees.pas
View File

@ -2357,7 +2357,6 @@ type
function ToggleCallback(Step, StepSize: Integer; Data: Pointer): Boolean; function ToggleCallback(Step, StepSize: Integer; Data: Pointer): Boolean;
procedure CMColorChange(var Message: TLMessage); message CM_COLORCHANGED; procedure CMColorChange(var Message: TLMessage); message CM_COLORCHANGED;
procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
procedure CMBiDiModeChanged(var Message: TLMessage); message CM_BIDIMODECHANGED; procedure CMBiDiModeChanged(var Message: TLMessage); message CM_BIDIMODECHANGED;
procedure CMDenySubclassing(var Message: TLMessage); message CM_DENYSUBCLASSING; procedure CMDenySubclassing(var Message: TLMessage); message CM_DENYSUBCLASSING;
//procedure CMDrag(var Message: TCMDrag); message CM_DRAG; //procedure CMDrag(var Message: TCMDrag); message CM_DRAG;
@ -3478,7 +3477,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;
@ -3511,7 +3509,6 @@ type
property NodeDataSize; property NodeDataSize;
property ParentBiDiMode; property ParentBiDiMode;
property ParentColor default False; property ParentColor default False;
property ParentCtl3D;
property ParentFont; property ParentFont;
property ParentShowHint; property ParentShowHint;
property PopupMenu; property PopupMenu;
@ -10417,7 +10414,7 @@ begin
SetHeight(FMinHeight); SetHeight(FMinHeight);
Result := True; Result := True;
end end
else if HSplitterHit and ((Message.Msg = WM_NCLBUTTONDBLCLK) or (Message.Msg = WM_LBUTTONDBLCLK)) and else if HSplitterHit and (Message.Msg = LM_LBUTTONDBLCLK) and
(hoDblClickResize in FOptions) and (FColumns.FTrackIndex > NoColumn) then (hoDblClickResize in FOptions) and (FColumns.FTrackIndex > NoColumn) then
begin begin
// If the click was on a splitter then resize column to smallest width. // If the click was on a splitter then resize column to smallest width.
@ -15425,17 +15422,6 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
procedure TBaseVirtualTree.CMCtl3DChanged(var Message: TLMessage);
begin
//todo: check what this message is supposed todo. Probably will be removed
inherited;
if BorderStyle = bsSingle then
RecreateWnd(Self);
end;
//----------------------------------------------------------------------------------------------------------------------
procedure TBaseVirtualTree.CMBiDiModeChanged(var Message: TLMessage); procedure TBaseVirtualTree.CMBiDiModeChanged(var Message: TLMessage);
begin begin
@ -18865,20 +18851,24 @@ var
begin begin
if Assigned(FOnBeforeCellPaint) then if Assigned(FOnBeforeCellPaint) then
begin begin
{$ifdef LCLWin32}
if CellPaintMode = cpmGetContentMargin then if CellPaintMode = cpmGetContentMargin then
begin begin
// Prevent drawing if we are only about to get the margin. As this also clears the update rect we need to save it. // Prevent drawing if we are only about to get the margin. As this also clears the update rect we need to save it.
GetUpdateRect(Handle, UpdateRect, False); GetUpdateRect(Handle, UpdateRect, False);
SetUpdateState(True); SetUpdateState(True);
end; end;
{$endif}
FOnBeforeCellPaint(Self, Canvas, Node, Column, CellPaintMode, CellRect, ContentRect); FOnBeforeCellPaint(Self, Canvas, Node, Column, CellPaintMode, CellRect, ContentRect);
{$ifdef LCLWin32}
if CellPaintMode = cpmGetContentMargin then if CellPaintMode = cpmGetContentMargin then
begin begin
SetUpdateState(False); SetUpdateState(False);
InvalidateRect(Handle, @UpdateRect, False); InvalidateRect(Handle, @UpdateRect, False);
end; end;
{$endif}
end; end;
end; end;
@ -24562,7 +24552,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;
@ -24585,7 +24574,6 @@ begin
Self.TreeOptions := TreeOptions; Self.TreeOptions := TreeOptions;
//Self.ParentBiDiMode := ParentBiDiMode; //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;