ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/ibcontrols/IBDynamicGrid.pas

Comparing ibx/trunk/ibcontrols/IBDynamicGrid.pas (file contents):
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 407 by tony, Tue Dec 6 23:18:32 2022 UTC

#	Line 33 | Line 33 | interface
33		uses
34		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, DBGrids, DB,
35		IBSQLParser, Grids, IBLookupComboEditBox, LMessages, StdCtrls, ExtCtrls,
36	<	IBCustomDataSet;
36	>	IBCustomDataSet, LCLVersion;
37
38		type
39		{
#	Line 196 | Line 196 | end;
196		procedure DoGridResize;
197		procedure DoEditorHide; override;
198		procedure DoEditorShow; override;
199	+	{$IF (LCL_FULLVERSION < 2030000)}
200		procedure DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; aText: String); override;
201	+	{$ELSE}
202	+	procedure DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; const aText: String); override;
203	+	{$IFEND}
204		Function  EditingAllowed(ACol : Integer = -1) : Boolean; override;
205		procedure EditorHide; override;
206		procedure IndicatorClicked(Button: TMouseButton; Shift:TShiftState); virtual;
#	Line 452 | Line 456 | begin
456		inherited DoEditorShow;
457		end;
458
459	+	{$IF LCL_FULLVERSION < 2030000}
460		procedure TDBDynamicGrid.DrawCellText(aCol, aRow: Integer; aRect: TRect;
461		aState: TGridDrawState; aText: String);
462	+	{$ELSE}
463	+	procedure TDBDynamicGrid.DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; const aText: String); override;
464	+	{$IFEND}
465		var Style: TTextStyle;
466		OldStyle: TTextStyle;
467		begin

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines