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

TvPlanit: Make TVpLinkableControl.CheckCreateResource public.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8344 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-07-12 10:09:41 +00:00
parent 6570c023c5
commit bb0b4d368c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpbaseds.pas
View File

@ -358,7 +358,6 @@ type
FReadOnly: Boolean; FReadOnly: Boolean;
FControlLink: TVpControlLink; FControlLink: TVpControlLink;
FLastPrintLine: Integer; FLastPrintLine: Integer;
function CheckCreateResource : Boolean;
procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure SetDataStore (const Value : TVpCustomDataStore); virtual; procedure SetDataStore (const Value : TVpCustomDataStore); virtual;
procedure SetControlLink (const Value : TVpControlLink); procedure SetControlLink (const Value : TVpControlLink);
@ -367,6 +366,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
function CheckCreateResource : Boolean;
function GetLastPrintLine: Integer; function GetLastPrintLine: Integer;
function GetControlType: TVpItemType; virtual; abstract; function GetControlType: TVpItemType; virtual; abstract;
procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect;