Когда выйдет Lazarus 9.26?

[sobee]

Attid
Ну так выбирайте по вкусу: исходный код или бинарную сборку. СВН хоть и не последний, но очень свежий

Сходил я по этой ссылке и выкачал Lazarus-0.9.25-fpc-2.2.2-20080817-win32.exe и теперь имею вопрос к знатокам:
Кто-нибудь в курсе почему в этой сборке Лазаря выложенной на Lazarus Snapshots не работает DataTimeToString, хотя в сборке FPC 2.2.2 эта функция работает. Обе сборки под Win32.

[Brainenjii]

Может потому что DateTimeToStr? А вообще, лучше пользоваться FormatDateTime... В DateTimeToStr в винде и линуксе давал разные результаты - c '.' и '/' в качестве разделителя в дате... Хотя системный разделитель в линуксе - '.'. А Firebird 20/08/2008 за дату не воспринимает...

UPD: ещё не работает редактирование порядка перехода по табам...

[Павел Ишенин]

UPD: ещё не работает редактирование порядка перехода по табам...

Чего не работает конкретно?

[Brainenjii]

Хм... Просто не работает ^_^ Есть 3 панели, на каждой - контролы, перетаскиваю первую вниз, нажимаю ОК, снова открываю "Порядок перехода" - и всё как было...

[sobee]

Может потому что DateTimeToStr?

Нет, DateTimeToString не работает, результирующая строка показывает пустоту. DateTimeToStr у меня работает нормально.

[GrayEddy]

Бинарная сборка Lazarus 0.9.25 от 15.08
Кидаем на форму TCalcEdit, запускаем форму, вызываем калькулятор - получаем Unsupported ResourceType: XPM
Эту ошибку пофиксили пару месяцев назад, когда переписывали поддержку графики - и вот, опять всплыла.

[Павел Ишенин]

а нельзя ли все это в баг-трекер?

Добавлено спустя 17 минут 38 секунд:

Есть 3 панели, на каждой - контролы, перетаскиваю первую вниз, нажимаю ОК, снова открываю "Порядок перехода" - и всё как было...

Ничего не понял. Как перетаскиваете - в диалоге нельзя перетаскивать - только стрелки? Можно подробнее точный порядок действий и пример и в баг-трекер.

Добавлено спустя 13 минут 1 секунду:
Ошибка с TCalcEdit исправлена в ревизии 16177

[sobee]

Сходил я по этой ссылке и выкачал Lazarus-0.9.25-fpc-2.2.2-20080817-win32.exe и теперь имею вопрос к знатокам:
Кто-нибудь в курсе почему в этой сборке Лазаря выложенной на Lazarus Snapshots не работает DataTimeToString, хотя в сборке FPC 2.2.2 эта функция работает. Обе сборки под Win32.

Вот пример взятый из руководства по FPC для DataTimeToString и использованный в виде теста. В FPC 2.2.2 отработал на "Ура".

Код: Выделить всё

unit datetimets2_;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, EditBtn,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  S : String;

implementation

{ TForm1 }

Procedure today ( Fmt : string );
begin
DateTimeToString ( S, Fmt , Date );
end;
Procedure New ( Fmt : string );
begin
DateTimeToString ( S, Fmt , Time );
end;



procedure TForm1.FormCreate(Sender: TObject);
begin

   Today ( ' " Сегодня " dddd dd mmmm yyyy г.' );
   if S = ' ' then
   begin
   Label1.Caption:= S  + #13;
   Today ( ' " Сегодня " d mmm yy г.' );
   Label1.Caption:= Label1.Caption + S  + #13;
   Today ( ' " Сегодня " d /mmm/ yy г.' );
   Label1.Caption:= Label1.Caption + S  + #13;
   New ( ' " Время " am/pm h: n : s ' );
   Label1.Caption:= Label1.Caption + S  + #13;
   New ( ' " Время " hh : nn : ss am/pm' );
   Label1.Caption:= Label1.Caption + S  + #13;
   New ( ' " Время " tt ' );
   Label1.Caption:= Label1.Caption + S;
   end
   else
   begin
     Label1.Caption:= DateTimeToStr(Date) + #13;
     Label1.Caption:= Label1.Caption + DateTimeToStr(Now)  + #13;
   end;
end;

initialization
  {$I datetimets2_.lrs}

end.
     

В результате в форму выводится результат работы DateTimeToStr вместо DateTimeToString . А вот другой пример

Код: Выделить всё

unit datetimets3_;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, EditBtn,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  S : String;
implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
     S := FormatDateTime ( ' " Сегодня " dddd dd mmmm yyyy г.', Date );
     Label1.Caption:= S  + #13;
     S := FormatDateTime ( ' " Сегодня " d mmm yy г.', Date );
     Label1.Caption:= Label1.Caption + S  + #13;
     S := FormatDateTime ( ' " Сегодня " d /mmm/ yy г.', Date );
     Label1.Caption:= Label1.Caption + S  + #13;
     S := FormatDateTime ( ' " Время " am/pm h: n : s ', Time );
     Label1.Caption:= Label1.Caption + S  + #13;
     S := FormatDateTime ( ' " Время " hh : nn : ss am/pm', Time );
     Label1.Caption:= Label1.Caption + S  + #13;
     S := FormatDateTime ( ' " Время " tt ', Time );
     Label1.Caption:= Label1.Caption + S;


