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

15
components/tvplanit/examples/datastores/ini/unit1.lfm
View File

@ -23,7 +23,7 @@ object Form1: TForm1
AnchorSideLeft.Control = Panel1
Left = 4
Height = 23
Top = 5
Top = 4
Width = 208
DataStore = VpIniDatastore1
Style = csDropDownList
@ -61,6 +61,19 @@ object Form1: TForm1
OnClick = BtnEditResClick
TabOrder = 2
end
object BtnDeleteRes: TButton
AnchorSideLeft.Control = BtnEditRes
AnchorSideLeft.Side = asrBottom
Left = 416
Height = 25
Top = 4
Width = 107
AutoSize = True
BorderSpacing.Left = 4
Caption = 'Delete resource'
OnClick = BtnDeleteResClick
TabOrder = 3
end
end
object PageControl1: TPageControl
Left = 0

18
components/tvplanit/examples/datastores/ini/unit1.pas
View File

@ -17,6 +17,7 @@ type
TForm1 = class(TForm)
BtnNewRes: TButton;
BtnEditRes: TButton;
BtnDeleteRes: TButton;
PageControl1: TPageControl;
Panel1: TPanel;
Panel2: TPanel;
@ -36,6 +37,7 @@ type
VpResourceEditDialog1: TVpResourceEditDialog;
VpTaskList1: TVpTaskList;
VpWeekView1: TVpWeekView;
procedure BtnDeleteResClick(Sender: TObject);
procedure BtnNewResClick(Sender: TObject);
procedure BtnEditResClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -65,6 +67,22 @@ begin
VpResourceEditDialog1.AddNewResource;
end;
procedure TForm1.BtnDeleteResClick(Sender: TObject);
var
res: TVpResource;
begin
res := VpControlLink1.Datastore.Resource;
if res = nil then
exit;
if MessageDlg('Do you really want to delete the resource "' + res.Description + '"?',
mtConfirmation, [mbYes, mbNo], 0) <> mrYes
then
exit;
VpControlLink1.Datastore.DeleteResource(res);
end;
// Edits the currently selected resource
procedure TForm1.BtnEditResClick(Sender: TObject);
begin