Code source pour développer une application, page 28
Un sujet vous tient à coeur ou un code source à partager ? Le site est ouvert à tous, n'hesitez pas à publier sur Fobec.com
Code source informatique
ChrisMate presse-papier
<img alt="chrismate" src="http://www.fobec.com/CMS/userdata/member001/chrismate.gif" align="left" border="0" vspace="4"...
publié le 04/01/2004 dans Logiciel par fobec
Splashscreen
3 exemples de petites fenêtres qui présentent l'entreprise, le produit ou de la pub.pendant le chargement du logiciel.
Convertir un document Word en RTF
Uses Comobj; function ConvertDoc2Rtf(Var FileName : string); var oWord: OleVariant; oDoc: OleVariant; begin try oWord := GetActiveOleObject('Word.Application'); ...
Déterminer la durée en secondes d'un Wave et ENTETE d'un fichier Wave
Je met ce truc car les 2 autres trucs répondant au même sujet que j'ai trouvé sur ce sitesont faux.Les 2 autres solution proposées s'appuie sur une entête de fichier WAV (header) fixe,...
Déterminer la durée en secondes d'un Wave et ENTETE d'un fichier Wave - CORRECTIF
CORRECTIFLa SECTION DATA commence par 'data' (minuscule!) et non par 'DATA' donc le source est :// Renvoie la durée en secondes du WAV spéc if ié par NFFunction DureeWAV( NF :...
Compléter automatiquement une ligne dans une Combobox
var LastKey:Word;... procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;Sh if t: TSh if tState); begin LastKey:=Key; end; procedure TForm1.ComboBox1Change(Sender: TObject);Var ...
Transmettre des propriétés d'un control vers un autre
uses TypInfo; function CloneProperty(SourceComp, TargetComp: TObject; Properties: array of string): Boolean; var i: Integer; begin Result := True; try for i := Low(Properties) to...
Jeu de cartes ChrisPyram
<img alt="chrisPyram" src="http://www.fobec.com/CMS/userdata/member001/chrisPyram.gif" align="left" border="0" vspace="4"...
publié le 21/04/2003 dans Logiciel par fobec
Inclure/utiliser un curseur animé dans votre application
Fichier Exemple.rcAnim RCDATA "Globe.ani"Compiler avec BRCC32.exeDans le projet Delphi...implementation{$R *.DFM}{$R exemple.RES} procedure TForm1.Button1Click(Sender: TObject); var Res:...
KeusKiFo
Permet de copier les fichiers les plus récents d'un endroit (disque, CDRom, répertoire,etc...) vers un autre.Le projet est en Delphi 6 et j'utilise un composant TScruteDossier (dont je...
Pack de Bitmap
635 bitmap qui pourront être insérés dans un menu par exemple.
EuroFranc
Le célèbre EuroFranc est porté sous Linux par Kylix interposé.Ne vous amusez donc pas à essayer de l'exécuter sous Windows, il n'y a pas de fichier .exe :-)
Afficher un Hint différent selon les cellules d'un StringGrid
//ne pas oublier de mettre ShowHint=true dans l'inspecteur d'objet var Form1: TForm1; OldHintCol, OldHintRow:integer;implementation{$R *.DFM} procedure TForm1.StringGrid1MouseMove(Sender:...
Différencier les 3 bouttons de la souris
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh if tState; X, Y: Integer); begin if Button = mbRight then Showmessage('Click droit') else If...
Fichier déplace
Déplacer ou copier des fichiers d'un répertoire vers un autre suivant l'extension desfichiers.Exemple : *.bmp, copie l'ensemble des images bmp.
Redimensionner et déplacer objet à l'execution
1. Déplacer des objets à l'écran à l'aide de la souris.2. Redimensionner des objets à l'execution. Par exemple, donner une nouvelle taille à une image.
Cacher l'application de la barre des taches
Pour cacher l'application de la barre des tâches ajouter la ligne suivante dans le fichierprojet (.dpr):Ajouter l'unité Windows dans les Usesprogram Project1; uses Forms, Windows, Unit1...
Convertir un Bitmap en nuances de gris
function Gray(Bitmap: TBitmap): TBitmap; var i, j: Integer; Grayshade, Red, Green, Blue: Byte; PixelColor: Longint; begin with Bitmap do for i := 0 to Width - 1 do for j :=...
Copier l'image d'une form dans le presse-papier
procedure TForm1.Button1Click(Sender: TObject); var imgWindow: TBitmap; begin imgWindow := GetFormImage; try Clipboard.Assign(imgWindow); finally imgWindow.Free; end; end;