![]() |
Re: Die StatusBar und Windows XP
OK, OK, OK, ich werds mir mal anschauen, auch wenns keine "saubere Lösung" ist...
Delphi-Quellcode:
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?
procedure Register;
begin RegisterComponents('Samples', [TXPStatusBar]); end; |
Re: Die StatusBar und Windows XP
Zitat:
Zitat:
Zitat:
|
Re: Die StatusBar und Windows XP
Falls sich delphi-gems mal wieder entschließt zu kalppen, schau ich mir das mal an!
|
Re: Die StatusBar und Windows XP
Zitat:
Jo jetzt gehts wieder! |
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:
|
Re: Die StatusBar und Windows XP
Liste der Anhänge anzeigen (Anzahl: 1)
hier nochmal, wie ich es haben will
|
Re: Die StatusBar und Windows XP
Bei mir wird es so angezeigt wie du es haben willst.
|
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! |
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; |
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:
könnte man auch in die Code-Lib hauen!
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:14 Uhr. |
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