Witam, mam do zrobienia programik wstawiający znak wodny,
lecz nie mam pojęcia jak zrobić przezroczystość tekstu.
Proszę o pomoc.
Póki co mam coś takiego:
void __fastcall TForm2::BMarkPutClick(TObject *Sender)
{
Image->Canvas->Draw(CSpinX->Value-Image2->Width/2, //obiera miejsce wstawienia
CSpinY->Value-Image2->Height/2,
Form2->Image2->Picture->Bitmap);
Image->Canvas->Font->Name = FontDialog1->Font->Name;
Image->Canvas->Font->Size = FontDialog1->Font->Size;
Image->Canvas->Font->Color = FontDialog1->Font->Color;
Image->Canvas->Brush->Color = bsClear;
Image->Canvas->Brush->Style = bsClear;
LOGFONT LogFont;
GetObject(FontDialog1->Font->Handle, sizeof(LOGFONT), &LogFont);
LogFont.lfEscapement = CSpinAlfa->Value*10; //kat pod jakim wpisze tekst
LogFont.lfOrientation = CSpinAlfa->Value*10;
Image->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Image->Canvas->TextOut(CSpinX->Value, CSpinY->Value, EText->Text);
}