{ PDF object is supposed to be created }

{ Declaration:

  const
    blendModeNames: array[0..15] of PChar = (
      'Normal', 'Multiply', 'Screen', 'Overlay', 'Darken', 'Lighten',
      'ColorDodge', 'ColorBurn', 'HardLight', 'SoftLight', 'Difference',
      'Exclusion', 'Hue', 'Saturation', 'Color', 'Luminosity');
  var
    fLeft, fTop, fWidth, fHeight : Single;
    rowShift, columnShift : Single;
    row, column : integer;
}

fLeft := 50.0;
fTop := 50.0;
fWidth := 50.0;
fHeight := 50.0;

for row := 0 to 2 do
begin
    rowShift := row * height * 2;
    for column := 0 to 4 do
    begin
        PDF.SetBlendMode(bmNormal);
        columnShift := column * (fWidth * 1.5);

        PDF.SetColorFill(0, 0, 0, 0);
        PDF.ShowTextAt(fLeft + columnShift, fTop + rowShift - 20, blendModeNames[column + 5 * row]);

        PDF.SetColorFill(0.9, 0.6, 0.1, 0);
        PDF.DrawRectangle(fLeft + columnShift, fTop + rowShift, fWidth, fHeight, 0);
        PDF.Fill;

        PDF.SetBlendMode(column + 5 * row);

        PDF.SetColorFill(0.5, 0.5, 1.0, 0);
        PDF.DrawRectangle(fLeft + columnShift + fWidth / 3, fTop + rowShift + fHeight / 3, fWidth, fHeight, 0);
        PDF.Fill;
    end;
end;

PDF.SaveToFile('TestBlendModes.pdf', true);

// PDF object is supposed to be created

string blendModeNames[] = { "Normal", "Multiply", "Screen", "Overlay",
    "Darken", "Lighten", "ColorDodge", "ColorBurn", "HardLight", "SoftLight",
    "Difference", "Exclusion", "Hue", "Saturation", "Color", "Luminosity" };

float fLeft = 50.0f;
float fTop = 50.0f;
float fWidth = 50.0f;
float fHeight = 50.0f;

for (int row = 0; row < 3; row++)
{
    float rowShift = row * height * 2;
    for (int column = 0; column < 5; column++)
    {
        PDF->SetBlendMode(bmNormal);

        float columnShift = column * (fWidth * 1.5f);

        PDF->SetColorFill(0, 0, 0, 0);
        PDF->ShowTextAt(fLeft + columnShift, fTop + rowShift - 20, blendModeNames[column + 5 * row]);

        PDF->SetColorFill(0.9f, 0.6f, 0.1f, 0);
        PDF->DrawRectangle(fLeft + columnShift, fTop + rowShift, fWidth, fHeight, 0);
        PDF->Fill();

        PDF->SetBlendMode((BlendMode)(column + 5 * row));

        PDF->SetColorFill(0.5f, 0.5f, 1.0f, 0);
        PDF->DrawRectangle(fLeft + columnShift + fWidth / 3, fTop + rowShift + fHeight / 3, fWidth, fHeight, 0);
        PDF->Fill();
    }
}

PDF->SaveToFile("TestBlendModes.pdf", true);

// PDF object is supposed to be created

string[] blendModeNames = new string[] { "Normal", "Multiply", "Screen", "Overlay",
    "Darken", "Lighten", "ColorDodge", "ColorBurn", "HardLight", "SoftLight",
    "Difference", "Exclusion", "Hue", "Saturation", "Color", "Luminosity" };

BlendMode[] blendModes = new BlendMode[] { BlendMode.bmNormal, BlendMode.bmMultiply, BlendMode.bmScreen,
    BlendMode.bmOverlay, BlendMode.bmDarken, BlendMode.bmLighten, BlendMode.bmColorDodge,
    BlendMode.bmColorBurn, BlendMode.bmHardLight, BlendMode.bmSoftLight, BlendMode.bmDifference,
    BlendMode.bmExclusion, BlendMode.bmHue, BlendMode.bmSaturation, BlendMode.bmColor, BlendMode.bmLuminosity };

float fLeft = 50.0f;
float fTop = 50.0f;
float fWidth = 50.0f;
float fHeight = 50.0f;

for (int row = 0; row < 3; row++)
{
    float rowShift = row * fHeight * 2;
    for (int column = 0; column < 5; column++)
    {
        PDF.SetBlendMode(BlendMode.bmNormal);
        float columnShift = column * (fWidth * 1.5f);

        PDF.SetColorFill(0, 0, 0, 0);
        PDF.ShowTextAt(fLeft + columnShift, fTop + rowShift - 20, blendModeNames[column + 5 * row]);

        PDF.SetColorFill(0.9f, 0.6f, 0.1f, 0);
        PDF.DrawRectangle(fLeft + columnShift, fTop + rowShift, fWidth, fHeight, 0);
        PDF.Fill();

        PDF.SetBlendMode(blendModes[column + 5 * row]);

        PDF.SetColorFill(0.5f, 0.5f, 1.0f, 0);
        PDF.DrawRectangle(fLeft + columnShift + fWidth / 3, fTop + rowShift + fHeight / 3, fWidth, fHeight, 0);
        PDF.Fill();
    }
}

PDF.SaveToFile("TestBlendModes.pdf", true);

' PDF object is supposed to be created

Dim blendModeNames(16)
blendModeNames(1) = "Normal"
blendModeNames(2) = "Multiply"
blendModeNames(3) = "Screen"
blendModeNames(4) = "Overlay"
blendModeNames(5) = "Darken"
blendModeNames(6) = "Lighten"
blendModeNames(7) = "ColorDodge"
blendModeNames(8) = "ColorBurn"
blendModeNames(9) = "HardLight"
blendModeNames(10) = "SoftLight"
blendModeNames(11) = "Difference"
blendModeNames(12) = "Exclusion"
blendModeNames(13) = "Hue"
blendModeNames(14) = "Saturation"
blendModeNames(15) = "Color"
blendModeNames(16) = "Luminosity"

fLeft = 50
fTop = 50
fWidth = 50
fHeight = 50

for row = 0 To 2
    rowShift = row * fHeight * 2
    for column = 0 To 4
        PDF.SetBlendMode 0' bmNormal
        columnShift = column * (fWidth * 1.5)

        PDF.SetColorFill 0, 0, 0, 0
        PDF.ShowTextAt fLeft + columnShift, fTop + rowShift - 20, blendModeNames(column + 5 * row + 1)

        PDF.SetColorFill 0.9, 0.6, 0.1, 0
        PDF.DrawRectangle fLeft + columnShift, fTop + rowShift, fWidth, fHeight, 0
        PDF.Fill

        PDF.SetBlendMode column + 5 * row

        PDF.SetColorFill 0.5, 0.5, 1.0, 0
        PDF.DrawRectangle fLeft + columnShift + fWidth / 3, fTop + rowShift + fHeight / 3, fWidth, fHeight, 0
        PDF.Fill
    next
next

PDF.SaveToFile "TestBlendModes.pdf", true