Klasse manuell ändern

[shmia]

DFM-Datei (falsch):

Delphi-Quellcode:

object GemIIIDeviceDataModule: TGemIIIDeviceDataModule
  Left = 0
  Top = 0

Richtig wäre aber (man beachte inherited statt object):

Delphi-Quellcode:

inherited GemIIIDeviceDataModule: TGemIIIDeviceDataModule
  Left = 0
  Top = 0

Was ausserdem noch seltsam ist, sind die markierten Properties die in einem Datenmodul nix verloren haben:

Delphi-Quellcode:

object GemIIIDeviceDataModule: TGemIIIDeviceDataModule
  Left = 0
  Top = 0
  ClientHeight = 206   // <===
  ClientWidth = 312    // <===
  Color = clBtnFace    // <===
  Font.Charset = DEFAULT_CHARSET  // <===
  Font.Color = clWindowText  // <===
  Font.Height = -11   // <===
  Font.Name = 'Tahoma' // <===
  Font.Style = []      // <===
  OldCreateOrder = True  
  PixelsPerInch = 96  // <===
  TextHeight = 13     // <===
end