Exemples pour coder avec Delphi Trucs et astuces Graphisme, page 3

Dessiner l'icone d'une autre fenêtre

{Executez NotePad puis lancer l'exemple ci-desous:} procedure TForm1.Button1Click(Sender: TObject); var hwindow : THandle; H: HIcon; begin hwindow := FindWindow('notepad',nil); H...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1652 fois SwissDelphiCenter

Ecrire du texte transparent sur le bureau

public { Public-Deklarationen } procedure WriteText(TransText: string); end; {....} var Form1: TForm1;implementation{$R *.DFM} procedure TForm1.WriteText(TransText: string); var ...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 2295 fois SwissDelphiCenter

Dessiner une barre des titres verticale

procedure TForm1.TarjaLateral(Texto: string; Size: integer); var LogFont: TLogFont; tmpCanvas: TCanvas; tmpRect: TRect; x1, x2, y1, y2: Integer; begin tmpCanvas := TCanvas.Create; ...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1983 fois SwissDelphiCenter

Utiliser une image comme frise

Revu et amélioré par Christophe Foret < christopheforet@hotmail.com >Pensez à mettre la fonction dans l'Event OnRepaint. function GrafikKacheln(dateiname: string; Sender: TObject; AStretch: ...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1762 fois SwissDelphiCenter

Transformer un BMP en JPG

uses jpeg; procedure TForm1.Button1Click(Sender: TObject); var bmp : TImage; jpg : TJpegImage; begin bmp := TImage.Create(nil); jpg := TJpegImage.Create; bmp.picture.bitmap.LoadFromFile (...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 3905 fois SwissDelphiCenter

Dessiner une icone sur un Timage

DrawIcon(Image1.Canvas.handle, 0, 0, LoadCursor(0, IDC_ARROW));
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1754 fois SwissDelphiCenter

Transformer un JPEG en BMP

Var jpeg: TJPEGImage; bmp: TBitmap;Begin jpeg:= TJPEGImage.Create; try jpeg.LoadFromFile( filename ); bmp:= TBitmap.Create; try bmp.Assign( jpeg ); bmp.SaveTofile( ChangeFileExt(...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 2745 fois SwissDelphiCenter

Trouver la hauteur et la largeur d'un caractère

AComponentWithACanvas.Canvas.TextWidth('A');AComponentWithACanvas.Canvas.TextHeight('X');
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1287 fois SwissDelphiCenter

Transformer une icone en BMP

procedure TForm1.Button1Click(Sender: TObject); var Icono:TIcon; Bitmap:TBitmap; begin Icono:=TIcon.create; Bitmap:=TBitmap.create; Icono.LoadFromFile('c:kkChip.ico'); Bitmap.Height...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1830 fois SwissDelphiCenter

Transformer un wmf en bmp

procedure WmfToBmp(FicheroWmf,FicheroBmp:string); var MetaFile:TMetafile; Bmp:TBitmap; begin Metafile:=TMetaFile.create; Bmp:=TBitmap.create; MetaFile.LoadFromFile(FicheroWmf); with Bmp do ...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1237 fois SwissDelphiCenter
  • 31 articles - Page
  • 1
  • 2
  • 3
  • 4
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues