- procedure TMDIChildLayoutViewer.FormCreate(Sender: TObject);
- var
- i, n: Integer;
- begin
- DecimalSeparator:='.';
- screen.Cursor := crNone;
- navigationMode := true;
- InitOpenGL;
- DC := GetDC(Handle);
- RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
- ActivateRenderingContext(DC, RC);
- glEnable(GL_DEPTH_TEST);
- glEnable(GL_CULL_FACE);
- glDepthFunc(GL_LESS);
- glClearColor(getRValue(bgColor), getGValue(bgColor), getBValue(bgColor), 0);
- // ------------------- Source erstellen(= [color=orange]das hier ist meine Box![/color]) -------------------
- Source := TAll3dsMesh.Create(Self);
- Source.TexturePath := 'OpenGl\textures';
- Source.LoadFromFile('OpenGl\models' + basObj.getLayoutFile);
- Application.OnIdle := ApplicationEventsIdle;
- initView;
- scale := 0.5;
- mouseNavScale := 0.1;
- navigationMode := true;
- moveFlag := false;
- end;