Bonjour,

excellent, et nostalgie des cahiers de l'école....
Luc.

Salut,

je suis d'accord avec toi, mais tu dois alors prévoir une procédure pour chaque composant que tu utilises, imagine un super composant complexe trouvé sur le net qui possède une liste en propriété, avec une procédure générale, pas de problème. Tu pourrais d'ailleurs l'ajouter à ton unité et t'en servir en cas de besoin.

Luc.

Bonjour Mister Dubois,

je regarde ton source SYSTUS à l'instant et ce qui me saute aux yeux :

procedure ADD(var O:TlistBox; z:string);    begin O.Items.Add(z) end;
procedure ADD(var O:Tmemo; z:string);       begin O.lines.add(z) end;
procedure ADD(var O:TcomboBox; z:string);   begin O.items.add(z) end;
procedure ADD(var O:TstringList; z:string); begin O.add(z) end;


pourquoi ne pas faire une unique procédure

procedure ADD(O: TStrings; z: string); begin O.Add(z); end;

que tu appelles selon le composant

Add(Combo1.Items, 'toto') ou Add(Memo1.Lines, 'titi')...

je pense pareil pour CHG, ...

VIS(O: TWinControl); ... j'ai pas vérifié si la propriété Visible et la méthode BringToFront était accessibles.

et y regardant de plus près, il y en a certainement d'autres.

Ca peut diminuer le nombre de procédures. Tu as aussi peut-être de bonnes raisons de ne pas faire comme cela.

Bon travail.

Luc.

Bonsoir,

le code fonctionne sans modif sous delphi2010. Luc.

Salut,

un utilitaire que j'utilise pour supprimer les unités non nécessaires à un projet :

http://www.peganza.com/#ICARUS

Bonjour,

@dubois77 : la ligne
Application.MainFormOnTaskbar := True;
du fichier DemoCmd.dpr
est à mettre en commentaire sous delphi7.

Pour Main.dfm, il faudra attendre le bon vouloir de f0xi ;-))

Je n'ai pas encore regardé les sources, mais ça a l'air pas mal.
Luc.

Bonjour Cantador,

je viens de télécharger le zip, et les fichiers ne sont apparemment pas ceux du projet !!!

Salutations, Luc.


<code>
UNIT Unit1;

INTERFACE

USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids;

TYPE
  TForm1 = CLASS(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Query2Name: TStringField;
    Query2Capital: TStringField;
    Query2Continent: TStringField;
    Query2Area: TFloatField;
    Query2Population: TFloatField;
    DBGrid1: TDBGrid;
    Query1Name: TStringField;
    Query1Capital: TStringField;
    Query1Continent: TStringField;
    Query1Area: TFloatField;
    Query1Population: TFloatField;
    PROCEDURE DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; VAR Accept: Boolean);
    PROCEDURE FormCreate(Sender: TObject);
    PROCEDURE DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
    PROCEDURE DBGrid1StartDrag(Sender: TObject;
      VAR DragObject: TDragObject);
    PROCEDURE DBGrid1CellClick(Column: TColumn);
//    procedure DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
  PRIVATE
    { Déclarations privées }
  PUBLIC
    { Déclarations publiques }
  END;

VAR
  Form1: TForm1;
  DragRecords: ARRAY OF variant;
  ASource, DestSource: TDataSource;
IMPLEMENTATION

{$R *.dfm}


PROCEDURE TForm1.DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; VAR Accept: Boolean);
BEGIN
  Accept := (Source IS TDBGrid) AND (TDBgrid(sender).DataSource <> NIL);
END;

PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
  Query1.Open;
  Query2.Open;
END;

PROCEDURE TForm1.DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
VAR
  I: integer;
BEGIN
  DestSource := TDBGrid(sender).DataSource;
  IF ASource = DestSource THEN exit;
  TRY
    TDBGrid(sender).ReadOnly := false;
    TDBGrid(sender).DataSource.DataSet.Insert;
    FOR I := 0 TO TDBGrid(sender).FieldCount - 1 DO
      TDBGrid(sender).Fields[I].Value := DragRecords[I];
    TDBGrid(sender).DataSource.DataSet.Post;
  FINALLY
    TDBGrid(sender).ReadOnly := true;
    TDBGrid(sender).DragMode := dmManual;
  END;
END;

PROCEDURE TForm1.DBGrid1StartDrag(Sender: TObject;
  VAR DragObject: TDragObject);
VAR
  I: Integer;
BEGIN
  ASource := TDBGrid(sender).DataSource;
  SetLength(DragRecords, TDBGrid(sender).FieldCount);
  FOR I := 0 TO TDBGrid(sender).FieldCount - 1 DO
    DragRecords[I] := TDBGrid(sender).Fields[I].Value;
END;

PROCEDURE TForm1.DBGrid1CellClick(Column: TColumn);
BEGIN
  DBGrid1.BeginDrag(true);
END;

END.
</code>

cool tes composants Bacterius, surtout ta barre de progression, je les ai découvert ce soir en surfant sur ta fiche, trop balaise...
Je t'échange 2 barils de source contre 2 kilos de macarons citron et pistache ;-))

Salutations,
Luc.

bonsoir,

@bacterius : si tu ne veux pas que ton prénom soit connu, retires-le de ta fiche...
http://www.delphifr.com/auteur/BACTERIUS/1247343.aspx

mettez la constante à zéro et on assiste à la naissance d'une naine blanche !
Luc.