Hello everyone!

I want to use SlimDX and Direct2D from F#. So I tried to port the

Direct2D sample in the August 2009 SlimDX SDK from C# to F#. The translation

below is as verbatim as I could do. It compiles fine (using Visual

Studio 2010 Beta 2), yet it does not work as expected: the application

shows only an empty white window. The C# version compiles and runs

fine, though.

Any ideas what might be the problem?

Thanks,

Felix

F# translation:
open System
open System.Drawing
open System.Windows.Forms
open SlimDX
open SlimDX.Direct2D
open SlimDX.Windows

[<STAThread()>]
do
let form = new RenderForm("SlimDX Direct2D")
let renderTargetProperties = new WindowRenderTargetProperties(Handle=form.Handle, PixelSize=form.ClientSize)
let renderTarget = new WindowRenderTarget(new Factory(), renderTargetProperties)
let brush1 = new SolidColorBrush(renderTarget, Color4(Color.LightSlateGray))
let brush2 = new SolidColorBrush(renderTarget, Color4(Color.CornflowerBlue))

form.ClientSizeChanged.AddHandler(new EventHandler(fun o e -> (renderTarget.Resize(form.ClientSize) |> ignore)))
form.Paint.AddHandler(new PaintEventHandler(fun o e -> do
if not renderTarget.IsOccluded then
renderTarget.BeginDraw |> ignore
renderTarget.Transform = Matrix3x2.Identity |> ignore
renderTarget.Clear(Color4(Color.White))

let mutable startPoint = PointF.Empty
let mutable endPoint = new PointF(renderTarget.Size.Width, renderTarget.Size.Height)

while startPoint.X < renderTarget.Size.Width do
(endPoint.X <- startPoint.X) |> ignore
renderTarget.DrawLine(brush1, startPoint, endPoint, 0.5f) |> ignore
(startPoint.X <- startPoint.X + 10.0f) |> ignore

startPoint <- PointF.Empty
endPoint.X <- renderTarget.Size.Width
endPoint.Y <- 0.0f

while startPoint.Y < renderTarget.Size.Height do
endPoint.Y <- startPoint.Y
renderTarget.DrawLine(brush1, startPoint, endPoint, 0.5f)
startPoint.Y <- startPoint.Y + 10.0f

let rect1 = new RectangleF(renderTarget.Size.Width / 2.0f - 50.0f, renderTarget.Size.Height / 2.0f - 50.0f, 100.0f, 100.0f)
let rect2 = new RectangleF(renderTarget.Size.Width / 2.0f - 100.0f, renderTarget.Size.Height / 2.0f - 100.0f, 200.0f, 200.0f)

renderTarget.FillRectangle(brush1, rect1)
renderTarget.FillRectangle(brush2, rect2)

renderTarget.EndDraw |> ignore
))

Application.Run(form)

for item in ObjectTable.Objects do
item.Dispose()

C# original:

/*
* Copyright (c) 2007-2009 SlimDX Group
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
using System;
using System.Drawing;
using System.Windows.Forms;
using SlimDX;
using SlimDX.Direct2D;
using SlimDX.Windows;

namespace RenderDemo
{
static class Program
{
[STAThread]
static void Main()
{
var form = new RenderForm("SlimDX - Direct2D Render Demo");
var renderTarget = new WindowRenderTarget(new Factory(), new WindowRenderTargetProperties()
{
Handle = form.Handle,
PixelSize = form.ClientSize
});

var brush1 = new SolidColorBrush(renderTarget, Color.LightSlateGray);
var brush2 = new SolidColorBrush(renderTarget, Color.CornflowerBlue);

form.ClientSizeChanged += (o, e) => { renderTarget.Resize(form.ClientSize); };
form.Paint += (o, e) =>
{
if (!renderTarget.IsOccluded)
{
renderTarget.BeginDraw();
renderTarget.Transform = Matrix3x2.Identity;
renderTarget.Clear(Color.White);

PointF startPoint = PointF.Empty;
PointF endPoint = new PointF(renderTarget.Size.Width, renderTarget.Size.Height);

while (startPoint.X < renderTarget.Size.Width)
{
endPoint.X = startPoint.X;
renderTarget.DrawLine(brush1, startPoint, endPoint, 0.5f);
startPoint.X += 10.0f;
}

startPoint = PointF.Empty;
endPoint.X = renderTarget.Size.Width;
endPoint.Y = 0.0f;

while (startPoint.Y < renderTarget.Size.Height)
{
endPoint.Y = startPoint.Y;
renderTarget.DrawLine(brush1, startPoint, endPoint, 0.5f);
startPoint.Y += 10.0f;
}

var rect1 = new RectangleF(renderTarget.Size.Width / 2 - 50.0f, renderTarget.Size.Height / 2 - 50.0f, 100.0f, 100.0f);
var rect2 = new RectangleF(renderTarget.Size.Width / 2 - 100.0f, renderTarget.Size.Height / 2 - 100.0f, 200.0f, 200.0f);

renderTarget.FillRectangle(brush1, rect1);
renderTarget.DrawRectangle(brush2, rect2);

renderTarget.EndDraw();
}
};

Application.Run(form);

foreach (var item in ObjectTable.Objects)
item.Dispose();
}
}
}