Die StatusBar und Windows XP

[nailor]

OK, OK, OK, ich werds mir mal anschauen, auch wenns keine "saubere Lösung" ist...

Delphi-Quellcode:

procedure Register;
begin
  RegisterComponents('Samples', [TXPStatusBar]);
end;

sieht verdächtig danach aus, dass auch noch eine zusätzliche Kompinente installiert wird. Gibts ne Möglichkeit das zu vermeiden? Dass die Kompo also nicht in die Delphi-IDE integriert wird, ich sie aber per Create... dennoch verwenden kann?

[Kamil]

Zitat:

Zitat von Nailor

OK, OK, OK, ich werds mir mal anschauen, auch wenns keine "saubere Lösung" ist...

Was ist da nicht "sauber"????

Zitat:

Zitat von Nailor

sieht verdächtig danach aus, dass auch noch eine zusätzliche Kompinente installiert wird.

Stimmt.

Zitat:

Zitat von Nailor

Gibts ne Möglichkeit das zu vermeiden?
Dass die Kompo also nicht in die Delphi-IDE integriert wird, ich sie aber per Create... dennoch verwenden kann?

Einfach die Register Prozedur auskommentieren.

[nailor]

Falls sich delphi-gems mal wieder entschließt zu kalppen, schau ich mir das mal an!

[Die Muhkuh]

Zitat:

Zitat von Nailor

Falls sich delphi-gems mal wieder entschließt zu kalppen, schau ich mir das mal an!

Jo jetzt gehts wieder!

[nailor]

so, bin jetzt soweit, wie auf dem Bild / meiner Demo-App zu erkennen ist:

[nailor]

hier nochmal, wie ich es haben will

[Kamil]

Bei mir wird es so angezeigt wie du es haben willst.

[nailor]

du musst das Fenster schmaler machen (in y-Richtung verkleinern). Dann gibts nen Fehler.

Ich werde dem Typen von Delphi-Gems mal schreiben!

[Kamil]

Hast recht! Hier die Lösung:

Delphi-Quellcode:

procedure TXPStatusBar.WMSize (var Message : TWMSize);
var
  Rect: TRect;
begin
  inherited;
  Rect:=ClientRect;
  InvalidateRect(Handle, @Rect, true);
  Invalidate;
end;

[nailor]

dankedankedanke! :hello: :hello: :hello: :thuimb: :thuimb: :thuimb: :dp: :firejump: :firejump: :party: :dancer: :dancer2: :bouncing4: :bounce1:


Naja, jedenfalls der folgende Code macht unter Windows-XP eine funktionierende StatusBar:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Messages, Forms, ComCtrls, Windows;

type
  TMyStat = class(TStatusBar)
    procedure WMSize (var Message: TWMSize); message WM_SIZE;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R design.res}

procedure TMyStat.WMSize (var Message : TWMSize);
var 
  Rect: TRect;
begin 
  inherited; 
  Rect:=ClientRect; 
  InvalidateRect(Handle, @Rect, true); 
  Invalidate; 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.InsertControl(TMyStat.Create(Form1));
end;

end.

könnte man auch in die Code-Lib hauen!