Füllen Sie benutzerdefinierten Bereich mit Farbe

Wie kann ich füllen den ausgewählten Bereich mit Farbe?

var Rect: TRect;
    Color: TColor;
begin
  //fill area with color
end;

InformationsquelleAutor Little Helper | 2011-11-27

  1. 9

    Haben Sie nicht gesagt, was du damit meinst benutzerdefinierten Bereich und Sie sprechen von einer "gewählten Bereich". Ich weiß nicht, was du meinst.

    Für ein einfaches Rechteck dann normalerweise füllen Sie das Rechteck mit TCanvas.FillRect.

    Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := Color;
Canvas.FillRect(R);

    wo R ist ein TRect Angabe des Rechtecks.

    Für eine komplexere region, dann müssen Sie fallen zurück auf die Windows-GDI-Funktion FillRgn. Diese Funktion ist nicht eingewickelt durch TCanvas aber Sie können nennen Sie es einfach vorbei TCanvas.Handle als HDC.

    Und nur hinzufügen, für nicht-rechteckigen Bereich, würde ich vorschlagen, dass ExtFloodFill Funktion
    Ich glaube nicht, dass. Es ist ein guter Vorschlag obwohl. Flood fill ist ein bisschen anders aus FillRect/FillRgn, aber könnte hier passen.

    InformationsquelleAutor David Heffernan

  2. 2

    Benötigen Sie ein VIEL mehr spezifisch, aber das sollte erhalten Sie gehen in die richtige Richtung:

    procedure DoMyDrawing(Canvas: TCanvas; L, T, R, B: Integer; Color: TColor);
var
  Rec: TRect;
begin
  Rec.Left:= L;
  Rec.Top:= T;
  Rec.Right:= R;
  Rec.Bottom:= B;
  //SAME AS Rec:= Rect(L, T, R, B);
  Canvas.Brush.Color:= Color;
  Canvas.Brush.Style:= bsSolid;
  Canvas.Pen.Style:= psClear;
  Canvas.FillRect(Rec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoMyDrawing(Self.Canvas, 10, 10, 50, 50, clNavy);
end;

    EDIT:

    Ich würde so mehr empfehlen, mit einem TRect-statt der 4-Koordinaten (Links, Oben, Rechts und Unten), weil eine TRect-enthält alle 4 von diesen bereits. Lesen Sie auch ein TRect mit einem TopLeft TPoint und BottomRight TPoint.

    (Ich auch Fix einen Tippfehler oben Canvas.FillRect(R); sein sollte, war Canvas.FillRect(Rec);)

    Hier ist eine andere version der gleichen Prozedur:

    procedure DoMyDrawing(Canvas: TCanvas; const R: TRect; const Color: TColor);
begin
  Canvas.Brush.Color:= Color;
  Canvas.Brush.Style:= bsSolid;
  Canvas.Pen.Style:= psClear;
  Canvas.FillRect(R);
end;

    Viel einfacher, nicht wahr?

    NOCH EIN EDIT:

    Beachten Sie auch die Funktion bin ich mit Rect(Left, Top, Right, Bottom) - Das macht die Dinge einfach zu. Leider habe ich gesehen, einige standard-VCL-Steuerelemente die Ereignisse mit Parameter namens Rect: TRect; was vermasselt die Fähigkeit, um die ursprüngliche Funktion in der classes Einheit. So vermeiden Sie auch die Verwendung einer Variablen mit dem Namen Rect weil es verhindert, dass Sie in der Lage, verwenden Sie die Rect - Funktion (die dreht sich 4 Zeilen code in nur 1).

    Außerdem empfehle ich statt mit 4 zahlen (Links, Oben, Rechts, Unten), verwenden Sie TRect statt, die alle 4 schon zusammen.
    Anstatt zu kommentieren auf Ihre eigene Antwort, können Sie einfach Bearbeiten. Es ist ein wiki. In der Tat kann jeder Bearbeiten Ihre Antwort.
    Ja, das weiß ich, ich war ziemlich in Eile, wenn ich Links, Kommentar, Bearbeitung...

    InformationsquelleAutor Jerry Dodge

Schreibe einen Kommentar