Hi,
Ich habe ein Programm bei dem ich nicht den überlichen Windowsrahmen um meinem Form habe. Aber ohne irgendeine Grenze am Rand des Forms sieht es nicht sehr professionell aus. Ich habe jetzt folgendes im Sinn:
In der OnActivate des Forms soll ein Image namens "Background" (=Hintergrund) erstellt werden, die dann der Größe des Forms angespasst wird.
(Die größe des Forms variiert je nach größe des Bildschirms, deshalb kann ich keine festen Zahlen benutzten)
Delphi-Quellcode:
// in OnActivate Form1:
Background.Height := Form1.Height;
Background.Width := Form1.Width;
Weil dieser Image als "Hintergrund" dient muss er nach hinten gestellt werden:
Background.SendToBack;
Nun will ich einen "Rahmen" mit Canvas zeichnen:
Delphi-Quellcode:
Background.Canvas.Pen.Color := clblack; // schwarz
Background.Canvas.Rectangle(0, 0, Background.Width, Background.Height);
Nun kommt mein Problem:
Auf "Background" wird zwar ein schwarzer Rahmen gezeichnet aber der Rest der Fläche färbt sich weiß!
Ich möchte aber, dass die Fläche clBtnFace hat. Wie mache ich das?
PS.: Ich habe mir schon mehrere Befehle zum Flächenausfüllen angesehen aber nicht verstanden wie ich sie anwenden soll. Eine vervollständigung des folgenden Quellentextes wäre am hilfreichesten...
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
begin
Background := TImage.Create;
Background.Parent(Form1);
Background.Height := Form1.Height;
Background.Width := Form1.Width;
Background.Canvas.Pen.Color := clblack;
Background.Canvas.Rectangle(0, 0, Background.Width, Background.Height);
Background.Canvas.Pen.Color := clBtnFace;
// wie fülle ich jetzt die verbleibende Fläche aus?
end;