Вопрос - ответ

[yuray]

Я проблему со шрифтом решил так
Enviroment -> Options...-> Editor -> Display -> Default editor font = Courier

При этом меня все устраивает. Пока поправят баг можно и с Courier поработать.

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

Очень важно периодически отслеживать изменения с отчетом об ошибке

[Andreich]

Очень важно периодически отслеживать изменения с отчетом об ошибке

Ага, очень быстро удалось решить проблему! Правда я сначала не совсем разобрался, что с патчем делать,.. Но теперь полный порядок.

[yuray]

Очень важно периодически отслеживать изменения с отчетом об ошибке

На мой взгляд, очень важно озвучить сначала проблему здесь на форуме, чтобы нужные люди ее услышали.

[DIEmens]

как провести крос компиляцию???

[Attid]

как провести крос компиляцию???

прочитать статью на сайте там все расписанно.

[DIEmens]

можно ссыль?=)
я уже обгуглив все=) и ничего не нашел=(

Добавлено спустя 4 часа 52 минуты 22 секунды:
на счет кроскомпиляции - поставил под виртуалкой убунту i386 и компилирую

новый вопрос: аналог делфийскому mediaplayer есть?=)

[Attid]

http://freepascal.ru/article//raznoe/

Особенности национальной кросс-компиляции

[VirtUX]

Пример:

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

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls;

type

  { TForm1 }

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

var
  Form1: TForm1;

implementation

const
  Aro = 5;

var
  pan: TPanel;
  but1, but2, but3, but4: TButton;

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
begin
  if pan = nil then begin
    pan := TPanel.Create(Application.MainForm);
    pan.Parent := Application.MainForm;
    pan.Align:= alClient;
    if but1 = nil then begin
      but1 := TButton.Create(Application.MainForm);
      but1.Parent := pan;
      but1.Caption:= 'but1';
      but1.Align:= alTop;
      but1.BorderSpacing.Around:= Aro;
    end;
    if but2 = nil then begin
      but2 := TButton.Create(Application.MainForm);
      but2.Parent := pan;
      but2.Caption:= 'but2';
      but2.Align:= alTop;
      but2.BorderSpacing.Around:= Aro;
    end;
    if but3 = nil then begin
      but3 := TButton.Create(Application.MainForm);
      but3.Parent := pan;
      but3.Caption:= 'but3';
      but3.Align:= alTop;
      but3.BorderSpacing.Around:= Aro;
    end;
    if but4 = nil then begin
      but4 := TButton.Create(Application.MainForm);
      but4.Parent := pan;
      but4.Caption:= 'but4';
      but4.Align:= alTop;
      but4.BorderSpacing.Around:= Aro;
    end;
    pan.Show;
    Application.MainForm.AutoSize:= true;
  end;
end;

initialization
  {$I unit1.lrs}

end.


Внимание вопрос:
Как сделать програмно, чтоб можно было отображать кнопки в любом порядке сверху вниз?

[Attid]

типа чтобы по собитию кнопки с
1
2
3
4

поменялись на

4
3
2
1
?

можно якорями или проходишь циклом от 4 до 1 и каждому присваиваешь top = form.heigth, а там они сами разберутся.

[VirtUX]

с проходом в цикле ситуация не изменилась - они могут выстроиться как угодно.
а поподробней про якоря можно?

[Odyssey]

новый вопрос: аналог делфийскому mediaplayer есть?=)

Лучше поздно чем никогда
На форуме Lazarus упоминали:
ACS - http://wiki.lazarus.freepascal.org/ACS
OpenAL - http://www.noeska.com/doal/default.aspx