La FAQ Lazarus

Version imprimable

05/09/2009, 11h28
Alcatîz

La FAQ Lazarus

Bonjour à toutes et à tous,

Une FAQ a été construite avec le contenu de l'ancien forum officiel francophone dédié à Lazarus :

:fleche: http://lazarus.developpez.com/faq/

Cette base de connaissances sera régulièrement alimentée avec le contenu du forum actuel.
Les aspects propres au langage Pascal lui-même se trouvent dans la FAQ Pascal.

La FAQ Lazarus est avant tout la vôtre ! Pour participer à son développement, vous pouvez poster vos questions/réponses directement dans la FAQ ou proposer vos corrections sur le forum Contribuez (ou à la suite de ce fil de discussion).
N'hésitez pas à donner votre avis ou à poster vos remarques sur le présent fil de discussion. ;)

Bonne lecture !
06/09/2009, 07h00
SergioMaster

:ccool: je l'avais découvert par hasard , elle manquait . Encore :bravo:
02/06/2010, 16h33
Jipété

Alcatîz : corrigé, merci pour cette contribution

Salut tout le monde.

Dans la première entrée de la faq, "Comment diminuer la taille de l'exécutable ?", la troisième ligne parle d'un onglet "Message", mais c'est faux : l'option en question se trouve dans l'onglet "Verbosity" (version 0.9.28.2 beta).

Valà,
25/11/2010, 08h58
Jipété

Mise à jour

Alcatîz : corrigé, merci pour cette contribution

Bonjour,

Je viens d'apprendre que l'astuce de la FAQ ne fonctionne pas avec une version plus récente, la 0.9.29 r28360 FPC 2.4.3 i386-win32-win32/win64 (info)

Citation:

il faut désactiver l'option "-gl" tous simplement (décocher "Linking" --> "Display line numbers in runtime error backtraces").

