Ошибка при сборке (Win32)

[FeLiX]

Использую в проекте код:

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

var
  p: TPoint;
begin
  if not Assigned(FilterForm) then FilterForm := TFilterForm.Create(nil);
  FilterForm.PopupParent := SpicForm;
  p := Point(SpeedButton5.Width, SpeedButton5.Top);
  with SpeedButton5.ClientToScreen(p) do
  begin
    FilterForm.Left := X - SpeedButton5.Width;
    FilterForm.Top := (Y - FilterForm.Height) - 2;
  end;
  FilterForm.Show;

В линукс проект собирается норомально. В win же выдает ругается на строчку p := Point(SpeedButton5.Width, SpeedButton5.Top); Сообщение:

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

ChatUnit.pas(94,37) Fatal: Syntax error, ")" expected but "," found

Кто нибуть может объямнить, почему компилятор требует в win скобку после SpeedButton5.Width.

[alaken]

какая у вас версия Lazarus и FPC?

[FeLiX]

Оу, забыл указать, первоначально был Lazarus 0.9.29 FPC 2.4.0 из Snapshots. В линукс стоит из svn, думал в этом дело, обновил до Lazarus 0.9.29 FPC 2.5.1, ошибка осталась.
Обратил внимание компилятор ругается, при использовании модуля windows.

[Mr.Smart]

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

...
  Classes.Point(SpeedButton5.Width, SpeedButton5.Top);
...

[VirtUX]

Обратил внимание компилятор ругается, при использовании модуля windows.

Закоментируйте его. Он под Linux не нужен.

[Mr.Smart]

VirtUX Внимательно прочтите вопрос.

...
В линукс проект собирается норомально. В win же выдает ругается на строчку p := Point(SpeedButton5.Width, SpeedButton5.Top);
...

[FeLiX]

И что? Это для кросс проекта. Использую {$IFDEF WINDOWS},windows {$ENDIF};

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

  {$IFDEF WINDOWS}
   SetWindowLong(Handle, GWL_HWNDPARENT, 0);
   SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
   {$ENDIF} 


Если бы не этот отказался быот этого модуля.
Как еще можно сделать другую форму не зависимой от главной. Что бы при сворачивании главной другая оставалась и наоборот.
В линукс это не нужно. А вот виндовс приходится.

[VirtUX]

Внимательно прочтите вопрос.

Ях!.. Сорри.

[alaken]

чтото похожее было, так и не смог победить
проверьте в исходном коде проекта нет ли лишних подключенных модулей... (Проект-Посмотреть исходный код проекта)

пробовали как советовал Mr.Smart на прямую вызвать из модуля метод?

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

Classes.Point(SpeedButton5.Width, SpeedButton5.Top);

как вариант костыль

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

var
  p: TPoint;
begin
  if not Assigned(FilterForm) then FilterForm := TFilterForm.Create(nil);
  FilterForm.PopupParent := SpicForm;

  p.X := SpeedButton5.Width;
  p.Y := SpeedButton5.Top;

  with SpeedButton5.ClientToScreen(p) do
  begin
    FilterForm.Left := X - SpeedButton5.Width;
    FilterForm.Top := (Y - FilterForm.Height) - 2;
  end;
  FilterForm.Show;

[FeLiX]

Раньше не упсел проверить.
Вот это

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

Classes.Point(SpeedButton5.Width, SpeedButton5.Top);

Работает. Спасибо...

[Vadim]

FeLiX
Поменяйте местаами, в строке Uses, модули Classes и Windows. Модуль, что стоит на втором месте, перекрывает модуль, который стоит на первом месте. Либо, если одинаковых названий из того и другого модуля много и используются они с равной степенью вероятности, используйте уточнение названия, как предложил Mr.Smart, т.е. перед названием функции ставьте название модуля.