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 2797 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 3258 fois  |
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 3106 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 2460 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 1951 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 1692 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 2507 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 1987 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 1614 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 1355 fois | Rainer Kümmerle | |