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

tvplanit: Less hints and warnings. Cosmetic changes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-12 18:00:32 +00:00
parent 6517dc0e2e
commit d616eba746
39 changed files with 427 additions and 399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpevnteditdlg.pas
View File

@ -279,6 +279,8 @@ var
Name: string;
ColorRect: TRect;
begin
Unused(Control, State);
Category.Canvas.FillRect(ARect);
Color := CatColorMap.GetCategory(Index).Color;
@ -483,9 +485,9 @@ begin
end;
{=====}
{ Inc or Dec AlarmAdvance according to which button was pressed }
procedure TDlgEventEdit.AdvanceUpDownClick(Sender: TObject; Button: TUDBtnType);
begin
{ Inc or Dec AlarmAdvance according to which button was pressed }
{ case Button of
btNext:
AlarmAdvance.Text := IntToStr(StrToIntDef(AlarmAdvance.Text, 0) + 1);