Hi,
I've got the following local changes to my Lazarus. I think these
will be handy for everybody when part of official Lazarus.
Changes:
* Format the compile date to the ISO 8601 format: yyyy-mm-dd
Lazarus is used internationally, so use a international format date.
Before it used to default to a 2 digit year which looked crap and I'm never
sure about the format used (mm-dd-yy, dd-mm-yy, yy-mm-dd etc...).
* On clicking the Close button, some version information in copied to the
clipboard. This is very handy now that the revision numbers are bigger. If
I ever need to quote my version of Lazarus and toolkit used (like
in mailing
list or Mantis) I simply open the dialog and close it again. Now I can copy
a accurate version + widgetset string somewhere.
Index: ide/aboutfrm.pas
===================================================================
--- ide/aboutfrm.pas (revision 13182)
+++ ide/aboutfrm.pas (working copy)
@@ -69,7 +69,10 @@
implementation
+uses
+ Clipbrd;
+
function ShowAboutForm: TModalResult;
var
AboutForm: TAboutForm;
@@ -93,6 +96,7 @@
destructor TAboutForm.Destroy;
begin
+ Clipboard.AsText := LazarusVersionStr + ' r' + LazarusRevisionStr +
' ' + PlatformLabel.Caption;
FPixmap.Free;
FPixmap:=nil;
@@ -119,7 +123,8 @@
Date := EncodeDate(StrToWord(Copy(BuildDate,1,SlashPos1-1)),
StrToWord(Copy(BuildDate,SlashPos1+1,SlashPos2-SlashPos1-1)),
StrToWord(Copy(BuildDate,SlashPos2+1,Length(BuildDate)-SlashPos2)));
- Result := DateTimeToStr(Date);
+ //Result := DateTimeToStr(Date);
+ Result := FormatDateTime('yyyy-mm-dd', Date);
end;
begin
--------------------------------------------------------
Regards,
- Graeme -
_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
