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

2
components/callite/demo1/CalLiteTest.lpi
View File

@@ -9,7 +9,6 @@
<Title Value="CalLiteTest"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
@@ -58,6 +57,7 @@
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>

2
components/callite/demo1/main.lfm
View File

@@ -12,7 +12,7 @@ object Form1: TForm1
OnCreate = FormCreate
OnResize = FormResize
Position = poScreenCenter
LCLVersion = '1.7'
LCLVersion = '1.6.0.4'
object edtYear: TEdit
Left = 122
Height = 18

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);