Hallo...

Ich muss einen kleinen Import Manager schreiben, der aus einem anderen Programm exportierte Formulare importiert.

Soweit so gut.

Allerdings habe ich ein Problem bei den größen-, und Positionsangaben.

so sieht die exportierte Datei teilweise aus:

markieren

Code:

Image
   L = 130
   T = 2805
   W = 1350
   H = 570
   FL = "{USER}\INNER\ENDO\Öso.bmp"
   TIX = 77
   MCli = ""
Image
   L = 160
   T = 4595
   W = 1350
   H = 585
   FL = "{USER}\INNER\ENDO\duoden_3d.BMP"
   TIX = 78
   MCli = ""
Image
   L = 3615
   T = 7470
   W = 1050
   H = 300
   FL = "{USER}\Skizzen\katalog-grün.bmp"
   TIX = 79
   MCli = "EndoICD"
Image
   L = 5390
   T = 7475
   W = 1050
   H = 300
   FL = "{USER}\Skizzen\katalog-blau.bmp"
   TIX = 80
   MCli = "EndoOPS"

Label
   L = 1510
   T = 7450
   W = 1440
   H = 345
   CAP = "Leistung"
   BC = 14737632
   BT = 1
   BW = 1
   FontSize = 8,26
   FoS = 8,26
   FoB = False
   TIX = 81

bei diesem Image z.B

IMAGE1:

markieren

Code:

Image
   L = 130
   T = 2805
   W = 1350
   H = 570
   FL = "{USER}\INNER\ENDO\Öso.bmp"
   TIX = 77
   MCli = ""

L= Left
T= Top
w= widht
H= Height


sehen die Positions-, und Größen angaben in delphi so aus:

Left=8
Top=192
widht=85
Height= 36

bei den anderen Images und labeln und so weiter, sieht es dann schon wieder ganz anders aus.
D.H dass ich die werte nicht einfach -diferenz rechnen kann.

damit meine ich, dass mir sowas hier:

markieren

Code:

  imageleft:=imageleft-122;
  imagetop:=imagetop-2613);
  imageheight:=-534;
  imagewidth:=imagewidth-1265;

leider nur bei dem einen Image hilft (siehe IMAGE1 (weiter oben) ).


Jetzt wollte ich also fragen, ob zufällig jemand einen Algorithmus hat , der die größen-, und positionsangaben von basic formularen in delphi formulare umwandelt, oder jemand eine andere gute möglichkeit hat.

Wahrscheinlich sind die Angaben von VB in Twips, die von Delphi in Pixeln. In aller Regel entspricht ein Pixel 15 Twips.

Ja geil danke...
ist echt so.

also mit div 15 stimmen die angaben danke!!!!