Delphi Probleme mit Variants

Thema durchsuchen

Ansicht

Themen-Optionen

Probleme mit Variants

Offene Frage von "ratloser"

Ein Thema von ratloser · begonnen am 25. Okt 2006 · letzter Beitrag vom 26. Okt 2006

Vorheriger Beitrag

Nächster Beitrag

ratloser

Registriert seit: 4. Mai 2005
Ort: Linz
36 Beiträge

#11

Re: Probleme mit Variants

25. Okt 2006, 21:26

Also zu obiger Fehlermeldung:

Stehen bleibt er bei Forms in der letzten nachstehend angezeigten Zeile:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TCustomForm.ReadState(Reader: TReader);

var

  NewTextHeight: Integer;

  Scaled: Boolean;

begin

  DisableAlign;

  try

    FClientWidth := 0;

    FClientHeight := 0;

    FTextHeight := 0;

    Scaled := False;

    FOldCreateOrder := not ModuleIsCpp;

    inherited ReadState(Reader);

    if (FPixelsPerInch <> 0) and (FTextHeight > 0) then