Selektionsrahmen um Komponente zeichnen?

[I.A]

Hallo?

Gibt es eine einfache Möglichkeit, den Selektionsrahmen, der zur Entwurfszeit um die ausgewählte Komponente gezeichnet wird, zur Laufzeit als Rahmen zu verwenden?

Das hier:
Label1.ComponentState := csDesigning; führt nicht zum Ziel, da ComponentState einen Nur lesen Eigenschaft ist.

Einer meiner Computerfreunde will das mit der LCL nutzen, sich aber nicht erst hier registrieren.

Da ich davon ausgehe, das die LCL Interface-Kompatibel zur VCL ist, stelle ich diese Frage hier.

Mein PC Freund Axel will einen Designer für das Gute Alte Turbo Vision bauen, hierzu aber mit Lazarus und der LCL den Designer bauen. Um das Ergebnis mit dem Guten Alten Turbo Vision verwenden zu können, erzeugt der Designer am Ende passenden Quelltext. Eine Formulardatei .lfm wird nicht erzeugt.

Er lässt fragen, wieviele alte Turbo Vision Programme noch verwendet werden und eine "Frischzellenkur" gebrauchen könnten. Dann würde er nicht nur Ouelltext für das alte Turbo Vision im Designer erzeugen lassen, sondern zusätzlich einen Wrapper bauen, der das Turbo Vision Interface nachbildet, die Implementation jedoch mit der LCL realisiert. Dann könnten diese alten Programme auf Windoes portiert werden.

Wie viele Interessenten gibt es da schätzungsweise?

Bitte entschuldigt die exotische Frage, aber für Axel hat der Designer nur Sinn, wenn dieser Wrapper am Ende für die Allgemeinheit von Nutzen ist. Das dabei eine Designer für die alte DOS Version als Nebeneffekt entstehen würde, ist eher zweitrangig. So viele nutzen auch im FreeDOS-Bereich diese Objekte nicht mehr.

[matashen]

Zitat:

Gibt es eine einfache Möglichkeit, den Selektionsrahmen, der zur Entwurfszeit um die ausgewählte Komponente gezeichnet wird, zur Laufzeit als Rahmen zu verwenden?

nimm ein TShape das du normalerweise auf visible:=false setzt und wenn du es brauchst über dein Objekt legst und sichtbar machst.

Ist am einfachsten denke ich.

Gruß Matthias

[Hansa]

Zitat von I.A:

..einen Designer für das Gute Alte Turbo Vision bauen...Wie viele Interessenten gibt es da schätzungsweise?...

Vermutlich keinen einzigen, der dafür einen sinnvollen Einsatzzweck hat. Das "gute alte" TurboVision hatte sowieso kaum einer eingesetzt. Wer es doch getan hat, der wird sich wohl über das kurz danach erschienene Delphi geärgert haben.

[_frank_]

du kannst dir ja mal die Komponenten TStretchhandle und TSizeCtrl anschauen, sind zwar beide VCL-Controls, aber evtl. kannst du diese in die LCL portieren.
Bei TsizeCtrl wär ich auch interessiert, da diese Komponente mächtiger ist und ich sie in meinem DFM-Editor verwende. leider verwendet diese aber auch ein paar WinApi-Tricks, welche das portieren nach linux schwieriger machen würden.

HTH Frank

[I.A]

Hallo,


Ich hab das jetzt so hier gelöst:

Delphi-Quellcode:

procedure Decorate(hdc: HDC; r: TRect; penColor: TColor);
const
  PENWIDTH = 2;
begin
  with TCanvas.Create do
  try
    Handle := hdc;
    Pen.Width := PENWIDTH;
    Pen.Color := penColor;
    InflateRect(r, PENWIDTH, PENWIDTH);
    Brush.Style := bsClear;
    Rectangle(r);
  finally
    Free;
  end;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  //Selektionsrahmen zeichnen
 with Sender as TLabel do
    Decorate(GetDC(Handle), BoundsRect, clHighlight);
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  //Selektionsrahmen löschen
  {
 with Sender as TLabel do
    Decorate(GetDC(Handle), BoundsRect, self.Color);}
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
{
  FShape := TShape.Create(self);
  FShape.Left := Label1.Left - 2;
  FShape.Top  := Label1.Top  - 2;
  FShape.Width := Label1.Width + 2;
  FShape.Height := Label1.Height + 2;
  FShape.Parent := self;



  }
end;

Die letzte Version, die mit TShape verdeckt mir leider meine Labelbeschriftung, womit ja die Komponente verdeckt wäre. Die Prozedut Decotate funktioniert gut.

@Hansa: Schade, ich musste Axel die unschöne Kunde überbringen. Damit hat sich aber auch der Designer erledigt, für den er, nicht ich, den Selektionsrahmen gebraucht hätte. In die Lazarusquellen einzusteigen, das dauert einfach zu lange, um daraus eine Lösung zu extrahieren. Axel wir sich ein neues Projekt überlegen.

