GDI+ Flat API: Matrizen machen mich meschugge...

[Mithrandir]

Wat würde ich nur ohne dich machen..

Delphi-Quellcode:

  if FSongPosTime <> '' then
  begin
    GdipCreateSolidFill(FSongTimeColor, gpFontBrush);
    rectF := MakeRectF(195, 82, 0, 0);
    gpGetStatus(GdipDrawString(gpGraphics, StringToOleStr(FSongPosTime), length(FSongPosTime), gpTimeFont, @rectF, gpStrFormat, gpFontBrush));
    rectF := MakeRectF(194, -71, 0, 0);
    GdipCreateMatrix(fMatrix);
    gpGetStatus(GdipSetMatrixElements(fMatrix, 1, 0, 0, -1, 1, 1));
    gpGetStatus(GdipSetWorldTransform(gpGraphics, fMatrix));
    gpr := MakeRect(194, -74, 85, 29);
    GdipCreateLineBrushFromRectI(@gpr, $02999999, $A0999999, LinearGradientModeVertical, WrapModeTile, gpMirrorBrush);
    gpGetStatus(GdipDrawString(gpGraphics, StringToOleStr(FSongPosTime), length(FSongPosTime), gpTimeFont, @rectF, gpStrFormat, gpMirrorBrush));
    gpGetStatus(GdipResetWorldTransform(gpGraphics));
    gpGetStatus(GdipDeleteMatrix(fMatrix));
  end;

Liefert das Ergebnis im Anhang.