Snippets Collections
1) instala lazarus normal

2) instala estas dependencias:

sudo apt-get install msttcorefonts
sudo apt-get install gsfonts
sudo apt-get install sqlite3 libsqlite3-dev
sudo apt-get install libcanberra-gtk-module

3) abre lazarus

4) ve a "packages=> open package file .lpk"

5) en la ventana de busqueda ubica la carpeta donde tienes los fuentes de fast report, yo lo hice con el 6.6

6) vas a buscar el archivo fs_lazarus.lpk y le vas a dar a open

7) en la ventana nueva dale a "compile" y cuando termine vas a "use=>install" en la misma ventanita

8) vas a repetir el mismo proceso del 4 al 7 para estos otros archivo:
fr6_lazarus.lpk
frxchartlazarus.lpk
frxlazdbf.lpk
frxe6_lazarus.lpk
frxlazsqlite.lpk 
function MessageDlg2(capt: string; Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
  aMsgDlg: TForm;
  i: Integer;
  dlgButton: TBitBtn;
  CaptionIndex: Integer;
begin

  { Create the Dialog }
  { Dialog erzeugen }
  
  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
  try
    aMsgDlg.Caption:=capt;
    captionIndex := 0;

    { Loop through Objects in Dialog }
    { Über alle Objekte auf dem Dialog iterieren}

    for i := 0 to aMsgDlg.ComponentCount - 1 do
    begin

     { If the object is of type TButton, then }
     { Wenn es ein Button ist, dann...}

      if (aMsgDlg.Components[i] is TBitBtn) then
      begin
        dlgButton := TBitBtn(aMsgDlg.Components[i]);
        if CaptionIndex > High(Captions) then Break;

        { Give a new caption from our Captions array}
        { Schreibe Beschriftung entsprechend Captions array}

        dlgButton.Caption := Captions[CaptionIndex];
        Inc(CaptionIndex);
      end;
    end;
    Result := aMsgDlg.ShowModal;
  finally
    aMsgDlg.Free;
  end;
end;
//Uses Process,...

function isMacDarkMode: Boolean;
var s:ansistring;
begin
  RunCommand('/usr/bin/defaults',['read','-g','AppleInterfaceStyle'],s);
  Result:=(pos('Dark',s)>0);
end; 
(* in form: Process, Memo, Button, Edit *)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Process1.CommandLine:= Edit1.Text;
  Process1.Execute;
  Memo1.Lines.LoadFromStream(Process1.Output);
end;
star

Mon Aug 29 2022 19:14:28 GMT+0000 (Coordinated Universal Time)

#lazarus
star

Mon Aug 29 2022 18:21:38 GMT+0000 (Coordinated Universal Time)

#lazarus
star

Mon Aug 29 2022 18:10:14 GMT+0000 (Coordinated Universal Time)

#lazarus
star

Mon Aug 29 2022 18:09:38 GMT+0000 (Coordinated Universal Time)

#lazarus

Save snippets that work with our extensions

Available in the Chrome Web Store Get Firefox Add-on Get VS Code extension