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

CalLite: Add readme.txt. Less hints.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5313 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-03 23:56:02 +00:00
parent 7ffd37fa20
commit f83799d4a3
5 changed files with 27 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/callite/demo1/main.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
LclType, Buttons, StdCtrls, ComCtrls, Grids, DateUtils, CalendarLite;
LclType, Buttons, StdCtrls, DateUtils, CalendarLite;
type
@ -17,8 +17,8 @@ type
edtMonth: TEdit;
Label1: TLabel;
procedure btnCloseClick(Sender: TObject);
procedure edtYearKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure edtMonthKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure edtYearKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure edtMonthKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
@ -64,7 +64,7 @@ begin
MonthsList:= TStringList.Create;
for I:= 0 to 11 do begin
MonthsList.Add(AnsiToUTF8(ShortMonthNames[I+1]));
MonthsList.Add(AnsiToUTF8(FormatSettings.ShortMonthNames[I+1]));
end;
AYear:= YearOf(Now);