Рамка для Image
Как нарисовать рамку для Image по нажатию на Image? Stilet procedure TForm1.Image4Click(Sender: TObject); begin Image4.Canvas.Brush:=bsNone; Image4.Canvas.pen.Color := clBlack;...
View ArticleClik here to view.
Баловство с Random
На Delphi procedure TForm1.Button1Click(Sender: TObject); // старт var i,h,w:Integer; begin h:=Image1.Height; w:=Image1.Width; for i:=1 to 300 do with Image1.Canvas do begin...
View ArticleПеремещение массива Image
Как сделать, чтобы для 2 картинок была одна и та же функция, но разные номера image в зависимости от того,какой выделен? BDA procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;...
View ArticleВывести скаченное изображение в image
procedure TForm1.Button1Click(Sender: TObject); var stream: TMemoryStream; begin stream:= TmemoryStream.Create; IdHttp1.Get('http://..', stream); Stream.Position := 0;...
View ArticleClik here to view.
Спрятать часть картинки в div
scalpel Подскажите какие атрибуты могут решить задачу с дивами, надо так если изображение выходит за приделами дива просто спрятать кусок изображение и дивы что-бы остались в ряд по вертикаль что-бы...
View ArticleДвижение image по нажатию стрелок на клавиатуре
как запрограммировать image что бы при нажатии стрелочки вверх он прыгнул а потом опустился на тоже место Аватар Это плохо. А вообще какой-нибудь код умеешь писать? Вот для мышки procedure...
View ArticleСмена картинки через время
Pearl Здравствуйте! Мне нужно сделать на сайте плавную смену картинок через определенное время. Нашел в интернете код смены картинок, но в нем не реализовано никакой плавности. У меня есть следующий...
View ArticleКак отследить изменение Image в PictureBox
ka11n Какое событие отвечает за изменение Image компонента PictureBox? Есть событие BackgroundImageChanged, возникающее при изменении BackgroudImage. Думал есть аналог для Image WorldMaster Создайте...
View ArticleПолучение яндекс каптчи в Image
Как получить Яндекс каптчу в image? indexx Uses GifImg; procedure TForm1.FormCreate(Sender: TObject); var Stream: TMemoryStream; gif: TGifImage; begin Image1.Picture.Graphic := TGifImage.Create; Stream...
View ArticleПлавное перемещение Image больших размеров
Задача заключается в том, чтобы плавно перетаскивать достаточно большую (2000*2000 пикселей) картинку в jpg формате при зажатии ЛКМ. Как реализовать? exyl procedure TForm1.imgMapMouseDown(Sender:...
View Article
