Afficher un document formaté

Version imprimable

24/09/2011, 14h20
joreveur

Afficher un document formaté

Bonjour,

je voudrais mettre en place une notice à un jeu... (à votre avis lequel ? :roll: )

je voudrais que quand l'utilisateur clique sur un bouton ça lui ouvre une petite fenêtre où il pourrait la lire.

Avec Tmemo ça fonctionne mais mon idée serait de faire un peu plus beau..., avec un titre plus gros, centré, des sous-titres soulignés, des mots en gras, etc.. un peu comme dans cet éditeur du forum.

Je peux créer un document formaté, mais comment l'afficher dans le Tform ?

Sous Delphi il me semble qu'il y avait un composant style RTF mais sous Lazarus je ne trouve rien.. Il n'y a pas une astuce ? Car je suis sur un environnement Linux et j'utilise Lazarus.

Merci...
24/09/2011, 14h49
EpiTouille

Citation:

Envoyé par joreveur

Bonjour,

je voudrais mettre en place une notice à un jeu... (à votre avis lequel ? :roll: )

TETRIS ! :lol:

Et autrement, tu peut faire ta notice en pdf et l'affiché ensuite.

http://www.developpez.net/forums/d96.../afficher-pdf/
24/09/2011, 18h30
M.Dlb

Moi je verrais plutôt du HTML, plus facile à coder selon moi...
24/09/2011, 18h50
joreveur

Bonjour,

Citation:

Envoyé par titeeee

TETRIS ! :lol:

Et autrement, tu peut faire ta notice en pdf et l'affiché ensuite.

http://www.developpez.net/forums/d96.../afficher-pdf/

Tétris ? Gagné :) enfin une sorte de tetris light...

sinon le PDF je trouve que ça ne s'applique pas trop et je préfère le HTML comme le suggère d'ailleurs wormful_sickfoot

Mais peut-on l'afficher via un composant Lazarus ou est-on obligé d'appeler un navigateur externe ?

Merci,
25/09/2011, 09h25
DOLPat®
Bonjour

Je te propose deux solutions pour afficher ton document:
La première est toute bête mais valable que si ton document tiens sur une page unique:
1. Créer le document avec un éditeur quelconque Word, Openoffice, ...
2. Une fois créé et entièrement visible à l'écran faire une copie d'écran (Impécr Syst)
3. Coller l'image obtenue dans Paint (par exemple)
4. Recadrer l'image en rognant les parties indésirées et puis l'enregistrer
5. Importer l'image dans ton projet à laide d'un TImage
La seconde est plus professionnelle, mais requiert l'installation du composant RichMemo dans Lazarus. RichMemo étant l'équivalent de RichEdit sous Delphi, tu peux l'utiliser pour créer du texte formaté.

à toi de choisir la formule la plus simple.
25/09/2011, 18h40
M.Dlb

Citation:

Envoyé par joreveur

Mais peut-on l'afficher via un composant Lazarus ou est-on obligé d'appeler un navigateur externe ?

Je pense qu'il doit exister un composant Lazarus (Peut-être pas natif) pour afficher une page web, par exemple les composants Indy...
26/09/2011, 08h59
batyann811

Dans les exemples fournit avec la Lazarus il y a un viewer html. L'exemple est dans le dossier lazarus\examples\turbopower_ipro.
26/09/2011, 09h09
joreveur

Bonjour
beaucoup de pistes à explorer.

je n'ai déjà pas réussi à installer RichMemo ça me renvoie sur l'installion d'outils de base de données ou quelque chose dans le genre... vous y arrivez-vous ?

le hardcopy c'est la facilité... mais la maintenance est un peu plus longue.. corriger un mot etc ...

je vais voir pour le viewer Html si c'est plus simple...

merci de continuer à suivre ce fil

En recopiant cette unoté, tu peux afficher une page (ou plusieurs) HTML sous Windows et Linux sans connaître le navigateur par défaut .

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
unit AideHTML;
 
{Version 1.0 du 10/10/2009}
 
{Cette unité permet d'afficher un fichier d'aide au format *.html dans le
 navigateur par défaut sans avoir à connaître lequel est-ce et où il se trouve.
 Elle fonctionne pour les environnements Windows et Linux. En cas de modif ou
 d'ajout d'environnement, soyez sympa de m'en faire part à pr.chauveau@free.fr.
 
 Trois procédures sont proposées :
 
  1 - AideEnligne : à utiliser si le fichier d'aide possède le même nom que
      l'application mais avec l'extension .html et se trouve dans le répertoire
      de l'application (cas nominal),
 
  2 - AideEnLigne(Nom_du_fichier) : à utiliser si le fichier d'aide a un nom
      différent de celui de l'application mais se trouve quand même dans son
      répertoire. Nom_du_fichier doit être le nom avec son extension.
 
  3 - AideEnLigne(Rep_du_fichier, Nom_du_fichier) : à utiliser pour un fichier
      html dont le nom et/ou le répertoire n'ont rien à voir avec l'application.
}
 
{$mode objfpc}{$H+}
 
interface
 
uses
{$IFDEF WIN32}
  Windows,
{$ENDIF}
  Classes, SysUtils, Dialogs;
 
procedure AideEnLigne; overload;
procedure AideEnLigne(Fch: string); overload;
procedure AideEnLigne(Rep, Fch: string); overload;
 
implementation
{$IFDEF UNIX}
uses
{$IF (lcl_major = 0) and (lcl_minor = 9) and (lcl_release < 27)}
  Process;
{$ELSE}
  UTF8Process;
{$ENDIF}
{$ENDIF}
 
procedure MessageErreur(Fch: string);
begin
  MessageDlg('Le fichier "'+Fch+'" n''a pas été trouvé', mtWarning, [mbOK], 0);
end;
 
procedure Aide(Rep, Fch: string);
{$IFDEF UNIX}
var
{$IF (lcl_major = 0) and (lcl_minor = 9) and (lcl_release < 27)}
  Prc: TProcess;
{$ELSE}
  Prc: TProcessUTF8;
{$ENDIF}
{$ENDIF}
begin
{$IFDEF UNIX}
{$IF (lcl_major = 0) and (lcl_minor = 9) and (lcl_release < 27)}
  Prc:= TProcess.Create(nil);
{$ELSE}
  Prc:= TProcessUTF8.Create(nil);
{$ENDIF}
  Prc.CurrentDirectory:= Rep;
  Prc.CommandLine:= 'xdg-open '+Fch;
  Prc.Execute;
  if Prc.ExitStatus <> 0 then
    MessageErreur(Fch);
  Prc.Free;
{$ENDIF}
{$IFDEF WIN32}
  if ShellExecute(0, 'open', PChar(Fch), nil, PChar(Rep), SW_SHOWNORMAL) <= 32 then
    MessageErreur(Fch);
{$ENDIF}
end;
 
procedure AideEnLigne;
begin
  Aide(ExtractFileDir(ParamStr(0)),
       ChangeFileExt(ExtractFileName(ParamStr(0)),'.html'));
end;
 
procedure AideEnLigne(Fch: string);
begin
  Aide(ExtractFileDir(ParamStr(0)), Fch);
end;
 
procedure AideEnLigne(Rep, Fch: string);
begin
  Aide(Rep, Fch);
end;
 
end.

Cordialement.

Pierre