procedure InitBorShade(Data: PControlData; Info: PDialogInfo);
Erzeugt je nach Stil TStaticText- und TLevel-Objekte,
um statische Schattierungen darzustellen.
Diese Erzeugungsprozedur wird von RegisterGvWinDlg
mit der Klasse 'BorShade' verbunden.