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

completed compstyles and fixed calendar date parsing from Karl

Browse Source 
git-svn-id: trunk@4693 -
This commit is contained in:
mattias 2003-10-02 11:33:39 +00:00
parent 635996eafe
commit e1bc3744cc
3 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/calendar.pp
View File

@ -109,7 +109,7 @@ begin
SetBounds(0,0,250,150);
fDisplaySettings := [dsShowHeadings, dsShowDayNames];
ControlStyle:=ControlStyle-csMultiClicks-[csAcceptsControls];
Date := FormatDateTime('dd-mm-yyyy',Now);
Date := FormatDateTime(ShortDateFormat,Now);
end;
destructor TCalendar.Destroy;
@ -185,7 +185,7 @@ begin
if HandleAllocated then
begin
CNSendMessage(LM_GETVALUE, Self, @temp); // Get the info
FDate := FormatDateTime('dd-mm-yyyy',Temp.Date);
FDate := FormatDateTime(ShortDateFormat,Temp.Date);
end;
end;

13
lcl/include/wincontrol.inc
View File

@ -2735,12 +2735,18 @@ end;
procedure TWinControl.CreateComponent(TheOwner : TComponent);
------------------------------------------------------------------------------}
procedure TWinControl.CreateComponent(TheOwner : TComponent);
procedure RaiseError(const Msg: string);
begin
RaiseGDBException('TWinControl.CreateComponent: '+Name+':'+ClassName+' '+Msg);
end;
begin
if HandleAllocated then
RaiseGDBException('TWinControl.CreateComponent: Handle already created');
RaiseError('Handle already created');
CNSendMessage(LM_CREATE, Self, nil);
if not HandleAllocated then
RaiseGDBException('TWinControl.CreateComponent: Handle creation failed');
RaiseError('Handle creation failed');
end;
{------------------------------------------------------------------------------
@ -3109,6 +3115,9 @@ end;
{ =============================================================================
$Log$
Revision 1.175 2003/10/02 11:33:39 mattias
completed compstyles and fixed calendar date parsing from Karl
Revision 1.174 2003/09/26 06:59:59 mattias
implemented GetBrush

12
lcl/vclglobals.pp
View File

@ -239,16 +239,24 @@ Begin
Result := 'csPopupMenu';
csHintWinDow:
Result := 'csHintWinDow';
csCalEndar:
Result := 'csCalEndar';
csCalendar:
Result := 'csCalendar';
csArrow:
Result := 'csArrow';
csPanel:
Result := 'csPanel';
csScrollBox:
Result := 'csScrollBox';
csCheckListBox:
Result := 'csCheckListBox';
csPairSplitter:
Result := 'csPairSplitter';
csPairSplitterSide:
Result := 'csPairSplitterSide';
csPreviewFileControl:
Result := 'csPreviewFileControl';
csPreviewFileDialog:
Result := 'csPreviewFileDialog';
csNonLCL:
Result := 'csNonLCL';
Else