I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.