(mais je n'ai pas testé)
11/01/2012, 00h53
dragonno

Bonjour,
j'ai regardé la FAQ, je n'ai pas vu une indication sur la licence utilisable avec Lazarus.
03/11/2022, 15h04
Jlmat

FAQ Comment programmer une impression directe

Bonjour,

Dans la Procedure MyOpenPrinter, il est défini la variable Doc1 : DOC_INFO_1;
Il n'y a aucune précision sur le Type DOC_INFO_1;
Comme c'est sensé aider, je pense qu'une info sur le type s'impose...

Bien à vous!
03/11/2022, 20h25
Alcatîz

Bonjour,

J'ai un peu commenté l'initialisation des trois champs de la structure DOC_INFO_1, sans cependant aller jusqu'à définir les formats RAW et EMF. ;)
03/11/2022, 20h53
Jlmat

Citation:

Envoyé par Alcatîz

Bonjour,

J'ai un peu commenté l'initialisation des trois champs de la structure DOC_INFO_1, sans cependant aller jusqu'à définir les formats RAW et EMF. ;)

Ben oui, le DataType avec valeur RAW me parait très ésotérique... Je peux traduire par données brutes mais bon... Et EMF?
Je ne trouve pas de description...

Dans la version 2.2.4 de Lazarus, je ne trouve pas non plus les types suivant, j'ai pourtant mis les unités : ... ExtCtrls, Printers, LResources, PrintersDlgs, Types, StdCtrls... entre autres:
PDev : TPrinterDevice;
TmpDevMode : PDeviceMode;

J'ai du mal à transposer mes codes Delphi en Lazarus car je passe beaucoup de temps à chercher les unités dans lesquelles se trouvent les variables ou la définition des types...
ça serait utile dans la Faq, d'avoir un guide qui donne l'unité dans laquelle se trouve une variable, car si elle est n'est pas reconnue dans le programme, la touche F1 ne donne rien et la recherche sur Internet est fastidieuse...
Par exemple, un index de tous les mots définition tels que https://lazarus-ccr.sourceforge.io/d...l/index-8.html

Bon, c'est peut-être moi qui devient "gogole":?

Merci en tout cas à toute l'équipe de Lazarus et de Développer.com qui font ce qu'ils peuvent pour nous rendre ce site indispensable... Puisse un jour participer plus activement!

Bien à Toi
04/11/2022, 22h12
Alcatîz

Citation:

Envoyé par Jlmat

Ben oui, le DataType avec valeur RAW me parait très ésotérique... Je peux traduire par données brutes mais bon... Et EMF?
Je ne trouve pas de description...

Là on sort un peu du cadre d'une FAQ Lazarus. ;) :fleche: https://learn.microsoft.com/en-us/op...0-5630d1e70879

Citation:

Envoyé par Jlmat

Dans la version 2.2.4 de Lazarus, je ne trouve pas non plus les types suivant, j'ai pourtant mis les unités : ... ExtCtrls, Printers, LResources, PrintersDlgs, Types, StdCtrls... entre autres:
PDev : TPrinterDevice;
TmpDevMode : PDeviceMode;

J'ai du mal à transposer mes codes Delphi en Lazarus car je passe beaucoup de temps à chercher les unités dans lesquelles se trouvent les variables ou la définition des types...
ça serait utile dans la Faq, d'avoir un guide qui donne l'unité dans laquelle se trouve une variable, car si elle est n'est pas reconnue dans le programme, la touche F1 ne donne rien et la recherche sur Internet est fastidieuse...
Par exemple, un index de tous les mots définition tels que https://lazarus-ccr.sourceforge.io/d...l/index-8.html

Bon, c'est peut-être moi qui devient "gogole":?

Le paquetage printer4lazarus a-t-il été ajouté dans les dépendances du projet ?
04/11/2022, 23h09
Jlmat
Citation:

Envoyé par Alcatîz

https://learn.microsoft.com/en-us/op...0-5630d1e70879

Ha oui, c'est sûr! => Microsoft, c'est du bas niveau dans la programmation... Je regrette le temps du simple "printer... begindoc et enddoc...", je fouillais à ce niveau là avec le BPW de Borland, mais maintenant, je cherche des choses simples.
J'espère que Lazarus ne va pas suivre la complexité de Embarcadero avec Delphi pour rester accessible aux passionnés de programmation...
Microsoft donne :
Code:

1 2 3 4 5 typedef struct _DOC_INFO_1 { [string] wchar_t* pDocName; [string] wchar_t* pOutputFile; [string] wchar_t* pDatatype; } DOC_INFO_1;
J'avais réussi à enlever la première erreur en déclarant un type
Code:

1 2 3 4 Type TPrinterDevice = class {type definition NOT interfaced by Printers.pas} Driver, Device, Port: string; end;
Mais je n'ai pas résolu le reste, comme le PDeviceMode. J'avais penser à Travailler avec un handle, mais là, j'atteint mes limites... Trop de variables dont je ne connais pas les sources...
Il doit me manquer une unité dans les déclarations...

Citation:

Le paquetage printer4lazarus a-t-il été ajouté dans les dépendances du projet ?

Oui, le paquet est installé, il est dans la liste des paquets requis! L'erreur vient sur les références aux types TPrinterDevice et PDeviceMode;

A+

Citation:

Envoyé par Jlmat

Ha oui, c'est sûr! => Microsoft, c'est du bas niveau dans la programmation... Je regrette le temps du simple "printer... begindoc et enddoc...",

La classe Printer est déclarée dans l'unité TPrinter :
(exemple d'impression du contenu d'un TMemo)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TfrmPrincipale.mnuFichierImprimerClick(Sender: TObject);
(* impression du texte *)
const
  CMARGEGAUCHE = 110;
  CMARGEHAUT = 110;
var
  Li, LHauteur: Integer;
begin
  if dlgImprimer.Execute then
    begin
      try
        Printer.Copies := dlgImprimer.Copies;
        Printer.BeginDoc;
        Printer.Canvas.Font.Name := mmoEditeur.Font.Name;
        Printer.Canvas.Font.Size := mmoEditeur.Font.Size;
        Printer.Canvas.Font.Color := mmoEditeur.Font.Color;
        LHauteur := CMARGEHAUT;
        for Li := 0 to (mmoEditeur.Lines.Count - 1) do
          begin
            Printer.Canvas.TextOut(CMARGEGAUCHE, Lhauteur, mmoEditeur.Lines[Li]);
            LHauteur := LHauteur + Round(1.2 * Abs(Printer.Canvas.TextHeight('I')));
            if LHauteur >= Printer.PageHeight then (* saut de page *)
              begin
                Printer.NewPage;
                LHauteur := CMARGEHAUT;
              end;
          end;
      finally
        Printer.EndDoc;
      end;
    end;
end;

;)

05/11/2022, 09h02
Jlmat

1 pièce(s) jointe(s)
Citation:

Envoyé par Alcatîz

La classe Printer est déclarée dans l'unité TPrinter :
(exemple d'impression du contenu d'un TMemo)
;)

Ok Alcatiz, c'est ce que j'avais fait en premier; mais j'obtenais une erreur :

Pièce jointe 628412

le fonction printers.pas concernée est:
Code:

1 2 3 4 function TPrinter.GetPrinting: Boolean; begin result := (pfPrinting in fFlags); end;
J'ai donc refais une appli juste avec le Memo et l'unité Printers et là, ça marche!
Je dois avoir un conflit dans les déclarations de ma fiche ou de mon programme principal... Je fais un essai et vous tiens au courant
05/11/2022, 11h33
Jlmat
Citation:

Envoyé par Jlmat

J'ai donc refais une appli juste avec le Memo et l'unité Printers et là, ça marche!
Je dois avoir un conflit dans les déclarations de ma fiche ou de mon programme principal... Je fais un essai et vous tiens au courant

Je vais plus vous ennuyer! Je sais que ça n'est pas ici qu'on résout les erreurs de programmation.

Mais je voulais vous signaler la cause de mon erreur, ça peut quand même servir à d'autres:
j'avais déclaré et initialisé à Nil une variable au début de la fiche :
Code:

1 2 //var // Printer : TPrinter = nil;
Merci Alcatîz pour ton aide