Code source pour développer une application, page 20
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
Ajouter une fenetre dans un TOpenDialog
unit DiExtDlgs; {$R-,H+,X+} interface uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics, ExtCtrls, Buttons, Dialogs, OleCtrls, SHDocVw; type { TDiOpenPictureDialog } ...
Mon Classeur
<img alt="Classeur" src="http://www.fobec.com/CMS/userdata/member034/Classeur.jpg" align="left" border="0" vspace="4"...
publié le 02/09/2005 dans Logiciel par A Bob
Lotto-Plus
<img alt="Loto-Plus" src="http://www.fobec.com/CMS/userdata/member034/Loto-Plus.jpg" align="left" border="0" vspace="4"...
publié le 02/09/2005 dans Logiciel par A Bob
Jeu de detente ChrisPuzzle V2.0
<img alt="Chrispuzzle" src="http://www.fobec.com/CMS/userdata/member001/Chrispuzzle.gif" align="left" border="0" vspace="4"...
publié le 24/07/2005 dans Logiciel par fobec
RitCoul
La dll “RitCoul”, offrant le choix entre 128 couleurs, se substitue à la palette de couleurs standard de Windows® et a été conçue à l'attention des programmeurs souhaitant offrir la...
suite - Delphi DBASE RaveReport CodeBarre
Delphi +DBASE+ RaveReport + CodeBarre (Partie 2)Voir le projet (Partie 1) qui va avec ce tuto faute de Taille j'ai divisé les choses en 2Ada B
Diaporama N-Img Viewer
<img alt="diaporama" src="http://www.fobec.com/CMS/userdata/member035/diaporama.jpg" align="right" border="0" vspace="4"...
publié le 25/05/2005 dans Logiciel par Nicolas Paglieri
Calcul de résistence, Resist
<img alt="resist" src="http://www.fobec.com/CMS/userdata/member035/resist.jpg" align="right" border="0" vspace="4" hspace="10">Ce...
publié le 25/05/2005 dans Logiciel par Nicolas Paglieri
Retrouver un TTreenode d'après son texte dans un Treeview
function FindTreeText(Tree: TTreeview; AText: string): TTreeNode; var iLoop: integer; begin result := nil; if not Assigned(Tree) then exit; if Tree.Items.Count > 0 then for...
Crypter/decrypter un String pour un fichier ini
{dans un fichier ini, il faut éviter les caractères tels que #0,' ','=',[',']' sous peine d'avoir une erreur. 2 solutions :- soit on crypte le string suivant une...
Mini projet delphi avec Paradox et Qreport
mini projet delphi + Paradox +QreportPour les Personnes Non Branchées (Interbase ou Firebird)que Je conseil vivement de migrer vers ses derniersvu la mort certaine du BDE Encore une fois...
Charger/Enregistrer un Treeview dans un ini
procedure TreeToIni(Tree: TTreeView; INI: TIniFile; Section: string); var n: Integer; MS: TMemoryStream; tTv: TStringList; Msg: string; begin tTv := TStringList.Create; MS :=...
Lancer un fichier et attendre sa fermeture
{ce truc permet de lancer une application mais aussi d'ouvrir automatiquement l'application associée à un raccourci} uses Shellapi; function StartAssociatedExe(FileName: string; var ...
Retrouver la dernière occurence dans un string
function LastPos(SubStr, S: string): Integer; var Found, Len, Pos: integer; begin Pos := Length(S); Len := Length(SubStr); Found := 0; while (Pos > 0) and (Found = 0) do begin if ...
Editer une page HTML (WYSIWYG HTML)
//Ouvrir une page dans le TWebBrowser WB1 procedure TForm1.Button1Click(Sender: TObject); begin WB1.Navigate('www.fobec.com'); end; //Passer le TWebbrowser en mode édition procedure ...
Editeur de requete sql
Ce programme est didé au programmeur débutant en delphi, qui représente un editeur sql simple pour les requêtes SQL pour des base de données relationnelles telque Paradox,Dbase,excel...
Connaitre la taille des éléments d'un Mainmenu
//ajouter un TMainMenu et un TMemo à la fiche procedure TForm1.Button1Click(Sender: TObject); var r: TRect; i: Integer; begin for i := 0 to mainmenu1.Items.Count - 1 do begin ...
Détecter l'appui sur plusieurs touches simultanement
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Sh if t: TSh if tState); begin If ((GetKeyState(VK_CONTROL) AND 128)=128) and ((GetKeyState(VK_F5) AND 128)=128) and ...