|
Тема |
A survey... |
|
Автор |
Rincewind (Wizzard) |
|
Публикувано | 24.05.03 17:38 |
|
|
Interesno mi e vsichki li ot vas si dyrjat rechnicite i Trillian/ICQ/Messenger-a v dolniqt lqv ygyl na ekrana?
Ako ne kyde?
Za WiseGuy:
Tyi kato si dyrja moq AEDictionary dolu v lqvo nqkoi ot formite koito sa centrirani na owner izlizat izvyn ekrana. Tyi kato pisha programa koqto veroqtno shte stoi taka i napisah tazi procedure da pokazva formite vinagi izcqlo na ekrana. Ako iskash q izpolzvai.
OnShow na formata pishesh:
FormOnScreen(MainForm, Self);
procedure FormOnScreen(MainF, F: TForm);
var
R: TRect;
ALeft, ATop: Integer;
CenterForm: TForm;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
ALeft := (MainF.Width - F.Width) div 2 + MainF.Left;
ATop := (MainF.Height - F.Height) div 2 + MainF.Top;
if ALeft + F.Width > R.Right then
ALeft := R.Right - F.Width;
if ATop + F.Height > R.Bottom then
ATop := R.Bottom - F.Height;
if F.Left < 0 then
ALeft := 0;
if F.Top < 0 then
ATop := 0;
F.SetBounds(ALeft, ATop, F.Width, F.Height);
end;
Go on, prove me wrong. Destroy the fabric of the universe. See if I care.
|
| |
|
|
|