Améliorations à apporter à l'EDI Lazarus

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,
Une question à la Papy Mougeot :
Cette propriété est-elle mise à jour et lue directement à partir du champ, ou fait-elle appel à un getter/setter ?
Oui - ou Non - mais vous pensiez à quoi ?
A rien, c'était seulement pour faire avancer le schmilblick !

Cette procédure virtuelle est-elle aussi déclarée abstraite ?

Ce que je ne comprends pas bien :

Citation:

Et la la variable est vidée au moment précis ou cette fameuse procedure surchargé est appelée par la classe de niveau 2.

Une classe de niveau 2 ne peut exécuter cette méthode de niveau 6. Sauf s'il s'agit d'une variable de type TGLZCustomDataFile (niveau 2) contenant un descendant de type TGLZBitmapXPMImage (niveau 6) qui définit bien cette méthode. D'ailleurs, l'appel d'une méthode abstraite non définie devrait entraîner une exception à l'exécution, non ?

Avec ce schéma :
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 TAncestor = class(TPersistent) end; TDescendantLevel2 = class(TAncestor) private FName: string; public procedure JustSetName(aName: string); procedure DoSomething(aName: string); virtual; abstract; property FieldName: string read FName; // write FName; end; TDescendantLevel3 = class(TDescendantLevel2) end; TDescendantLevel4 = class(TDescendantLevel3) end; TDescendantLevel5 = class(TDescendantLevel4) end; TDescendantLevel6 = class(TDescendantLevel5) public constructor Create(aParam: string); overload; procedure DoSomething(aName: string); override; end; var Form1: TForm1; implementation {$R *.frm} { TForm1 } procedure TDescendantLevel2.JustSetName(aName: string); begin FName := aName + ' ajouté par méthode level2'; end; procedure TDescendantLevel6.DoSomething(aName: string); begin FName := aName + ' = Nom modifié par méthode abstraite level6'; end; constructor TDescendantLevel6.Create(aParam: string); begin inherited Create; JustSetName(aParam + ' = Nom au create du level 6'); end;
le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.Button1Click(Sender: TObject); var MyDescendant: TDescendantLevel2; begin MyDescendant:=TDescendantLevel2.Create; MyDescendant.JustSetName('Début'); Memo1.Clear; Memo1.Append(MyDescendant.FieldName); MyDescendant.DoSomething('Nouveau nom'); Memo1.Append(MyDescendant.FieldName); MyDescendant.Free; end;
provoque un EAstractError
alors que celui-ci passe (mais c'est sûrement un maigre squelette du tien) :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Button1Click(Sender: TObject); var MyDescendant: TDescendantLevel6; begin MyDescendant:=TDescendantLevel6.Create('Début'); Memo1.Clear; Memo1.Append(MyDescendant.FieldName); MyDescendant.DoSomething('Nouveau nom'); Memo1.Append(MyDescendant.FieldName); MyDescendant.Free; end;

Citation:

Envoyé par tourlourou

Bonjour,
Une question à la Papy Mougeot :
Cette propriété est-elle mise à jour et lue directement à partir du champ, ou fait-elle appel à un getter/setter ?
Oui - ou Non - mais vous pensiez à quoi ?
A rien, c'était seulement pour faire avancer le schmilblick !

Bonjour, :mouarf::ptdr:

Citation:

Envoyé par tourlourou

Cette procédure virtuelle est-elle aussi déclarée abstraite ?

Ce que je ne comprends pas bien :

Une classe de niveau 2 ne peut exécuter cette méthode de niveau 6. Sauf s'il s'agit d'une variable de type TGLZCustomDataFile (niveau 2) contenant un descendant de type TGLZBitmapXPMImage (niveau 6) qui définit bien cette méthode. D'ailleurs, l'appel d'une méthode abstraite non définie devrait entraîner une exception à l'exécution, non ?

Oui je comprend que tu ne comprenne pas bien c'est un peu dur sans code. J'aurais tenté d'expliqué au mieux. Car en fait il y'a un peu plus de niveaux:oops: Il faut mieux un bon bout de code alors :
Voila partiellement à quoi ça ressemble :

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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
 
Interface
 
Type
  TGLZInterfacedPersistent = class(TPersistent, IInterface) 
  TGLZUpdateAbleObject = Class(TGLZInterfacedPersistent, IGLZNotifyAble) 
 
  TGLZCustomDataFile = Class(TGLZUpdateAbleObject)
  Private
     FFullFileName: String;   
  Protected
     Function CheckFormat(): Boolean; Virtual;
     Procedure LoadFromMemory; Virtual; // ---> C'est lorsque cette procédure est appelé dans l'enfant que FFullFileName est vidée
  Public
     Procedure LoadFromStream(aStream: TStream); Virtual;   
     Procedure LoadFromFile(Const FileName: String); Virtual;  
 
     Property FullFileName: String read FFullFileName;     
  End;                                  
 
  TGLZCustomBitmap = class(TGLZCustomDataFile)
 
  TGLZCustomImageFileIO = Class(TGLZCustomBitmap)
  protected
    function ReadImageProperties:Boolean;Virtual; 
  end;
 
  TGLZBitmapXPMImage = class(TGLZCustomImageFileIO)
  protected
     procedure LoadFromMemory();override;  // ---> C'est lorsque cette procédure est appelé que FFullFileName est vidée
     function CheckFormat(): Boolean; override;
     function ReadImageProperties:Boolean;override;
  end;
 
  TGLZPicture = class(TGLZPersistentObject)
  private
    FBitmap : TGLZBitmap;
 
    procedure SetBitmap(Const aBitmap : TGLZBitmap);
  protected
  public
    Constructor Create;override;
    Destructor Destroy;override;
 
    //procedure ReadFiler
    //procedure WriteFiler
 
    procedure LoadFromFile(Const aFileName:String); overload;
    procedure SaveToFile(Const aFileName:String); overload;//aFormat : TGLZImageFileFormats; Options : Pointer);
  public
    property Bitmap : TGLZBitmap Read FBitmap Write SetBitmap;
 
  end;
 
  TGLZCustomImageView = class(TGLZCustomControl)
  protected
    FBackBuffer : TGLZBitmap;
 
    procedure Paint; override;
    procedure Resize; override;
  public
    property BackBuffer: TGLZBitmap read FBackBuffer;
 
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end; 
  TGLZSimpleImageView = Class(TGLZCustomImageView)     
 
Implementation
 
Procedure TGLZCustomDataFile.LoadFromFile(Const FileName: String);
Var
  fs: TStream;
Begin
  ResourceName := ExtractFileName(fileName);
  FFullFileName := FileName;
  fs := CreateFileStream(fileName, fmOpenRead + fmShareDenyNone);
  Try
     LoadFromStream(fs);
  Finally
    fs.Free;
  End;
End;
 
Procedure TGLZCustomDataFile.InternalLoadFromStream(aStream: TStream);
Begin
  FData := TGLZBufferedStream.Create(aStream);
  Try
    If CheckFormat Then LoadFromMemory;
  Finally
    FreeAndNil(FData);
  End;
End;
 
Procedure TGLZCustomDataFile.LoadFromStream(aStream: TStream);
Begin
  InternalLoadFromStream(aStream);
End; 
 
Function TGLZCustomDataFile.CheckFormat(): Boolean;
Begin
  Result := True;
End; 
 
Procedure TGLZCustomDataFile.LoadFromMemory();
Begin
  Assert(False, 'Import de ' + ClassName + ' vers ' + Self.ClassName + ' non supporté.');
End;
 
procedure TGLZBitmap.LoadFromFile(Const FileName:String);
 var
   BaseImageClass: TGLZBitmapClass;
   tempImage: TGLZCustomBitmap;
   SrcPtr, DstPtr:PGLZColor;
 begin 
   if filename = '' then exit;
   BaseImageClass := GetGLZImageFileFormats.FindFromFileName(filename);
   TempImage:=nil;
   tempImage := BaseImageClass.Create(0,0);
   try
     tempImage.LoadFromFile(fileName);
     // Assign(TGLZBitmap(TempImage));
     SetSize(TempImage.Width, TempImage.Height);
     Clipping:=false;
     ClipRect:=TempImage.ClipRect;
     with RawImage do
     begin
       Description.Width:=TempImage.RawImage.Description.Width;
       Description.Height:=TempImage.RawImage.Description.Height;     
     end;
 
     With DataFormatDesc do
     begin
       Name :=  TempImage.DataFormatDesc.Name;
       Desc :=  TempImage.DataFormatDesc.Desc;
       Version :=  TempImage.DataFormatDesc.Version;
       FileMask :=  TempImage.DataFormatDesc.FileMask;
       Encoding :=  TempImage.DataFormatDesc.Encoding;
     end;
     SrcPtr:=PGLZColor(TempImage.getSurfaceBuffer);
     DstPtr:=PGLZColor(GetSurfaceBuffer);
     Move(SrcPtr^,DstPtr^,Size);
   finally
     FreeAndNil(tempImage);
   end;
end;  
 
procedure  TGLZPicture.LoadFromFile(Const aFileName:String);
begin
  FBitmap.LoadFromFile(aFileName);
end;

Voila le code c'est tout. J'ai également compiler sans débogage et J'ai également placé Property FullFileName; dans chaque descendant dans la partie public, histoire de...
Idem cela ne change rien

Voila le code dans l'application :

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
99
100
101
102
103
104
105
106
 
 
Interface
 
Type Tform1 = Class(Tform)
    Label1 : Tlabel;
    Label2 : Tlabel;
    Label3 : Tlabel;
    Label4 : Tlabel;
    lblImgFileName : Tlabel;
    lblImgFormat : Tlabel;
    lblImgSize : Tlabel;
    lblImgBPP : Tlabel;
    Panel1 : Tpanel;
    Panel2 : Tpanel;
    pnlView : Tpanel;
    Procedure Formclose(Sender : Tobject; Var Closeaction : Tcloseaction);
    Procedure Formcreate(Sender : Tobject);
    Procedure Formdropfiles(Sender : Tobject; Const Filenames : Array Of String);
    Procedure Formshow(Sender : Tobject);
  Private
  protected
    procedure UI_UpdateImageInfos;
  Public
    ImageView : TGLZSimpleImageView;
    ImageFileName : String;
  End;  
 
Implementation
 
Procedure Tform1.Formcreate(Sender : Tobject);
Begin
  ImageFileName:='';
  ImageView := TGLZSimpleImageView.Create(self);
  With ImageView do
  begin
    Parent := pnlView;
    Align :=alClient;
  end;
End;
 
Procedure Tform1.Formclose(Sender : Tobject; Var Closeaction : Tcloseaction);
Begin
  FreeAndNil(ImageView);
End;
 
Procedure Tform1.Formshow(Sender : Tobject);
Begin
  With ImageView do
  begin
    Color:=clBlack;
    Picture.Bitmap.SetSize(Width,Height);
    Picture.Bitmap.Clear(clrBlack);
  end;
End; 
 
Procedure Tform1.UI_UpdateImageInfos;
begin
  With ImageView.Picture.Bitmap Do
  begin
    lblImgFileName.Caption := FullFileName;   //ImageFileName;
    lblImgFormat.Caption := DataFormatDesc.Name + '(' + DataFormatDesc.Desc + ')';
    lblImgSize.Caption := IntToStr(Width) + ' x ' + IntToStr(Height);
    With RawImage.Description Do
    begin
      Case PixelFormat of
        pf1Bit : lblImgBPP.Caption := '1 Bit (Monochrome)';
        pf2Bits : lblImgBPP.Caption := '2 Bits (4 Couleurs)';
        pf4Bits : lblImgBPP.Caption := '4 Bits (16 Couleurs)';
        pf8Bits : lblImgBPP.Caption := '4 Bits (256 Couleurs)';
        pf15Bits : lblImgBPP.Caption := '15 Bits';
        pf16Bits : lblImgBPP.Caption := '16 Bits';
        pf24Bits : lblImgBPP.Caption := '24 Bits';
        pf32Bits : lblImgBPP.Caption := '32 Bits';
        pf48Bits : lblImgBPP.Caption := '48 Bits';
        pf64Bits : lblImgBPP.Caption := '64 Bits';
      End;
    End;
  End;
End;
 
Procedure Tform1.Formdropfiles(Sender : Tobject; Const Filenames : Array Of String);
begin
   Try
     Try
       Screen.Cursor:=crHourGlass;
       ImageFileName := FileNames[0];
       ImageView.Picture.LoadFromFile(ImageFileName);
     Finally
       Screen.Cursor:=crDefault;
     End;
   Except
     On E : EInvalidImageFile do
     begin
       MessageDlg(E.Message, mtWarning, [mbOk], 0);
       Exit;
     end
     else
     begin
       MessageDlg('Erreur Inconnue : '+//E.Message+
       #13+#10+'Ok pour continuer'+#13+#10+'Abandonner pour quitter l''application', mtError, [mbOk, mbAbort], 0);
     end;
   end;
   ImageView.Invalidate;
   UI_UpdateImageInfos;
End;

Voila rien de bien transcendant à la base. Un problème d'héritage ? faudrait que j'essaye en passant la propriété FullFileName dans published.

EDIT : Je tiens à préciser que les images déposées sur la fiche se chargent et s'affiche sans probleme.

25/08/2017, 15h35
anapurna

salut

il faut revenir aux fondamentaux :D

private : accessible dans toute l'unité ;
protected : accessible dans toute l'unité et dans les classes enfantes ;
public : accessible partout ;
published : comme public, mais avec en plus génération de RTTI pour l'exploitation par l'inspecteur d'objet par exemple.
Donc tu peux utiliser protected quand tu veux que certaines données/méthodes soient accessibles par la classe ou ses enfants, mais pas le reste.

Citation:

Envoyé par anapurna

salut

il faut revenir aux fondamentaux :D

private : accessible dans toute l'unité ;
protected : accessible dans toute l'unité et dans les classes enfantes ;
public : accessible partout ;
published : comme public, mais avec en plus génération de RTTI pour l'exploitation par l'inspecteur d'objet par exemple.
Donc tu peux utiliser protected quand tu veux que certaines données/méthodes soient accessibles par la classe ou ses enfants, mais pas le reste.

Ok d'accord avec ça, mais j'ai bien
Code:

1 2 3 4 5 Private FFullFileName: String; Public Property FullFileName: String read FFullFileName;
et dans les classes enfants
Code:

1 2 3 Public Property FullFileName;
Pour FFullFileName je veux pas et je ne l'utilise pas dans les classes enfants

La seule et unique fois ou j'y accède c'est ici
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure TGLZCustomDataFile.LoadFromFile(Const FileName: String); Var fs: TStream; Begin ResourceName := ExtractFileName(fileName); FFullFileName := FileName; fs := CreateFileStream(fileName, fmOpenRead + fmShareDenyNone); Try LoadFromStream(fs); Finally fs.Free; End; End;

25/08/2017, 17h22
anapurna

salut

ta property FullFileName doit vouloir y accéder non ?
Dans les descendant cela plante ... met la variable en protected

1 pièce(s) jointe(s)

Citation:

Envoyé par anapurna

salut

ta property FullFileName doit vouloir y accéder non ?
Dans les descendant cela plante ... met la variable en protected

En ecrivant ces quelques lignes :
Citation:
Je vois pas pourquoi normalement cela devrait fonctionner et je ne devrai pas perdre la valeur de ma variable je prend pour exemple :
Dans ma classe "TGLZCustomImageFileIO" (Avant dernière classe )

J'ai :
Code:

1 2 3 4 5 Type TGLZCustomImageFileIO = Class(TGLZCustomBitmap) protected procedure RaiseInvalidImageHeader;
et le code :
Code:

1 2 3 4 5 6 7 procedure TGLZCustomImageFileIO.RaiseInvalidImageHeader; begin raise EGLZInvalidImageHeader.Create('En-tête du fichier : '+ExtractFileName(FullFileName)+#13+#10+ 'au format '+DataFormatDesc.Name+' ('+DataFormatDesc.Desc+') invalide.'); End; End;
et lorsque l'exception est levée depuis "TGLZBitmapXPMImage.CheckFormat" (fonction virtuelle, surchargée seulement dans TGLZBitmapXPMImage)
Note :

Code:

Type "TGLZBitmapXPMImage = Class(TGLZCustomImageFileIO)"

On voit que tout vas bien.

Pièce jointe 306555
J'ai eu un éclair qui à traversé mon cerveau. :fou: Mon erreur ce n'est pas mon objet principal qui charge les données, c'est que je passe par la variable "tempImage" du coup normal que FullFileName soit vide. :oops:
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 procedure TGLZBitmap.LoadFromFile(Const FileName:String); var BaseImageClass: TGLZBitmapClass; tempImage: TGLZCustomBitmap; SrcPtr, DstPtr:PGLZColor; begin if filename = '' then exit; BaseImageClass := GetGLZImageFileFormats.FindFromFileName(filename); TempImage:=nil; tempImage := BaseImageClass.Create(0,0); try tempImage.LoadFromFile(fileName); // Assign(TGLZBitmap(TempImage)); SetSize(TempImage.Width, TempImage.Height); Clipping:=false; ClipRect:=TempImage.ClipRect; with RawImage do begin Description.Width:=TempImage.RawImage.Description.Width; Description.Height:=TempImage.RawImage.Description.Height; end; With DataFormatDesc do begin Name := TempImage.DataFormatDesc.Name; Desc := TempImage.DataFormatDesc.Desc; Version := TempImage.DataFormatDesc.Version; FileMask := TempImage.DataFormatDesc.FileMask; Encoding := TempImage.DataFormatDesc.Encoding; end; SrcPtr:=PGLZColor(TempImage.getSurfaceBuffer); DstPtr:=PGLZColor(GetSurfaceBuffer); Move(SrcPtr^,DstPtr^,Size); finally FreeAndNil(tempImage); end; end;
Je vais réfléchir à ce problème. Je vais réorganisé un peu tout ça.

Bref Pour le coup, le message d'erreur de gdb dans la boite de dialogue de suivi n'est pas très explicite. Ca mériterai d'être un poil plus clair. Je vais m'en souvenir de celui là.

Merci de votre intérêts à tous.

EDIT : :boulet: En plus j'ai la solution sous les yeux avec ce petit commentaire de m... : "// Assign(TGLZBitmap(TempImage));". C'est en forgeant que l'on deviens forgerons, non ?

02/05/2018, 17h08
naute

Bonjour :D .

L'affichage, dans un panel de la barre de statut par exemple, du système cible de la compilation pourrait être utile pour ceux qui font régulièrement des compilations croisées. Cet affichage pourrait être proposé dans les options pour ne pas gêner ceux à qui il n'est pas utile.

Amicalement,
naute.
09/05/2018, 05h34
Pierre le Grand

TRY Except au lieu de finally

Lorsqu'on entre le mot TRY dans l'IDE, il auto-complète toujours avec finally, mais parfois, c'est Except que je veux.
09/05/2018, 16h03
BeanzMaster

Citation:

Envoyé par Pierre le Grand

Lorsqu'on entre le mot TRY dans l'IDE, il auto-complète toujours avec finally, mais parfois, c'est Except que je veux.

Pour avoir ce comportement tape trye puis utilise la raccourci clavier CTRL-J
09/06/2018, 19h34
naute

Auto-complétion

Bonjour :D .

Dans un TStringList, appelé liste, par exemple, quand on saisie

Code:

liste.

Lazarus propose un choix permettant de compléter la commande. Parmi ces choix, il y a Strings.
Si on clique dessus, la ligne se complète comme suit:

Code:

liste.String[|];

IL pourrait être intéressant d'étendre ce concept aux procédures et fonctions.
Par exemple, après avoir saisi

Code:

ShowMessage(

ce serait un gain de temps d'avoir la complétion suivante:

Code:

ShowMessage(|);

Amicalement,
naute.
10/06/2018, 23h33
Jipété

2 pièce(s) jointe(s)

Améliorations à apporter à l'EDI Lazarus

Avoir des outils qui fonctionnent vraiment ?

Exemple avec la recherche dans les fichiers, que j'utilise beaucoup, mais hélas...

Ce que je veux chercher ;
Pièce jointe 387632

Ce que le bazar me trouve :
Pièce jointe 387636

:roll:

Linux Debian FPC 3.0.4 / Laz 1.8.2

3 pièce(s) jointe(s)

Avoir une aide digne de ce nom ?

Je l'ai déjà dit, je le dis encore, mais là j'ai la preuve. Je voulais savoir ce qui se cachait sous Canvas.CopyMode, j'ai donc cliqué sur le mot puis F1 dans la 1.8.2 (vous me réveillez si la 1.8.4 a évolué, d'accord ?) :
Pièce jointe 389414

OK, donc je suis le lien TCopymode :
Pièce jointe 389415

puis le lien Longint :
Pièce jointe 389417

et voilà.
Terminé, plus de liens à suivre.
Fermez le ban.

Le temps qu'il m'a fallu pour trouver ça sur le web, caché au milieu de posts où les gens exposent leurs 'blèmes, bref...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 cmBlackness Fills the destination rectangle on the canvas with black. cmDstInvert Inverts the image on the canvas and ignores the source. cmMergeCopy Combines the image on the canvas and the source bitmap by using the Boolean AND operator. cmMergePaint Combines the inverted source bitmap with the image on the canvas by using the Boolean OR operator. cmNotSrcCopy Copies the inverted source bitmap to the canvas. cmNotSrcErase Combines the image on the canvas and the source bitmap by using the Boolean OR operator, and inverts the result. cmPatCopy Copies the source pattern to the canvas. cmPatInvert Combines the source pattern with the image on the canvas using the Boolean XOR operator cmPatPaint Combines the inverted source bitmap with the source pattern by using the Boolean OR operator. Combines the result of this operation with the image on the canvas by using the Boolean OR operator. cmSrcAnd Combines the image on the canvas and source bitmap by using the Boolean AND operator. cmSrcCopy Copies the source bitmap to the canvas. cmSrcErase Inverts the image on the canvas and combines the result with the source bitmap by using the Boolean AND operator. cmSrcInvert Combines the image on the canvas and the source bitmap by using the Boolean XOR operator. cmSrcPaint Combines the image on the canvas and the source bitmap by using the Boolean OR operator. cmWhiteness Fills the destination rectangle on the canvas with white.
Ben nan, pas "bref", parce que ce fut vraiment laborieux et très time consuming.

PS : certains ont noté qu'il y avait des approximations dans ce texte, mais n'ont pas dit où...

18/06/2018, 15h24
mm_71

1 pièce(s) jointe(s)

Citation:

Terminé, plus de liens à suivre.

En effet pas terrible comme aide, mais elle te donne un indice: cmSrcCopy. Donc toutes les valeurs possibles commenceront par cm, en utilisant l'auto complétion on y voit un peu plus clair:
Pièce jointe 389434
et une fois un choix effectué F1 sur le cmquelquechose donne une (trop) petite indication quant à la chose.
C'est pas terrible mais mieux que rien.
15/08/2018, 10h53
Jipété

1 pièce(s) jointe(s)

Améliorer l'aide (encore et toujours)

:f1: sur AssignFile en 1.8.2 sous Windows XP :

Pièce jointe 403917
15/08/2018, 12h39
naute

Bonjour :D .

Il est évident que tu as raison, mais il est tout aussi évident que l'aide est loin d'être une priorité des développeurs de Lazarus, alors que ça avait été une réelle qualité des premières versions de Delphi auquel il veut ressembler. C'est d'ailleurs une problématique assez générale dans le monde du libre. C'est sûr que c'est un sacré boulot, mais c'est vraiment dommage de développer un composant de qualité et de le rendre quasiment inutilisable en raison de l'absence de mode d'emploi.

J'avais installé Jedi sur Delphi 5 mais ça ne m'a servi pratiquement à rien en raison du manque de doc. Des centaines de composants dont on ne sait même pas ce qu'ils font pour une grande partie d'entre eux, et sans même parler de la façon dont ils fonctionnent :aie: .

Je crains qu'il n'y ait malheureusement pas grand chose à faire :calim2: . En gros, c'est gratuit, on prend ou on ne prend pas. Si on n'est pas content ...:zekill:
13/09/2018, 11h02
Jipété

1 pièce(s) jointe(s)

Bonjour,

pas sûr que ça soit la discussion la plus appropriée pour ce que je vais exposer, mais j'en ai assez de voir cette image sur mon Bureau, alors hop !

Pièce jointe 411227

Explication de texte sur l'image : l'ovale orange dans l'aide se passe de commentaire, en fait ; la propriété OuterBorder est introuvable dans l'EDI, aussi bien avec un TLabel qu'avec un TPanel, alors que l'aide parle de TControl sans distinction.

Découvert en 1.4.0, toujours valide en 1.8.2.

Bonne journée,
:coucou:
13/09/2018, 16h12
BeanzMaster

Salut
Outborder correspond à "around (autour) Left,bottom, top, right". "InnerBorder" fonctionne uniquement suivant les 2 propriétés du dessus si je me souviens bien.

A+
20/03/2019, 09h58
Jipété

1 pièce(s) jointe(s)
Bonjour,

je suis tombé sur ce gag, a-t-il été corrigé en 2.0 ?

Pièce jointe 459517

Au cas où ça ne serait pas très visible, je recopie ci-dessous les deux lignes concernées, celles avec les triangles jaunes, avec une espace rajoutée après "variable" dans la 1^re, afin d'avoir un bel alignement qui permettra de bien visualiser le défaut :
Code:

1 2 uFastBitmap.pas(455,29) Warning: Function result variable does not seem to initialized uBMPViewer.pas(2246,54) Warning: Local variable "DstColor" does not seem to be initialized
La source de l'image est la compilation du projet de Jérôme trouvable là : https://www.developpez.net/forums/d1.../#post10835028
20/03/2019, 11h44
anapurna

Salut

En regardant vite fait, pour le bmpviewer cela me paraît cohérent : je ne vois nulle part l'initialisation et ensuite tu compares

Code:

IsOpaque := IsOpaque and (DstColor.alpha = 255);

Par contre, pour la fonction ConvertBitFieldsToColor32 je ne comprends pas trop le problème : peut-être qu'initialiser le result avant de faire les tests suffit ?
20/03/2019, 11h52
Jipété
Citation:

Envoyé par anapurna

--snip--

Euh, quel rapport entre ce que tu dis (qui n'a en plus rien à voir avec les améliorations de l'EDI) et l'oubli d'un mot à la 1^re ligne :
:koi:
Citation:
Envoyé par Jipété

Code:

1 2 uFastBitmap.pas(455,29) Warning: Function result variable does not seem to initialized uBMPViewer.pas(2246,54) Warning: Local variable "DstColor" does not seem to be initialized
Parce que les corrections de ces deux warnings, je les connais, pas de souci, ;)

Voir 40 message(s) de cette discussion en une page