Habe mir die Jedis mal angesehen. Da sind auch Formdesigner, Objektinspektor u.a. dabei. Aber wozu braucht man das noch. CodeGear und das Lazarusteam können doch Anwendungsdesigner echt besser programieren, als unsereiner, der sich jetzt in die Jedis erst mal einarbeiten muss.


@_frank_: Ich habe trotzdem mal per GExperts Grep Suche nach TSizeCtrls und TStretchHandle gesucht, aber leider ohne Erfolg. Dann gegoogelt und TStretchHandle gefunden und runtergeladen. Werde mir den Quelletext trotz allem mal ansehen. TSizeCtrls hab ich gar nicht gefunden, da gibt mir auch Google keine Auskunft. Egal, jetzt guck ich mir mal den Quelltext von TStretchHandle an. Irgenwie hat mich der Ehrgeiz gepackt, obwohl wohl andere so einen Anwendungsdesigner besser hinkriegen werden, als ich.

[_frank_]

Zitat von I.A:

@_frank_: ... TSizeCtrls hab ich gar nicht gefunden, da gibt mir auch Google keine Auskunft. Egal, jetzt guck ich mir mal den Quelltext von TStretchHandle an. Irgenwie hat mich der Ehrgeiz gepackt, obwohl wohl andere so einen Anwendungsdesigner besser hinkriegen werden, als ich.

schau nochmal hin...die Komponente heist TSizeCtrl (ohne s) dann wirst du auch bei google fündig...die gibt es bei www.angusj.com/delphi . TSizeCtrl unterstützt z.b. de Align-eigenschaft richtig (aktiviert die handles nur an den sinnvollen stellen) und macht das control nicht größer durch "Unterschieben" eines anderen controls zu darstellung der Handles. bei letzteren weis ich jetzt nicht, ob das bei TStretchhandle war...hatte aber mal eine Komponente die genau das gemacht hatte, und da gabs Probleme beim Form-Layout.

btw. warum der Umweg über getdc? TLabel hat doch schon ein canvas-property...

Gruß Frank

[Micha88]

Zitat von matashen:

Zitat:

Gibt es eine einfache Möglichkeit, den Selektionsrahmen, der zur Entwurfszeit um die ausgewählte Komponente gezeichnet wird, zur Laufzeit als Rahmen zu verwenden?

nimm ein TShape das du normalerweise auf visible:=false setzt und wenn du es brauchst über dein Objekt legst und sichtbar machst.

Ist am einfachsten denke ich.

Gruß Matthias

Die Idee ist zwar gut und das Ergebnis ist auch sehr gut, nur ich glaube, dass das bei größeren Projekten schwer zu handlen ist.

[Micha88]

Ich habe die Lösung da oben mal etwas umgeschrieben, ob es für jeden sinnvoll ist weis ich nicht:

Delphi-Quellcode:

{
 iPw: PenWidth kann nun bei jedem Control selbst mitgegeben werden.
 iSp: Spacing, Abstand vom Control nach links und rechts.
 iPd: Padding, Abstand vom Control nach oben und unten.
}
procedure Decorate(hdc: HDC; r: TRect;
 penColor: TColor; iPw, iSp, iPd: ShortInt); // Änderung: iPw, iSp, iPd
begin
  with TCanvas.Create do
  try
    Handle := hdc;
    Pen.Width := iPw;
    Pen.Color := penColor;
    InflateRect(r, iSp, iPd);
    Brush.Style := bsClear;
    Rectangle(r);
  finally
    Free;
  end;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
 with Sender as TLabel do
  Decorate(GetDC(Handle), BoundsRect, clHighlight, 1, 10, 20);
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
 with Sender as TLabel do
  Decorate(GetDC(Handle), BoundsRect, self.Color, 1, 10, 20);
end;

[I.A]

Zitat von _frank_:

Zitat von I.A:

@_frank_: ... TSizeCtrls hab ich gar nicht gefunden, da gibt mir auch Google keine Auskunft. Egal, jetzt guck ich mir mal den Quelltext von TStretchHandle an. Irgenwie hat mich der Ehrgeiz gepackt, obwohl wohl andere so einen Anwendungsdesigner besser hinkriegen werden, als ich.

schau nochmal hin...die Komponente heist TSizeCtrl (ohne s) dann wirst du auch bei google fündig...die gibt es bei www.angusj.com/delphi. TSizeCtrl unterstützt z.b. de Align-eigenschaft richtig (aktiviert die handles nur an den sinnvollen stellen) und macht das control nicht größer durch "Unterschieben" eines anderen controls zu darstellung der Handles. bei letzteren weis ich jetzt nicht, ob das bei TStretchhandle war...hatte aber mal eine Komponente die genau das gemacht hatte, und da gabs Probleme beim Form-Layout.

btw. warum der Umweg über getdc? TLabel hat doch schon ein canvas-property...

Gruß Frank

Hab grad den Link angeklickt: Error 404.

[Hawkeye219]

Hallo,

Zitat von I.A:

Hab grad den Link angeklickt: Error 404.

entferne mal den letzten Punkt aus der Adresse, dann klappt das.

Gruß Hawkeye