Code source pour développer une application, page 31
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
Dessiner un cadre autour du controle sous la souris
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Memo1:...
Remplacer des mots dans un String
procedure TForm1.Button1Click(Sender: TObject); var sNewText : string; begin // Remplace le premier "moules" par "palourdes" sNewText := StringReplace('à la pêche aux moules moules...
Convertir un Ttime en String et vice-versa
//Pour des durées suppérieures à 24 heures, StrToTime & TimeToStr posent problèmes :)Function TextToTime(S : String) : Integer;Var p, i : integer; Sh, Sm, Ss : String;Begin Sh:=''; ...
Vider le buffer clavier & souris
procedure EmptyKeyQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do; end; procedure EmptyMouseQueue; var Msg: TMsg; begin while...
Effacer le cache des fichiers internet
uses WinInet; procedure DeleteIECache; var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; dwEntrySize: LongWord; begin dwEntrySize := 0; FindFirstUrlCacheEntry(nil,...
Imprimer le texte sélectionné dans un TRichedit
uses Richedit; procedure TForm1.Button1Click(Sender: TObject); var printarea: TRect; richedit_outputarea: TRect; printresX, printresY: Integer; fmtRange: TFormatRange; nextChar: Integer; ...
Lire/enregistrer le contenu d'un Stringgrid
// Enregistrer un TStringGrid vers un fichier procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName); var f : TextFile; i, k : Integer; begin AssignFile(f,...
Lister les propriétés et les évenements d'un composant
uses Typinfo; procedure ListComponentProperties(Component: TComponent; Strings: TStrings); var Count, Size, I: Integer; List: PPropList; PropInfo: PPropInfo; PropOrEvent, PropValue: string;...
Envoyer un Email en utilisant Outlook
Uses Comobj; procedure TForm1.Button16Click(Sender: TObject); const olMailItem = 0; olByValue = 1; var OutlookApp, MailItem, MyAttachments : OLEVariant; begin try OutlookApp :=...
Mettre en couleur les tag HTML dans un TRichedit
procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor); var i, iDop: Integer; s: string; Col: TColor; isTag, isDop: Boolean; begin iDop := 0; isDop := False; isTag :=...
Formater une durée en seconde en (hh:mm:ss)
function ConvertSecondsToTime(iSeconds: Word): TDateTime; var hours, min: Word; begin hours := Trunc(iSeconds / 3600); iSeconds := iSeconds - (3600 * Trunc(iSeconds / 3600)); min :=...
PLispEdit
Editeur de fichier LISP permettant de travailler assez souplement sur des programmes Lisp,sans avoir nécessairement le logiciel AutoCAD installé sur mon ordinateur.
Attribu
Le programme permet de voir et changer les attributs d'un ou plusieurs fichiers.
AVIBuilder
Construire des avi, c-a-d des animations que l'on retrouve souvent dans Windows.Pour cela rien de plus simple avec cette application, sélectionnez plusieurs Bitmap,définir l'ordre de...
APLispEdit, editeur fichier AutoCAD
<img alt="APLispEdit" src="http://www.fobec.com/CMS/userdata/member021/APLispEdit.gif" align="left" border="0" vspace="4"...
publié le 02/06/2002 dans Logiciel par Antoine Prieur
Afficher le numéro de la semaine dans un TDateTimePicker
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; ...
Copier une Form & réduire l'image de la copie d'écran
procedure TForm1.Button1Click(Sender: TObject); var Bit_copy, Bit_reduit: TBitmap; R:Trect; begin Bit_copy := TBitmap.Create; Bit_reduit:=TBitmap.Create; try {Copie d'écran de la...
Créer une liste de nombre aléatoire sans doublon
procedure Shuffle( var aArray; aItemCount: Integer; aItemSize: Integer); { after Julian M Bucknall } var Inx: integer; RandInx: integer; SwapItem: PByteArray; A: TByteArray absolute...