end;

initialization
  {$I datetimets3_.lrs}

end.
               

После запуска мы видим пустую форму вместо результата FormatDateTime. До этого у меня был установлена сборка Лазаря Lazarus-0.9.25-fpc-2.2.0-20080309-win32 и все прекрасно работало. В чем грабли? Можно ли использовать автономный дистр. FPC 2.2.2 и как?

[Padre_Mortius]

похоже грабли в кодировке.

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
     S := FormatDateTime ( ' " Сегодня " dddd dd mmmm yyyy г.', Date );
     Label1.Caption:= AnsiToUTF8(S)  + #13;
     S := FormatDateTime ( ' " Сегодня " d mmm yy г.', Date );
     Label1.Caption:= Label1.Caption + AnsiToUTF8(S)  + #13;
     S := FormatDateTime ( ' " Сегодня " d /mmm/ yy г.', Date );
     Label1.Caption:= Label1.Caption + AnsiToUTF8(S)  + #13;
     S := FormatDateTime ( ' " Время " am/pm h: n : s ', Time );
     Label1.Caption:= Label1.Caption + AnsiToUTF8(S)  + #13;
     S := FormatDateTime ( ' " Время " hh : nn : ss am/pm', Time );
     Label1.Caption:= Label1.Caption + AnsiToUTF8(S)  + #13;
     S := FormatDateTime ( ' " Время " tt ', Time );
     Label1.Caption:= Label1.Caption + AnsiToUTF8(S);
end;

Так все отображается, но есть мусор в начале строк.

[Attid]

обновился , что порадовало так это новые иконки =)

что расстроило

1, ошибка в моих приложениях (в аттаче), но думаю что это UIB тем более что были жалобы на форуме
2, перестала работать моя функция транслитерации, так как буква теперь не char и не работает с case , но тоже решаемо.
3, так и не починили прыгающие окна lcl в убунте, и как их примерно исправить в гтк1 я еще знал. а вот про гтк2 вообще не знаю =(

[Павел Ишенин]

прыгающие окна lcl в убунте

что это?

Добавлено спустя 24 минуты 37 секунд:

похоже грабли в кодировке

Вот правильный код, который одинаково правильно отображается под windows для win32, qt, gtk2. Под linux не пробовал, но раз gtk2 и qt сработали на windows, то и с linux должно все быть отлично. Не забывайте, что когда вы вставляете этот текст в win32 ide он сохраняется в utf8 и в дальнейшем в utf8 компилируюется - отсюда Utf8ToAnsi() перед каждым русским предложением.

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := FormatDateTime ( Utf8ToAnsi(' " Сегодня " dddd dd mmmm yyyy г.'), Date );
  Label1.Caption:= AnsiToUtf8(S) + LineEnding;
  S := FormatDateTime ( Utf8ToAnsi(' " Сегодня " d mmm yy г.'), Date );
  Label1.Caption:= Label1.Caption + AnsiToUtf8(S) + LineEnding;
  S := FormatDateTime ( Utf8ToAnsi(' " Сегодня " d /mmm/ yy г.'), Date );
  Label1.Caption:= Label1.Caption + AnsiToUtf8(S) + LineEnding;
  S := FormatDateTime ( Utf8ToAnsi(' " Время " am/pm h: n : s '), Time );
  Label1.Caption:= Label1.Caption + AnsiToUtf8(S) + LineEnding;
  S := FormatDateTime ( Utf8ToAnsi(' " Время " hh : nn : ss am/pm'), Time );
  Label1.Caption:= Label1.Caption + AnsiToUtf8(S) + LineEnding;
  S := FormatDateTime ( Utf8ToAnsi(' " Время " tt '), Time );
  Label1.Caption:= Label1.Caption + AnsiToUtf8(S);
end;


[Padre_Mortius]

Павел Ишенин
Самое оригинальное, что например в Memo можно вставлять без конвертации UTF8<>Ansi

[Sawer]

Павел Ишенин
Самое оригинальное, что например в Memo можно вставлять без конвертации UTF8<>Ansi

это где и когда такое??? сам сталкивался и без доп. модулей конвертации хрен че русское добавлялось в memo!

[Brainenjii]

я уже вроде больше месяца без всяких конвертаций и в линуксе и в виндовзе вывожу всё куда хочу ^_^ Исключение - модуль Windows - GetUserName приходится в Utf8Encode заворачивать ^_^

[Attid]

что это?

http://mantis.freepascal.org/view.php?id=8894

на выходных сделаю видео как это в гтк2 у меня выглядит.

Добавлено спустя 17 часов 24 минуты 15 секунд:
ну вот у меня еще под гтк2 банальный showmessage не работает , просто виснет приложение. а если запустить под gdb то приложение при первом эксепшене валится. =((