Wirf diese Zeile raus:
Screen.SetPixelsPerInch(240);
Button-Komponente suchen, die das kann...
oder manuell: Mehrere BMP im Unterordner in versch. Größen
Delphi-Quellcode:
var bmp1 : TBitmap; //globale var
...
procedure TF_Liste.FormCreate(Sender: TObject);
begin
bmp1 := TBitmap.Create; { Bitmap erzeugen }
...
procedure TF_Liste.FormShow(Sender: TObject);
begin
bmp1.LoadFromFile('battery30.bmp'); //beispiel 30pixel
end;
...
procedure TF_Liste.FormResize(Sender: TObject);
begin
eAS.ResizeAll;
ListView1.Column[0].Width:= ColumnHeaderWidth;
ListView1.Column[1].Width:= ColumnHeaderWidth;
bmp1.LoadFromFile('batteryxx.bmp'); //beispiel xx-pixel - abhängig von der Form-Size
SpeedButton1.Glyph:= bmp1;
end;