Вопрос по Delphi

[dreamer]

та надо сделать в paintbox'e
как именно делать перерисовку?

Мне кажется Assign делает немного не то, что вам нужно. Попробуйте заменить его таким же CopyRect'ом как у вас в перерисовке

 

[Glu4it]

вобщем сделал так-сяк, но вот проблема с квадратом и еллипсом:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer );
begin

if speedbutton1.Down then
begin
if drag=true then
begin
paintbox1.Canvas.Pen.Width:=1;
paintbox1.Canvas.LineTo(x,y);
end;
if drag=false then
begin
paintbox1.Canvas.MoveTo(x,y);
end;
end;
if speedbutton2.Down then
begin
if drag=true then
begin
paintbox1.Canvas.Pen.Width:=1;
PaintBox1.Canvas.Rectangle(Start.X,Start.Y,X,Y);
end;
end;
if speedbutton3.Down then
begin
if drag=true then
begin
paintbox1.Canvas.Pen.Width:=1;
paintbox1.Canvas.Ellipse(start.X,start.Y,x,y);
end;
end;
if speedbutton4.Down then
begin
if drag=true then
begin
paintbox1.Canvas.Pen.Width:=5;
paintbox1.Canvas.LineTo(x,y);
end;
if drag=false then
begin
paintbox1.Canvas.MoveTo(x,y);
end;
end;
end;

 

[Glu4it]

проблема решена, спс dreamer'y за хоть какую-нибудь помощь

 

[Тагрим]

заранее прошу прощения за глупый вопрос.

как организзовать хэндлинг окон в дэлфе? собственно надо ловить хэндл окна IE, при открытии target=_blank и перехватывать из него линк.

зачем мне эти грабли: курсач надо

 

[akl]

Для поиска окна есть фоункция WinApi FindWindow()

You must be registered for see links

 

[Тарас]

Не могу сделать что бы нормально уменьшался прямоугольник медленно при нажатии на кнопочку (становился ниже) кто знает помогите плс

procedure TForm1.Button1Click(Sender: TObject);
var
k,kk,i:integer;
begin
InvalidateRect(0, nil, true); //очистка
k:=315; // стартовое 1е значение
kk:=90; // стартовое 2е значение
form1.Canvas.Brush.Color:=ClBlue;  // цвет   
for i:=1 to 10 do 
begin
form1.Canvas.FillRect(Bounds(20,k,55,kk)); // рисуем прямоугольник 
k:=k+5; 
kk:=kk-5;
sleep(1000); //задержка 1 сек 

end;
end;

проблема в том что

form1.Canvas.FillRect(Bounds(20,k,55,kk)); // рисуем прямоугольник

не появляется :x или просто мегает , тоесть анимация не получается

 

[UnFeeLing]

Не могу сделать что бы нормально уменьшался прямоугольник медленно при нажатии на кнопочку (становился ниже) кто знает помогите плс

procedure TForm1.Button1Click(Sender: TObject);
var
k,kk,i:integer;
begin
k:=315; // стартовое 1е значение
kk:=90; // стартовое 2е значение
form1.Canvas.Brush.Color:=ClBlue;  // цвет   
for i:=1 to 10 do 
begin
form1.Canvas.FillRect(Bounds(20,k,55,kk)); // рисуем прямоугольник 
k:=k+5; 
kk:=kk-5;
sleep(1000); //задержка 1 сек 
InvalidateRect(0, nil, true); //очистка
end;
end;

проблема в том что

form1.Canvas.FillRect(Bounds(20,k,55,kk)); // рисуем прямоугольник

не появляется :x или просто мегает , тоесть анимация не получается

исходник кораблика, который плывет по морю, может отсюда чето стянеш

 

[Тарас]

исходник кораблика, который плывет по морю, может отсюда чето стянеш

спасибо у меня такое есть, немного другая у меня задача не двигать чтолибо а уменьшать

 

[Glu4it]

нужны иконки для веб-браузера, кто-то знает где взять?

 

[Cris]

нужны иконки для веб-браузера, кто-то знает где взять?

ну просто поиши ico картинки, в инете их полно должно быть