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

Crypter une image

procedure EncryptBMP( const BMP: TBitmap; Key: Integer); var BytesPorScan: Integer; w, h: integer; p: pByteArray; begin try BytesPorScan := Abs(Integer(BMP.ScanLine[1]) - ...
Delphi - Trucs et astuces - Graphisme le 14/03/2004 vu 3062 fois SwissDelphiCenter

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 :=...
Delphi - Trucs et astuces - Graphisme le 24/11/2002 vu 2154 fois commentaire SwissDelphiCenter

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;
Delphi - Trucs et astuces - Graphisme le 24/11/2002 vu 1903 fois SwissDelphiCenter

Utiliser un TChar

uses Series;// Creates two series in the chart and assigns random values procedure TForm1.Button1Click(Sender: TObject); var i, j, kum: Integer; s, t: TLineSeries; begin with Chart1 do ...
Delphi - Trucs et astuces - Graphisme le 05/10/2002 vu 2631 fois Andreas Rumsch

Convertir une Couleur de RGB en COLORREF (BGR)

function rgb2bgr(R,G,B: byte): COLORREF;overload; begin Result:= (Integer(B) shl 16) + (Integer(G) shl 8) + R; end; function rgb2bgr(RGB: integer): COLORREF;overload; var R,G,B: integer;...
Delphi - Trucs et astuces - Graphisme le 22/09/2002 vu 2474 fois Martin

Obtenir une couleur plus claire/plus foncée

function Min(a, b: Longint): Longint; begin if a > b then Result := b else Result := a; end; function Max(a, b: Longint): Longint; begin if a > b then Result := a else Result :=...
Delphi - Trucs et astuces - Graphisme le 08/08/2002 vu 2094 fois CutMaster

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:...
Delphi - Trucs et astuces - Graphisme le 13/07/2002 vu 2282 fois Communauté Delphi

Zoomer sur un Canvas

procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: integer); var i: integer; begin if AZoomFactor = 100 then SetMapMode(Canvas.Handle, MM_TEXT); else begin ...
Delphi - Trucs et astuces - Graphisme le 01/02/2002 vu 1595 fois Marc Dürst

Afficher du texte en transparent sur une Timage

procedure TForm1.Button1Click(Sender: TObject); var OldBkMode : integer; begin With Image1.Picture.Bitmap do begin Canvas.Font.Color := clBlue; OldBkMode :=...
Delphi - Trucs et astuces - Graphisme le 24/01/2002 vu 2816 fois SwissDelphiCenter

Inverser un Bitmap

function InvertBmp(SourceBmp:Tbitmap): TBitMap; var i,j :longint; tmp : TBitMap; Red, Green, Blue: Byte; PixelColor: Longint; begin tmp := TBitmap.Create; tmp.width := SourceBmp.width; ...
Delphi - Trucs et astuces - Graphisme le 16/11/2001 vu 1635 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