paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-20 21:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added calendar to allunits and removed unused vars

Browse Source 
git-svn-id: trunk@482 -
This commit is contained in:
lazarus 2001-12-05 18:19:11 +00:00
parent 0d9e2f4b90
commit f43d37ca9b
3 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/main.pp
View File

@ -4978,13 +4978,13 @@ var
Rect : TRect;
AHint : String;
cPosition : TPoint;
TextPosition : TPoint;
SE : TSourceEditor;
// TextPosition : TPoint;
// SE : TSourceEditor;
WIndow : TWInControl;
Caret : TPoint;
// Caret : TPoint;
Control : TCOntrol;
Control2 : TControl;
tempPosition : TPoint;
// Control2 : TControl;
// tempPosition : TPoint;
begin
HintTimer1.Enabled := False;
@ -5064,6 +5064,9 @@ end.
{ =============================================================================
$Log$
Revision 1.164 2001/12/05 18:19:10 lazarus
MG: added calendar to allunits and removed unused vars
Revision 1.163 2001/12/04 14:28:04 lazarus
Added hints to the main ide.
Shane

5
lcl/allunits.pp
View File

@ -12,7 +12,7 @@ unit allunits;
interface
uses
interfacebase, interfaces,
buttons, extctrls, registry, vclglobals,
buttons, extctrls, registry, vclglobals, calendar,
clipbrd, filectrl, forms, lcllinux, spin,
comctrls, graphics, lmessages, stdctrls,
controls, imglist, menus, toolwin,
@ -25,6 +25,9 @@ end.
{ =============================================================================
$Log$
Revision 1.9 2001/12/05 18:19:11 lazarus
MG: added calendar to allunits and removed unused vars
Revision 1.8 2001/06/16 09:14:38 lazarus
MG: added lazqueue and used it for the messagequeue

5
lcl/calendar.pp
View File

@ -98,11 +98,10 @@ begin
end;
procedure TCalendar.SetDate(const AValue: String);
var
Temp : TDateTime;
//var Temp : TDateTime;
begin
try
Temp := StrtoDate(AValue); //test to see if valid date....
{Temp := }StrtoDate(AValue); //test to see if valid date....
FDate := AValue;
SetProps;