Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Die StatusBar und Windows XP (https://www.delphipraxis.net/13017-die-statusbar-und-windows-xp.html)

nailor 14. Dez 2003 00:50

Re: Die StatusBar und Windows XP
 
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 14. Dez 2003 00:55

Re: Die StatusBar und Windows XP
 
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 14. Dez 2003 00:58

Re: Die StatusBar und Windows XP
 
Falls sich delphi-gems mal wieder entschließt zu kalppen, schau ich mir das mal an!

Die Muhkuh 14. Dez 2003 08:04

Re: Die StatusBar und Windows XP
 
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 14. Dez 2003 17:55

Re: Die StatusBar und Windows XP
 
Liste der Anhänge anzeigen (Anzahl: 2)
so, bin jetzt soweit, wie auf dem Bild / meiner Demo-App zu erkennen ist:

nailor 14. Dez 2003 17:58

Re: Die StatusBar und Windows XP
 
Liste der Anhänge anzeigen (Anzahl: 1)
hier nochmal, wie ich es haben will

Kamil 14. Dez 2003 18:12

Re: Die StatusBar und Windows XP
 
Bei mir wird es so angezeigt wie du es haben willst.

nailor 14. Dez 2003 18:19

Re: Die StatusBar und Windows XP
 
du musst das Fenster schmaler machen (in y-Richtung verkleinern). Dann gibts nen Fehler.

Ich werde dem Typen von Delphi-Gems mal schreiben!

Kamil 14. Dez 2003 19:03

Re: Die StatusBar und Windows XP
 
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 14. Dez 2003 19:45

Re: Die StatusBar und Windows XP
 
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!


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:14 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz