Exemples pour coder avec Delphi Trucs et astuces Graphisme

Changer les propriétés de l'affichage

procedure TForm1.FormCreate(Sender: TObject); var devmode : TDEVMODE; d : INTEGER; litem : TListItem; p : ^TDevmode; begin devmode.dmSize := SizeOf(TDEVMODE); devmode.dmDriverExtra := 0; ...
Delphi - Trucs et astuces - Graphisme le 06/11/2008 vu 3049 fois SwissDelphiCenter

Convertir un TColor en RGB et vice-versa

procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Color := RGB(58, 110, 165); end; procedure TForm1.Button2Click(Sender: TObject); var Color: Longint; r, g, b: Byte; begin Color...
Delphi - Trucs et astuces - Graphisme le 27/08/2007 vu 3535 fois commentaire SwissDelphiCenter

Connaitre la résolution de l'écran

procedure TForm1.Button1Click(Sender: TObject); var x,y: Integer; begin x:=Screen.Width; y:=Screen.Height; Label1.Caption:='x-Auflösung: '+IntToStr(x); ...
Delphi - Trucs et astuces - Graphisme le 11/04/2007 vu 3363 fois SwissDelphiCenter

Dessiner sur le bureau

procedure TForm1.Button1Click(Sender: TObject); var Picture : TPicture; Desktop : TCanvas; X, Y : Integer; begin Picture := TPicture.Create; Desktop := TCanvas.Create; ...
Delphi - Trucs et astuces - Graphisme le 25/03/2006 vu 2695 fois SwissDelphiCenter

Dessiner avec un effet nuage de point (Spray effect)

procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor); var rad, a: Single; i: Integer; begin for i := 0 to 100 do begin a := Random * 2 * pi; rad := Random * r; ...
Delphi - Trucs et astuces - Graphisme le 17/12/2004 vu 2188 fois Tokter

Effectuer une rotation de n'importe quel angle sur un Bitmap

const PixelMax = 32768;type pPixelArray = ^TPixelArray; TPixelArray = Array[0..PixelMax-1] Of TRGBTriple; procedure RotateBitmap_ads( SourceBitmap : TBitmap; out DestBitmap : TBitmap; ...
Delphi - Trucs et astuces - Graphisme le 28/11/2004 vu 1916 fois Communauté Delphi

Convertir une image au format bmp vers un emf (Enhanced Metafile)

function bmp2emf( const SourceFileName: TFileName): Boolean;// Converts a Bitmap to a Enhanced Metafile (*.emf) var Metafile: TMetafile; MetaCanvas: TMetafileCanvas; Bitmap: TBitmap; begin ...
Delphi - Trucs et astuces - Graphisme le 20/11/2004 vu 2744 fois Communauté Delphi

Dessiner un rectangle de sélection avec la souris

private { Private declarations } AnchorX, AnchorY, CurX, CurY: Integer; Bounding: Boolean; end; implementation procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh...
Delphi - Trucs et astuces - Graphisme le 03/11/2004 vu 2233 fois SwissDelphiCenter

Dessiner sur un TBitmap dans une DLL

--- cĂ´té appli --- function LoadJPEG(FileName:pchar; var Size:TSize):THandle; stdcall; external 'JPEGLIB.DLL'; procedure DrawJPEG(JPEG:THandle; DC:HDC; x,y:integer); stdcall; external...
Delphi - Trucs et astuces - Graphisme le 15/10/2004 vu 1838 fois Paul Toth

Connaitre les dimensions d'un GIF sans composant spécifique

type TImageSize = record Width: Integer; Height: Integer; end; function ReadGIFSize(Stream: TStream): TImageSize;type TG if Header = record Signature: array [0..5] of Char; Width,...
Delphi - Trucs et astuces - Graphisme le 22/08/2004 vu 1569 fois Rainer KĂĽmmerle
  • 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