Ergebnis der Suchanfrage

• Forum: Multimedia
    Delphi
    by theomega, 4. Nov 2002
  noch ein kleiner Beipsiel:
  
  procedure TForm1.Button1Click(Sender: TObject);
  var h:HDC;
  rec:TRect;
  Brush: HBRUSH; // Handle für Brush
  Pen: HPEN; // Handle für Zeichenstift
  begin
  h := getdc(handle);
  rec.TopLeft.X := 0;
• Forum: Multimedia
    Delphi
    by theomega, 4. Nov 2002
  Hier mal ein Beispiel, dürfte klaro sein:
  
  canvas.TextOut(0,50,'LINKS');
  
  canvas.TextOut(form1.clientWidth-canvas.TextWidth('RECHTS'),100,'RECHTS');
  
  canvas.TextOut(round((form1.ClientWidth - canvas.TextWidth('ZENTRIERT')) / 2),200,'ZENTRIERT');