|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
DÉFILEMENT HORIZONTAL OU VERTICAL
Information sur la source
Description
Réalise un défilement horizontal, en quelque clicks, - Ses défauts: Défile une image (Une parfaite fluidité). - Laisse une traînée d'escargot, - Je ne sais s'il épuise les ressources machines, - Avantage - Paramétrable, - Une parfaite fluidité dans le défilement, - Parait sans défaut... J'aimerais bien que quelqu'un améliore cette source, pour Delphi, beacoups de langages possèdent des fonctions préddéfinies. (Merci)
Source
- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TForm1 = class(TForm)
- Button1: TButton;
- Button2: TButton;
- procedure FormCreate(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
- debute : boolean; bitmap : tbitmap;
- i : integer;
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- debute := false;
- i:=0;
-
- debute:=false;
- Bitmap:=Tbitmap.Create ;
- end;
-
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- bitmap.Create;
- bitmap.LoadFromFile('c:\delphi.bmp'); // un Label avec copy écran, et suivre avec paint brush
- debute:=true;
-
- form1.Repaint ;
- end;
-
- procedure TForm1.FormPaint(Sender: TObject);
- begin
-
- while (debute) do
- begin
- Application.ProcessMessages ;
- form1.Canvas.Draw(i,400,bitmap); // dimension de l'image...
- i:=i+1; if i>form1.width then i:=-150; // mieux qu'un timer
- Sleep(5); // vitesse progression
- Application.ProcessMessages ; // permet de voir ce qui se passe ailleur
- end;
- end;
-
-
- procedure TForm1.FormDestroy(Sender: TObject);
- begin
- bitmap.free
- end;
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- debute:=false;
- end;
-
- procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
- debute:=false; // Sinon on réalise uniquement un arrêt sur image
- end;
-
- end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
debute : boolean; bitmap : tbitmap;
i : integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
debute := false;
i:=0;
debute:=false;
Bitmap:=Tbitmap.Create ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
bitmap.Create;
bitmap.LoadFromFile('c:\delphi.bmp'); // un Label avec copy écran, et suivre avec paint brush
debute:=true;
form1.Repaint ;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
while (debute) do
begin
Application.ProcessMessages ;
form1.Canvas.Draw(i,400,bitmap); // dimension de l'image...
i:=i+1; if i>form1.width then i:=-150; // mieux qu'un timer
Sleep(5); // vitesse progression
Application.ProcessMessages ; // permet de voir ce qui se passe ailleur
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
bitmap.free
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
debute:=false;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
debute:=false; // Sinon on réalise uniquement un arrêt sur image
end;
end.
Conclusion
Placer juste 02 boutons (button1 et button2), une image dans la racine (C), Coller le code, cliquer sur les 02 Boutons cliquer sur events de la form1 onPaint OnDestroy onClose.
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Progressbar [ par cincap ]
Bonjour,Quand on a une fonction pour créer un effet sur un bitmap par ex: effet sépia.En utilisant le composant TProgressBar, qu'est ce qui définit le
um ''message-box'' ayant deux bouton à faire fonctionner [ par yeho ]
Salut à tous les Developpeurs! J'ai une table appelé ''reserves'' et une autre appelé ''occupation''. J'ai juste un problème de faire appairaitre un
Message conditionné. Si ''OUI''(ok)...Si '''NON''(Sauvegarde!) [ par jennybless ]
Salut Tout le monde! J'ai besoin de votre aide s'il vous plait. Au fait, dans les codes ci-dessous je demande de filtrer le matricule demandé via mo
Un petite codification têtue. Comment y resoudre? [ par new2000 ]
Mes salutations! Voilà encore un autre tout petit code que j'ai écrit à mettre dans l'evenèment BeforePost du AdoTable1.Il marche bien... Cela veut
idSMTP - Message : Authorization failed [ par raneria ]
Salut!!Peut-être que vous avez vu ce message car je suis dans l'impasse total. Pourquoi quand j'envoie un message avec idsmtp, il y a toujours le mess
Probleme de reception de texte avec TClientSocket [ par obitskater ]
Bonjour, voilà je suis en train de créer un chat réseau dans le cadre de mes études.Sur une même form je place mon socket serveur et mon socket client
message windows et lecteur cd [ par neil ]
bonjours,je voudrai savoir comment faire pour supprimer le message de windows lorsqu'on essaye d'acceder au lecteur de cd alors qu'il n'y a pas de cd.
Impression d'un bitmap : Page Blanche [ par Francky23012301 ]
Salut à tous,Je travaille actuellement avec le composant TGraphXY de Kénavo. J'ai besoin de pouvoir l'imprimer en noir et blanc, j'utilise donc ce cod
Image en transparence [ par sisi231 ]
Voilà mon problème :J'ai d'une part ma fiche avec un fond fait par une mosaïque d'une image (facile à programmer), et d'autre part un bitmap en mémoir
TServerSocket : Indexage des clients [ par rafalus ]
Bonjour,développant actuellement un programme fonctionnant sur internet en utilisant les composants TServerSocket et TClientSocket, j'en suis venu à r
|
Téléchargements
Logiciels à télécharger sur le même thème :
|