===== Bilder (TImage) =====
\\
==== Einleitung ====
Mit **TImage** lassen sich beliebige Bilder der Formate **jpg, bmp oder png** direkt auf einem **Formular** darstellen.\\


==== Beispiel Code ====
<Code:pascal linenums>
var
  imgFzg   : TImage;
  FzgBild  : String;
  ...
  ...
procedure ShowFormStart();
begin
//-----------------------------------------------------------------
//-- Definition Größe vom Formular und Startposition auf dem RBS --
//-----------------------------------------------------------------    
  formStartWidth  := 1200; //Breite des Formulars in Pixel
  formStartHeight := 964;  //Höhe des Formulars in Pixel
  formStartPosX   := 100;  //Startposition des Formulars X-Richt. 
  formStartPosY   := 100;  //Startposition des Formulars Y-Richt.
//-----------------------------------------------------------------      
  formStart             := TForm.Create(nil);
  formStart.Caption     := 'Reifenauswahl-Dialog';
  formStart.BorderStyle := bsDialog;
  formStart.SetBounds(formStartPosX,formStartPosY,formStartWidth,formStartHeight);
//-----------------------------------------------------------------
...
...
//------Deklaration vom Bilder auf der Form "formstart" -----------
imgFzg              := TImage.Create (formStart);
imgFzg.parent       := formStart;
imgFzg.SetBounds (340,70,130,100);
FzgBild:=('C:\Bild_vom_Fahrzeug.png'); 
imgFzg.Picture.LoadFromFile(FzgBild);
imgFzg.Proportional := true;
imgFzg.stretch      := true;
...
...
end;
...
...
//--------Hauptprogramm--------------------------------------------
begin
  ...
  ShowFormStart();
  ...
end.

</Code>\\
Mit obigen SourceCode wird jetzt auf die Form **"formstart"** ein Bild auf die Position 340,70 mit der Größe 130 x 100 Pixel gesetzt. Das Bild selber ist **C:\Bild_vom_Fahrzeug.png**\\ 

==== Eigenschaften von TImage ====

imgFzg.Visible  := true;\\
imgFzg.Hint     := 'Dies ist ein schönes Bild vom Fahrzeug';\\
imgFzg.ShowHint := true;\\


[[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]