Anzahl Glyphs eines Bitmaps rausfinden

[Helmi]

Hallo,

gibt es die Möglichkeit rauszufinden, wieviele Glyphs ein Bitmap beinhaltet?

In der Unit "Buttons" in der auch ein BitBtn vorhanden ist, hab ich folgenden Code gefunden:

Delphi-Quellcode:

procedure TButtonGlyph.SetGlyph(Value: TBitmap);
var
  Glyphs: Integer;
begin
  Invalidate;
  FOriginal.Assign(Value);
  if (Value <> nil) and (Value.Height > 0) then
  begin
    FTransparentColor := Value.TransparentColor;
    if Value.Width mod Value.Height = 0 then
    begin
      Glyphs := Value.Width div Value.Height;
      if Glyphs > 4 then Glyphs := 1;
      SetNumGlyphs(Glyphs);
    end;
  end;
end;

Dort findet man die Berechnung von Glyph: Glyphs := Value.Width div Value.Height; Aber das kommt mir jetzt schon etwas zu einfach vor