AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Größe von TWinControl-Komponenten beschränkt?
Thema durchsuchen
Ansicht
Themen-Optionen

Größe von TWinControl-Komponenten beschränkt?

Ein Thema von Zottel · begonnen am 14. Mai 2004 · letzter Beitrag vom 15. Mai 2004
 
Zottel
(Gast)

n/a Beiträge
 
#1

Größe von TWinControl-Komponenten beschränkt?

  Alt 14. Mai 2004, 10:28
HalliHallo

Ich weiss nicht mehr weiter. Vielleich könnt ihr mir ja helfen.
Es ist eine Herrausforderung an 2 Stellen in meinen Programmen aufgetreten:
In einem Planer für die Terminierung von Mitarbeitern ist in der Übersicht ein TADVStringGrid von TMS mit einer höhe von 1320 eingebaut.
Das ganze ist in einer ScrollBox. Aber einer bestimmten Höhe (scheint screen.height zu sein), wird das Grid nicht mehr neu gezeichnet. es ist einfach ein weißes Feld zu sehen. Der fehler tritt auch bei einem anderen grid auf.
Auf die Screen.height bin ich gekommen, weil bei mir der fehler bei einer auflösung von 1600*1200 nicht auftritt, während er bei einer 1280*1024 auflösung doch schon störend ist.
Das gleiche Problem tritt an einer anderen Stelle auf:
Wenn ich ein Panel länger machen will, als die bildschirmbreite, lässt es sich nicht weiter aufziehen.
Setzen kann ich das panel auf eine breite , die größer ist, als die bildschirmbreite. wenn ich dann aber versuche, das Panel per Mausclick@Runtime weiter aufzuziehen, schnuppert es zurück, oder geht nicht weiter.....

das ist die routine, die ich in MouseDown des Panels eingebunden habe:

Delphi-Quellcode:
procedure TForm1.MasterPanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var SicherungTop:Integer;
begin
  SicherungTop:=(Sender as TADVPanel).top;
  ReleaseCapture;
  (Sender as TADVPanel).Cursor:=crSizeWE;
  //TWinControl(Sender).Perform(WM_SysCommand,$F012,0); //verschieben
  //TWinControl(Sender).Perform(WM_SysCommand,$F001,0); //linke seite verändern
  TWinControl(Sender).Perform(WM_SysCommand,$F002,0); //rechte verändern
  //TWinControl(Sender).Perform(WM_SysCommand,$F003,0); //obere seite verändern
  //TWinControl(Sender).Perform(WM_SysCommand,$F004,0); //links oben verändern
  //TWinControl(Sender).Perform(WM_SysCommand,$F005,0); //rechts oben verändern
  //TWinControl(Sender).Perform(WM_SysCommand,$F006,0); //untere seite verändern
  //TWinControl(Sender).Perform(WM_SysCommand,$F007,0); //links unten verändern
  //TWinControl(Sender).Perform(WM_SysCommand,$F008,0); //rechts unten verändern
  (Sender as TADVPanel).Cursor:=crDefault;
end;
Wie kann ich die beschränkung aufheben? Größere Flachbildschirme für höhere Auflösungen sind abgelehnt worden
wie gesagt, ich weiss nicht mehr weiter....

danke schonmal im vorraus

[edit=sakura] [delphi]tags Mfg, sakura[/edit]
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz