Gibt es solch ein Control ?

[Bigmichi]

Ich suche ein Control in dem man schreiben kann wie eine editbox sich auf den Text anpasst in der Höhe also wnen man zuviel schreibt dsa sie sich in der Höhe verändert und am besten wäre es wenn ich ein Parent background benutzen kann oder einfach Tranzperent

Gibts sowas ?

danke =)

[himitsu]

z.B. ins OnChange-Ereignis eines Memos einen Code dieser Art reinmachen.

Delphi-Quellcode:

Procedure TForm1.Memo1Change(Sender: TObject);
  Begin
    Memo1.Height := Max(Memo1.Lines.Count, 1) * TextHoehe(Memo1.Font, 'Xg') + 8;
  End;

TextHoehe => Länge und Höhe eines Textes (String)



[Edit]Sch* Schreibfehler :wall:

[Ratte]

HI,

du könntest ein Memo nehmen und immer wenn der Text nicht mehr in die angezeigten Zeilen passt die Höhe ändern.

Ratte

[Bigmichi]

Danke euch beiden darauf bin ich noch agrnet gekommen =) aba wie bekomme ich die Memo Transparent ? kann mir da jemand helfen ?

[axelf98]

Hier ist ein Beispielprogramm mit einem sich anpassendem Edit nach deinen Wünschen.

(Ebenfalls ein Memo mit Größenanpassung)

Edit: Jetzt auch transparent...

[Bigmichi]

Danke =) nun brauchich wirklich nur noch das Transparent und dan bin ich happy =)

[Mirilin]

:hi:

ParentColor auf True, und den Ramen weg.

mfg Tobias

[Bigmichi]

Mega danke XD ich doofi lol sorry für meien Blödheit =)
köntn schwören das es bei meiner memo vor 5 min net da war XD

[Mirilin]

:hi:

:gruebel: bei D6 geht das.
(Du kannst Deine Delphi Version im Profil angeben.)

mfg Tobias

[Bigmichi]

yo das geht schon nur das Blöde is der ändert nur die farbe is net transparent :((
dan is der BackG Blau statt das Bild was normalerweise durchscheinen sollte -.-

kennt jemand noch eien andere möglichkeit ? =)

[Mirilin]

:hi:

Klick



mfg Tobias

[Bigmichi]

kann mir jemand daraus ein Control machen ich bekomm es einfach et hin :((

[Mirilin]

:hi:

Die Datei legst Du in einen Ordner z.B. \Delphi\3dParty\TransparentMemo .
Dann wählst Du "Komponente"->"Komponente Installieren" . Bei Name der Unit wählst Du die Datei.

mfg Tobias

[Bigmichi]

hm ok das is schön und gut nur die macht voll fehler :(

mnan kann keine Farben einstellen udn wenn man sie makiert is se net mehr trasn -.-

kann man vllt ein Text in nem Bild schreiben und akieren udn kopieren und so ?

kennt jemand irgendeine lösung dafür ? wäre echt mega dankebar =)

[Mirilin]

:hi:

Schau sonst mal bei Torry nach.

mfg Tobias

[Bigmichi]

http://www.torry.net/vcl/edits/other/bfadvedit.zip

Soll eine Edit sein die Transperent is kannjemand das mal zu versuchen zu instalieren ? mir sagt er es fehlt ihm eien Datei :((

Hab Delphi 7

[Luckie]

Zitat:

Zitat von Bigmichi

mir sagt er es fehlt ihm eien Datei :((

Er sagt dir bestimmt auch welche oder? Und was für ein Delphi 7? Es gibt mindestens drei verschiedene Versionen.

[Bigmichi]

Hab es nun anders geregelt kann mir nun jemand sagen wie ich es schaffe statt einer memo ein Label in der Höhe anzupassen ?? das soll eine bestimmte Breite haben udn die Höhe am Text angepasst =)

Danke schoma =)

[Mirilin]

:hi:


Beim Label
- Autosize : true;
- Wordwrap : true;
- Constraints.MinWidth und MaxWidth auf den gleichen Wert.

mfg Tobias

[Bigmichi]

dsa klappt bei mir nicht :(

in der Breite passiert zwar nich aba in der höhe auch nader -.-

mach ich was falsch hab genau so gemacht wie du gesagt hast

[Sharky]

@Bigmichi: Versuche doch zumindest deine Schreibweise etwas ordentlicher zu gestalten. So kann man das ja kaum lesen.

[Bigmichi]

:-D Hab gemeint das die Breite gleich bleibt aber auch die Höhe es passiert leider nix :(

besser ? =)

[Mirilin]

:hi:

mfg Tobias

[Bigmichi]

bei mit bewirkt "Wordwrap" überhaupt nix selbst wenn ich die Höhe größer mache und der String länger ist als die Breite bleibt e snur 1 Zeile -.-

was mach ich falsch ?

Hab Delphi 7

[Mirilin]

:hi:

Häng doch mal dein Programm an, damit man es sich ansehen kann. So ist es - zumindest für mich - schwer zusagen, was falsch läuft.

mfg Tobias

[Bigmichi]

Ich hoffe kannst mir helfen =)

[Mirilin]

:hi:

:gruebel: er bricht den riesen String nicht um, er bricht nur bei Leerzeichen, wie es scheint.

mfg Tobias

[Bigmichi]

dsa is mehr als schlecht :( ich weiß ja nie wie lang ein strign wird und dan kann man den net sehen -.-

gibt es eine andree möglichkeit transperent Text anzuzeigen ?

wo man auch das Kontroll auf den Text anpassen kann ?

[dizzy]

Ist ja auch Wordwrap, nicht Charwrap ;)
Woher soll Delphi auch wissen, wo man ein Wort trennen kann/darf.

[Mirilin]

:hi:

Delphi-Quellcode:

procedure SetMultiLineString(const aString: String;
  aLabel: TLabel);
var
  s : String;
  t : String;
  p : String;
  i : Integer;
begin
  p := aString;
  s := '';
  while p <> '' do
  begin
    t := '';
    i := 1;
    while aLabel.Canvas.TextWidth(t)+aLabel.Canvas.TextWidth(p[i])  < aLabel.ClientWidth do
    begin
      t := t+p[i];
      inc(i);
    end;
    s := s + t+#13#10;
    Delete(p,1,i-1);
  end;
  aLabel.Caption := s;
end;

:duck: nicht schlagen

mfg Tobias

[Bigmichi]

Danke habt mir sehr geholfen =) :-D