Inscription
22 juillet 2007
Dernière intervention
28 avril 2011
Interventions
63
Site Web
http://google.de
Signature

Opacity [Résolu]

Salut je voudrais faire opacité entre 2 Bitmaps mais le valeur ne doit pas être le meme par example de haut en bas commet ca : Example Je crois il faut faire masque. mais je ne sais pas comment et voila mon code : procedure TForm1.Button1Click(Sender: TObject); const TransparentGrad = 0.5; VAR oldColor, aColor: TColor; x,... Lire la suite

comment puis-je obtenir mon écran en millimètres ?

Salut mes Amis :) comment puis-je obtenir mon écran en millimètres procedure TForm1.Button1Click(Sender: TObject); var DC : HDC; cm :Single; begin DC := GetDC(Form1.Handle); { or Canvas.Handle } cm:=(GetDeviceCaps(DC,LOGPIXELSX)/2.54); Edit1.Text := FloatToStr(Round( (StrToInt('1024')*10) / cm)); Edit2.Text := FloatToS... Lire la suite

Je veux imprimer en Milimiter

Salut mes Amis Je veux imprimer une image avec cette fonction Mais Je reçois la largeur 80 mm et pas 100 mm la largeur est de 100 mm corect Si je imprimer l'image bitmap avec un autre programme si je reçois 100 mm mais avec mon programme Delphi je reçois 80 mm pour la largeur merci ...ein TImage ausdrucken? Autor: D... Lire la suite

salut !

Comment puis je copier Bitmap de image1 en image2 ? [Résolu]

salut Comment puis je copier Bitmap de image1 en image2 mais sans changer la taille de image2 ? J'ai essayé avec CopyRect(Rect(0,0, ... sa fonctionne mais je ne voudrais pas utiliser cette Methode y at-il une autre Solution ? merci bien

Repeat-Function problem [Résolu]

Salut je suis débutant en Delphi je voudrais avec cet code chercher toutes les Strings dans toutes les Ligne de Listbox mais le code peut trouver maximum un string dans chaque Ligne !!! alors je doit utiliser le fonction "Repeat" mais comment ? voila le code : procedure TForm1.Button1Click(Sender: TObject); var i,... Lire la suite

Resouce type (.rc) problem

Salut j' extract mes fiches de la Resource avec cet Code : [b]procedure TForm1.Button1Click(Sender: TObject); var/b RS: TResourceStream; begin RS := TResourceStream.Create(0, 'music1.wav', RT_RCDATA); RS.SaveToFile('music1.wav'); RS.Free(); end; Le Sa marche 100% bien mais si la sourse.rc est comme ca : musi... Lire la suite