Benötige Hilfe beim Entwickeln einer Komponente

[Alter Mann]

Hi torud,

zum zentrierten Text:

Nehme für 'TLayout' TTextLayout aus der Unit StdCtrls, einfach in den Uses-Abschnitt aufnehmen.

Dann fügst Du diesen Teil von oki's code ein:

Zitat:

case TextAlign of
taCenter : myAlignment := DT_CENTER;
taLeftJustify : myAlignment := DT_LEFT;
taRightJustify : myAlignment := DT_RIGHT;
end;

IF FWordWrap then myAlignment := myAlignment or DT_WORDBREAK;

Dann lesen wir in der Hilfe nach was da zu den Flags von DrawText steht -> DT_CALCRECT
und nutzen es auch gleich um uns über OffsetRect schlau zu machen.

Nach der Lektüre ergänzen wir den Code um folgende Passage:

Delphi-Quellcode:

    if FLayout <> tlTop then
    begin
      CalcRect := TextRect;
      DrawText(Canvas.Handle, PChar(FText), -1, CalcRect, myAlignment or DT_CALCRECT);
      if FLayout = tlBottom then OffsetRect(TextRect, 0, Height - CalcRect.Bottom)
                            else OffsetRect(TextRect, 0, (Height - CalcRect.Bottom) div 2);
    end;
    DrawText(Canvas.Handle, PChar(FText), -1, TextRect, myAlignment);

Was passiert:
Durch den Aufruf von 'DrawText(..., CalcRect, myAlignment or DT_CALCRECT)' wird die Weite und
Höhe des Textes berechnet und in CalcRect zurückgegeben.
Anschließend wird mit 'OffsetRect' das TextRect so verschoben, dass der Text entsprechend der
Layoutvorgabe mittels DrawText ausgegeben werden kann.

Das war es.

Gruß

[torud]

Vielen Dank für die Erklärungen und die Unterstützung.
Es funktioniert nun alles!

Wenn ich den Code fertig und sauber habe, kann ich ihn gern nochmals posten, für diejenigen, die ihn nutzen wollen.

[oki]

Hi torud,

wenn du 'ne saubere Lösung für die runden Ecken fertig hast, daran wäre ich interessiert.
Gruß oki

[torud]

sehe ich sehr undeutlich...
Nicht das ich nicht bereit wäre den Code herzuzeigen, aber ich sehe es mehr als undeutlich, dass ich den Code hinbekomme. Ich werde aber, da ich hier in der OpenSource-Sektion etwas in der Richtung gesehen habe, etwas in fremden Code schnüffeln, wie die das gelöst haben.

[oki]

Hi torud,

ein paar Tipps kann ich dir geben.

Als Member der Klasse und zwei Methoden:

Delphi-Quellcode:

  TMyControl = class(TCustomControl)
  private
    FullRgn, PointRgn : THandle;
......
  protected
    procedure DoInvisible;
    procedure DoVisible;
......

Mit Aufruf DoInvisible wird der überflüssige Tein unsichtbar, mit DoVisible alles sichtbar.

Delphi-Quellcode:

procedure TMyControl.DoVisible;
begin
  if FullRgn <> 0 then
    DeleteObject(FullRgn);
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  CombineRgn(FullRgn, FullRgn, FullRgn, RGN_COPY);
  SetWindowRgn(Handle, FullRgn, TRUE);
end;

Das kann man so übernehmen.

Delphi-Quellcode:

procedure TMyControl.DoInvisible;
begin
  //gesamten Clientbereich erfassen
  if FullRgn <> 0 then
    DeleteObject(FullRgn);
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  //'Mask' alles unsichtbar
  CombineRgn( FullRgn, FullRgn, FullRgn, RGN_DIFF );

  // alle sichtbaren Bereiche einblenden
  PointRgn := CreateRectRgn( X, Y, Width, Hight);   // das ist ein Bereich im Rect der eingeblendet wird
  CombineRgn( FullRgn, FullRgn, PointRgn, RGN_OR );
  DeleteObject(Pointrgn);

  // alles Kombiniert und fertig
  SetWindowRgn(Handle, FullRgn, TRUE);
end;

Das Teilstück von PointRgn bis DeleteObject kann beliebig wiederholt werden. Somit kann mann mehrere Clientbereiche auf den FullRgn kombinieren. Hier ist beispielhaft ein RectRgn verwendet. Das gibt es auch für Polygon usw. Einfach in die MS-Hilfe schauen.

Vergiß nicht im Destructor den Speicher wieder frei zu geben.

Delphi-Quellcode:

destructor TMyControl.Destroy;
begin
  try
    DeleteObject(FullRgn);
    DeleteObject(PointRgn);
  except end;

Ach so, wenn es ein fester Bereich ist, reicht es einmal DoInvisible (zum Bsp. im CreateWnd) aufzurufen. Dann sollte man das immer wieder tun, wenn sich die Größe ändert. Erst DoVisible und dann DoInvisible.

Gruß oki

[Hansa]

Zitat von oki:

Hi torud,

wenn du 'ne saubere Lösung für die runden Ecken fertig hast, daran wäre ich interessiert.
Gruß oki

Gehen die runden Ecken immer noch nicht ?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  bgcolor = $00FFDDEE;
  linecolor = $00554366;
var
  img: array of TImage;
  reg: hrgn;
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i].ClassName = 'TPanel' then
    begin
      setlength(img, Length(img) + 1);
      img[i] := TImage.Create(Self);
      img[i].Width := (Components[i] as TPanel).Width;
      img[i].Height := (Components[i] as TPanel).Height;
      img[i].Parent := (Components[i] as TPanel);
      img[i].Canvas.Brush.Color := bgcolor;
      img[i].Canvas.pen.Color := bgcolor;
      img[i].Canvas.Rectangle(0,0,img[i].Width, img[i].Height);
      img[i].Canvas.pen.Color := linecolor;
      img[i].Canvas.RoundRect(0,0,img[i].Width - 1,img[i].Height - 1,20,20);
      reg := CreateRoundRectRgn(0,0,(Components[i] as TPanel).Width,
        (Components[i] as TPanel).Height, 20,20);
      setwindowrgn((Components[i] as TPanel).Handle, reg, True);
      deleteobject(reg);
    end;
  end;
end;

(c) by Schweizer

[oki]

Hi Hansa,

auf deutsch, beim creieren der Form alle vorhandenen Panels die Ecken abrunden.
Dann muss das aber auch ins OnResize!?

Gruß oki

[Hansa]

Zitat von oki:

Dann muss das aber auch ins OnResize!?

Erstens : probieren geht über studieren. Create scheint mir allerdings auch nicht sehr geeignet. Es gibt aber auch noch OnShow, OnActivate usw. 8)

[Christian Seehase]

Moin Zusammen,

nicht zu vergessen:

OnPaint

denn dann wird das Formular gezeichnet...

[Hansa]

Die Reihenfolge ist folgendermaßen :

Delphi-Quellcode:

OnCreate 

OnShow 

OnActivate 

OnPaint