begin Canvas.Brush.Style := bsClear; Canvas.Font.Color := clGreen; Canvas.Font.Name := Tahoma; Canvas.Font.Size := 20; Canvas.TextOut(10, 10, 'Daaaaaavs... Her har vi en tekst'); end;
Puuuuha... Hvis jeg var dig ville jeg nok låne Delphi 4 programmering af Per Amdal Steffensen... :)
Nå, men here goes...
Lav en ny knap på din form. Dobbeltklik på den, så får du følgende:
procedure TForm1.Button1Click(Sender: TObject); begin
end;
Her i kan du så skrive den kode der skal køre når du trykker på knap et.
I dit tilfælde skal du ha' indsat en tekst på billedet...
Du skriver så følgende mellem begin og end;
Canvas.Brush.Style := bsClear; //Gør baggrundsfarven når du skriver gennemsigtig Canvas.Font.Color := clGreen; //Sætter skriftfarven til grøn Canvas.Font.Name := Tahoma; //Sætter skrifttypen til Tahoma Canvas.Font.Size := 20; //Sætter skriftstørelsen til 20 Canvas.TextOut(10, 10, 'Daaaaaavs... Her har vi en tekst'); //Skriver teksten "Daaaaaavs... Her har vi en tekst" på positionen 10, 10...
Når du så skal gemme den så bruger du bare den kode du har i forvejen...
Hvis jeg kan hjælpe dig så kan du eventuelt kontakte mig på ICQ... Bare se min bruger-konto, der står det hele... ;)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.