===== Schaltflächen mit Bitmap (TBitBtn) =====
==== Einleitung ====
Ein **TBitBtn** ist ein **TButtom** mit einem Bild als **"Schaltfläche"**. Die Größe, Position und das Bild der Schaltfläche muss im Vorfeld konfiguriert werden. Folgendes Bild zeigt ein Formular mit verschiedenen TBitBtn, TButton und Labels:\\

BILD folgt

==== Eigenschaften vom TBitBtn ====
Jeder **TBitBtn** muss einmalig einzeln konfiguriert werden. Im folgenden Sourcecode sind die notwendigsten und wichtigsten Eigenschaften kurz aufgeführt:
<Code:pascal linenums>
var
  btnPlus : TBitBtn;
  ...
  ...
begin
  ...
  bitbtnPlus           := TBitBtn.Create(formStart);
  bitbtnPlus.Name      := 'Plus';
  bitbtnPlus.Parent    := formStart;
  bitbtnPlus.Font.Name := 'Frank Goth Cd';
  bitbtnPlus.Font.Size := -10;
  bitbtnPlus.SetBounds(410, 34, 120, 120);
  bitbtnPlus.Hint      := '+1';
  bitbtnPlus.ShowHint  := true;
  bitbtnPlus.Visible   := true;
  bitbtnPlus.Glyph.loadFromFile(cpGetPackagePath()+'\Reifen_Soft-108x108.bmp');
  ...
end.
</Code>\\
**bitbtnPlus  : TBitBtn;**\\
notwendige Zuordnung von btnPlus\\

**bitbtnPlus           := TBitBtn.Create(formStart);**\\
hier wird ein TBitBtn mit Name btnPlus auf dem Formular **formStart** generiert\\

**bitbtnPlus.Name      := 'Plus';**\\
der btnPlus heißt auf diesem Formular dann Plus

**bitbtnPlus.Parent    := formStart;**\\
hiermit wird der TButton btnPlus mit dem Formular formStart verknüpft

**bitbtnPlus.Font.Name := 'Frank Goth Cd';**\\
hier definiert man die Schriftart\\

**bitbtnPlus.Font.Size := -10;**\\
hier wird die Schriftgröße festgelegt\\

**bitbtnPlus.SetBounds(410, 34, 120, 120);**\\
hiermit definiert man die Startposition auf dem Formular und die Größe vom TButton:\\
  * 410 ist die X-Position in Pixel gemessen von oben links vom Formular
  * 34 ist die Y-Position in Pixel gemessen von oben links vom Formular
  * 120 ist die Größe in Pixel vom Button in X-Richtung
  * 120 ist die Größe in Pixel vom Button in Y-Richtung\\

**bitbtnPlus.Hint      := '+1';**\\
bewegt man später den Mauszeiger auf den Button, dann wird dieser Eintrag angezeigt\\

**bitbtnPlus.ShowHint  := true;**\\
hier kann man ein\ausschalten ob der oben beschrieben Hint angezeigt werden soll\\

**bitbtnPlus.visible   := true;**\\
hiermit lässt sich die Sichtbarkeit des Buttons auf dem Formular ein\ausschalten\\

**btnPlus.Glyph.loadFromFile(cpGetPackagePath()+'\Reifen_Soft-108x108.bmp');**\\
hier wird das gewünschte Bild auf den Button "geladen". Das Bildformat muss **BMP** sein. Das Bild muss im AddOn-Verzeichnis liegen. Die Größe vom Bild muss an die Größe vom TBitBtn angepasst sein.\\

\\

==== Verhalten vom TBitBtn ====
Ein erzeugter **TBitBtn** läßt sich mit der Maus anklicken. Was dann geschehen soll, muss in einer weiteren **procedure** nähers beschrieben werden. Als Erstes muss man allerdings in den Formular-Eigenschaften das "Klick"-Verhalten beschreiben und einer **procedure** zuordnen. Im folgenden Beispiel gibt es einen TBitBtn mit Namen bitbtnPlus. Wird der **TBitbtn bitbtnPlus** geklickt, dann wird gemäß dieser Zuordnung die **procedure bitbtnPlusClick** ausgeführt:\\

<Code:pascal linenums>
//------------------------------------------------------------------
  bitbtnPlus.OnClick:= @bitbtnPlusClick;
//------------------------------------------------------------------ 
</Code>\\


<Code:pascal linenums>
//------------------------------------------------------------------
procedure bitbtnPlusClick(Sender: TBitbtn);
begin
  Speed :=cpgetintegervar('Speed_Soft');
  Speed := Speed+1;
  cpsetintegervar('Speed_Soft',Speed);
end;
//------------------------------------------------------------------
</Code>\\
Was in dieser **procedure** dann ausgeführt werden soll, kann individuell programmiert werden. Da gibt es keine Einschränkungen. In diesem Fall wird der Inhalt der Variablen **Speed_Soft** ausgelesen, um +1 erhöht und wieder abgespeichert.\\


==== Beispiel Code mit Erläuterungen ====

\\
----

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