file_dialog.zip filedialog_2.zip DialogResize.zip
FileOpen_with_XML.zipSorry, da muss ich dazwischengrätschen: Das funktioniert nur, wenn der User immer auf demselben Betriebssystem mit denselben Schriftarten unterwegs ist, und wenn keine Übersetzung in andere Sprachen verlangt wird. Wenn in dem anderen Betriebssystem die Label-Schriftart größer ist als beim Design wird wegen des AutoSize=false Text abgeschnitten.
Nun nicht mehr, und es bleibt bei mir simpel
Code: Alles auswählen
function GetFontSize(const AText: String; const AFont: TFont; out AWidth, AHeight: Integer): Boolean;
var
LBMP: TBitmap;
begin
Result := False;
AWidth := 0;
AHeight := 0;
LBMP := TBitmap.Create;
try
LBMP.Canvas.Font.Assign(AFont);
AWidth := LBMP.Canvas.TextWidth(AText);
AHeight := LBMP.Canvas.TextHeight(AText);
Result := ((AWidth <> 0) or (AHeight <> 0));
finally
LBMP.Free;
end;
end;
{ TForm1 }
procedure TForm1.FormShow(Sender: TObject);
var
w, h: Integer;
begin
if GetFontSize(lblLabel.Caption, Self.Font, w, h) then
begin
Inc(h, 17);
Inc(w, 10);
pnlFileImg.Height := h;
pnlTypeImg.Height := h;
pnlFileBoot.Height := h;
pnlLabel.Height := h;
pnlStamp.Height := h;
pnlData.Height := h;
pnlStamp.Height := h;
lblFileImg.Width := w;
lblTypeImg.Width := w;
lblFileBoot.Width := w;
lblLabel.Width := w;
cbStamp.BorderSpacing.Left := w + 5;
end;
end;Schon klar, aber der Vorteil von "0% Quelltext" trifft nun nicht mehr zu.
Verein
Links Suche
