Глюк с BorderStyle

← →
Alien (2003-06-06 19:55) [0]

Если рисуется Bitmap в TImage и паралельно я присваеваю форме
bsNone с bsSizeable то форма исчезает, и даже закрыть нельзя.
Что делать?

← →
Song (2003-06-06 20:26) [1]

Ошибка в 17-ой строке.

← →
Alien (2003-06-06 20:40) [2]

Нифига!!! никакой ошибки в коде у меня нет!!!

← →
Palladin (2003-06-06 20:57) [3]

Нифига!! Никакого глюка нет!!

← →
Yanis (2003-06-06 22:07) [4]

To Alien (06.06.03 19:55)
Код давай.

← →
Alien (2003-06-13 12:54) [5]

Вот код:

procedure DoFullScreen;
begin
if form1.BorderStyle=bsNone then begin
form1.BorderStyle:=bsSizeable;
form1.Width:=fsx;
form1.Height:=fsy;
form1.panel1.Width:=isx;
form1.panel1.Height:=isy;
form1.Left:=fpx;
form1.Top:=fpy;
//---
form1.panel1.Top:=1;
form1.panel1.Left:=1;
form1.i1.Height:=form1.panel1.Height;
form1.i1.Width:=form1.panel1.Width;
form1.f1.Caption:="Fullscreen";
form1.button1.Show;
form1.button2.Show;
form1.button3.Show;
form1.button4.Show;
form1.button5.Show;
form1.button7.Show;
form1.button8.Show;
form1.button9.Show;
form1.button10.Show;
form1.bevel1.Show;
form1.cb.Show;
form1.panel2.Show;
form1.panel3.Show;
form1.edit1.Show;
form1.edit2.Show;
form1.edit3.Show;
form1.edit4.Show;
form1.button6.Show;
form1.status.Show;
end else begin
fpx:=form1.Left;
fpy:=form1.Top;
fsx:=form1.Width;
fsy:=form1.Height;
isx:=form1.panel1.Width;
isy:=form1.panel1.Height;
form1.BorderStyle:=bsNone;
//---
form1.Top:=0;
form1.left:=0;
form1.Width:=screen.Width;
form1.Height:=screen.Height;
form1.panel1.Top:=0;
form1.panel1.Left:=0;
form1.panel1.Width:=screen.Width;
form1.panel1.height:=screen.Height;
form1.i1.Width:=screen.Width;
form1.i1.Height:=screen.Height;
form1.f1.Caption:="Normal";
form1.button1.Hide;
form1.button2.Hide;
form1.button3.Hide;
form1.button4.Hide;
form1.button5.Hide;
form1.button7.Hide;
form1.button8.Hide;
form1.button9.Hide;
form1.button10.Hide;
form1.cb.Hide;
form1.panel2.Hide;
form1.panel3.Hide;
form1.edit1.Hide;
form1.edit2.hide;
form1.edit3.hide;
form1.edit4.hide;
form1.button6.Hide;
form1.status.Hide;
end;
end;

//------------------
procedure TForm1.GSMMSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var Time:SYSTEMTIME;
begin
try
Jpg.LoadFromStream(strm);
i1.Picture.Assign(jpg);
except
status.Panels[0].Text:="Connection failed";
end;
GetSystemTime(Time);
fj:=fi;
fi:=time.wMilliseconds+(time.wSecond*1000)+(time.wMinute*60*1000);
if 100000 div (fi-fj)>1 then fs:=inttostr(100000 div (fi-fj))
else fs:=inttostr(1000000 div (fi-fj));
label1.Top:=panel1.Height div 45;
if length(fs)=3 then fs:=copy(fs,1,1)+","+copy(fs,2,2);
if length(fs)=2 then fs:="0,"+fs;
if length(fs)=1 then fs:="0,0"+fs;
fs:="Size: "+inttostr((strm.Size div 1024))+"k. Frames: "+fs;
label1.Left:=panel1.Width-label1.Canvas.TextWidth(fs)-(panel1.Width div 20);
status.Panels[2].Text:=inttostr(i1.Picture.width)+"x"+inttostr(i1.Picture.Height);
status.Panels[3].Text:=fs;
if fr.Checked then begin
label1.Caption:=fs;
label2.Top:=LABEL1.Top;
label2.Left:=panel1.Width-label1.Width-label1.Left;
label2.Caption:=cb.Text;
end;
if (OnMsgEv) and (button1.Caption="Stop") and (not abort) then
begin
//i1.Picture.Bitmap:=nil;
Sendlong("Start","","","");
OnMsgEv:=false;
end;
end;

← →
Дмитрий К.К. (2003-06-13 13:23) [6]

Ужас, скока нагородил...

← →
dataMaster (2003-06-13 13:45) [7]

Вот код, который я получил. Все работает как надо. Ошибка по всей видимости была в потере значений переменных fsx, fsy,isx, isy, fpx, fpy. Я их объявил глобально.

var
Form1: TForm1;
fsx,
fsy,
isx,
isy,
fpx,
fpy:integer;

implementation

{$R *.dfm}

procedure DoFullScreen;
begin
if form1.BorderStyle=bsNone then
begin
form1.BorderStyle:=bsSizeable;
form1.Width:=fsx;
form1.Height:=fsy;
form1.Left:=fpx;
form1.Top:=fpy;
form1.WindowState:=wsNormal;
end
else
begin
fpx:=form1.Left;
fpy:=form1.Top;
fsx:=form1.Width;
fsy:=form1.Height;
form1.BorderStyle:=bsNone;
form1.Top:=0;
form1.left:=0;
form1.Width:=screen.Width;
form1.Height:=screen.Height;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DoFullScreen
end;

← →
Alien (2003-06-13 17:35) [8]

>Ошибка по всей видимости была в потере значений переменных fsx, fsy,isx, isy, fpx, fpy. Я их объявил глобально.

Я тоже глобально объявлял. Глюк проявляется только при получении
sMsg от TStream.

Глюк с BorderStyle Найти похожие ветки