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

tvplanit: Add datastore method DeleteResource.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8351 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-07-16 16:38:36 +00:00
parent 6b91b30c26
commit beb0481d33
5 changed files with 51 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -4,11 +4,12 @@ object MainForm: TMainForm
Top = 134
Width = 959
Caption = 'Turbo Power VisualPlanIt Demo'
ClientHeight = 596
ClientHeight = 576
ClientWidth = 959
Menu = MainMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 125
Height = 596
@ -58,7 +59,7 @@ object MainForm: TMainForm
Height = 548
Top = 48
Width = 834
PageIndex = 4
PageIndex = 0
Align = alClient
TabOrder = 1
TabStop = True

2
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -363,7 +363,7 @@ begin
if MessageDlg(Format(RSConfirmDeleteRes, [res.Description]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
VpControlLink1.Datastore.PurgeResource(res);
VpControlLink1.Datastore.DeleteResource(res);
UpdateOtherResourcesList;
end;
end;