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

TvPlanIt: Some cosmetic changes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8174 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2021-12-13 21:26:19 +00:00
parent a94f08651f
commit aedf5ffcc0
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -384,20 +384,20 @@ procedure TMainForm.Cb3DChange(Sender: TObject);
var var
ds: TVpDrawingStyle; ds: TVpDrawingStyle;
begin begin
ds := TVpDrawingStyle(CbDrawingStyle.ItemIndex); ds := TVpDrawingStyle(CbDrawingStyle.ItemIndex);
VpTaskList1.DrawingStyle := ds; VpTaskList1.DrawingStyle := ds;
VpContactGrid1.DrawingStyle := ds; VpContactGrid1.DrawingStyle := ds;
VpDayView1.DrawingStyle := ds; VpDayView1.DrawingStyle := ds;
VpWeekView1.DrawingStyle := ds; VpWeekView1.DrawingStyle := ds;
VpMonthView1.DrawingStyle := ds; VpMonthView1.DrawingStyle := ds;
end; end;
procedure TMainForm.CbAddressBuilderChange(Sender: TObject); procedure TMainForm.CbAddressBuilderChange(Sender: TObject);
begin begin
if CbAddressBuilder.ItemIndex <= 0 then if CbAddressBuilder.ItemIndex <= 0 then
VpControlLink1.CityStateZipFormat := '' VpControlLink1.CityStateZipFormat := ''
else else
VpControlLink1.CityStateZipFormat := CbAddressBuilder.Items[CbAddressBuilder.ItemIndex]; VpControlLink1.CityStateZipFormat := CbAddressBuilder.Items[CbAddressBuilder.ItemIndex];
end; end;
procedure TMainForm.CbAllowDragAndDropChange(Sender: TObject); procedure TMainForm.CbAllowDragAndDropChange(Sender: TObject);