Variant
Objekt für den Einbau einer Designvariante.
|
|
|
|
|
FUNC |
COM |
SF |
|---|---|---|---|---|---|---|
|
SetFile |
Setzt den Dateiname der FMV-Datei. |
(String fileName) |
Dateiname in Betriebssystemkonventionen |
1211.1 |
1211.2 |
- |
|
SelectFile |
Ruft einen File-Selector zum Auswählen einer FMV-Datei auf und setzt die Datei für das Objekt. |
( ) |
|
1211.1 |
1211.2 |
- |
|
GetFile |
Liefert den gesetzten Dateinamen. |
String GetFile ( ) |
|
1211.1 |
1211.2 |
- |
|
FileExists |
Existiert die Datei zu dem gesetzten Dateinamen? |
( ) |
0 = Datei existiert nicht. (Wenn kein Dateiname gesetzt ist, wird ebenfalls 0 geliefert.) |
1211.1 |
1211.2 |
- |
|
SetParameters |
Setzt Parametervariablen für die Variante. Es müssen nicht alle Parametervariablen belegt werden. Der Rest wird beim Einbau der Variante ('Insert') abgefragt. |
(const Variables& v) |
|
1211.1 |
1211.2 |
- |
|
GetParameters |
Liefert die Parametervariablen nach dem Einbau. |
(Variables& v) |
|
1211.1 |
1211.2 |
- |
|
Insert |
Baut die Variante ein. |
( ) |
|
1211.1 |
1211.2 |
- |
|
Done |
Hat der Einbau geklappt? |
bool Done ( ) |
|
1211.1 |
1211.2 |
- |
Beispiel Variant
START 59
rem Es soll eine Variante 'quader.fmv' eingebaut werden, bei der das Makro die
rem Parametervariablen 'laenge' und 'breite' belegt und die Parametervariable
rem 'hoehe' vom Varianteneinbau abgefragt wird.
rem Hier geschieht die Belegung der Variablen (z.b. in einem mnu oder sonstwie)
%l1:= 10
%l2:= 20
rem Die Variablen, die bekannt sind, in ein Variablenobjekt füllen
FUNC delete parameters
FUNC Variables parameters
FUNC parameters.SetRealVar ("laenge", %l1)
FUNC parameters.SetRealVar ("breite", %l2)
rem Hicad-Dateinamen in einen Betriebssystem-Dateinamen umwandeln
FUNC delete filename
FUNC HicFileName filename
FUNC filename.Set ("c:quader.FMV")
FUNC $n:= filename.GetOSName ()
rem Aufruf der Variante
rem Anlegen des Objektes
FUNC delete var
FUNC Variant var
rem Setzen des Dateinamens in Betriebssystem-Konventionen
FUNC var.SetFile($n)
rem Übergabe der Parameter
FUNC var.SetParameters(parameters)
rem Einfügen der Variante. Die Variablen, die nicht in 'parameters' definiert sind werden abgefragt.
FUNC var.insert()
END
