paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

corrected compilation with latest versions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@230 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u 2007-07-29 16:50:48 +00:00
parent 91d42ce7f5
commit d420a2d542
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview/virtualstringtree.pas
View File

@ -1570,7 +1570,7 @@ var
R: TRect; R: TRect;
S: WideString; S: WideString;
DrawFormat: Cardinal; DrawFormat: Cardinal;
BidiMode: TBidiMode; xxBidiMode: TBidiMode;
// xAlignment: TAlignment; // xAlignment: TAlignment;
PaintInfo: TVTPaintInfo; PaintInfo: TVTPaintInfo;
Dummy: TColumnIndex; Dummy: TColumnIndex;

10
components/virtualtreeview/virtualtrees.pas
View File

@ -1693,7 +1693,7 @@ type
FOnCompareNodes: TVTCompareEvent; // used during sort FOnCompareNodes: TVTCompareEvent; // used during sort
procedure AdjustCoordinatesByIndent(var PaintInfo: TVTPaintInfo; Indent: Integer); procedure AdjustCoordinatesByIndent(var PaintInfo: TVTPaintInfo; Indent: Integer);
procedure AdjustImageBorder(Images: TCustomImageList; BidiMode: TBidiMode; VAlign: Integer; var R: TRect; procedure AdjustImageBorder(Images: TCustomImageList; xBidiMode: TBidiMode; VAlign: Integer; var R: TRect;
var ImageInfo: TVTImageInfo); var ImageInfo: TVTImageInfo);
procedure AdjustTotalCount(Node: PVirtualNode; Value: Integer; relative: Boolean = False); procedure AdjustTotalCount(Node: PVirtualNode; Value: Integer; relative: Boolean = False);
procedure AdjustTotalHeight(Node: PVirtualNode; Value: Integer; relative: Boolean = False); procedure AdjustTotalHeight(Node: PVirtualNode; Value: Integer; relative: Boolean = False);
@ -2006,7 +2006,7 @@ type
procedure PaintImage(const PaintInfo: TVTPaintInfo; ImageInfoIndex: TVTImageInfoIndex; Images: TCustomImageList; procedure PaintImage(const PaintInfo: TVTPaintInfo; ImageInfoIndex: TVTImageInfoIndex; Images: TCustomImageList;
DoOverlay: Boolean); virtual; DoOverlay: Boolean); virtual;
procedure PaintNodeButton(xCanvas: TCanvas; Node: PVirtualNode; const R: TRect; ButtonX, ButtonY: Integer; procedure PaintNodeButton(xCanvas: TCanvas; Node: PVirtualNode; const R: TRect; ButtonX, ButtonY: Integer;
BidiMode: TBiDiMode); virtual; xBidiMode: TBiDiMode); virtual;
procedure PaintTreeLines(const PaintInfo: TVTPaintInfo; VAlignment, IndentSize: Integer; procedure PaintTreeLines(const PaintInfo: TVTPaintInfo; VAlignment, IndentSize: Integer;
LineImage: TLineImage); virtual; LineImage: TLineImage); virtual;
procedure PaintSelectionRectangle(Target: TCanvas; WindowOrgX: Integer; const SelectionRect: TRect; procedure PaintSelectionRectangle(Target: TCanvas; WindowOrgX: Integer; const SelectionRect: TRect;
@ -3096,7 +3096,7 @@ begin
// Note: vertical alignment does only work with single line text ouput! // Note: vertical alignment does only work with single line text ouput!
TextPosY := (lpRect.Top + lpRect.Bottom - TextHeight) div 2; TextPosY := (lpRect.Top + lpRect.Bottom - TextHeight) div 2;
end; end;
SetTextAlign(DC, TextAlign); // SetTextAlign(DC, TextAlign);
if uFormat and DT_SINGLELINE <> 0 then if uFormat and DT_SINGLELINE <> 0 then
begin begin
if CalculateRect then if CalculateRect then
@ -9894,7 +9894,7 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
procedure TBaseVirtualTree.AdjustImageBorder(Images: TCustomImageList; BidiMode: TBidiMode; VAlign: Integer; var R: TRect; procedure TBaseVirtualTree.AdjustImageBorder(Images: TCustomImageList; xBidiMode: TBidiMode; VAlign: Integer; var R: TRect;
var ImageInfo: TVTImageInfo); var ImageInfo: TVTImageInfo);
// Depending on the width of the image list as well as the given bidi mode R must be adjusted. // Depending on the width of the image list as well as the given bidi mode R must be adjusted.
@ -19259,7 +19259,7 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
procedure TBaseVirtualTree.PaintNodeButton(xCanvas: TCanvas; Node: PVirtualNode; const R: TRect; ButtonX, procedure TBaseVirtualTree.PaintNodeButton(xCanvas: TCanvas; Node: PVirtualNode; const R: TRect; ButtonX,
ButtonY: Integer; BidiMode: TBiDiMode); ButtonY: Integer; xBidiMode: TBiDiMode);
var var
Bitmap: TBitmap; Bitmap: TBitmap;