| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать картинку в фрейме неподвижной при вертик. прокрутке? [D6, XP]

C0derr ©   (2007-08-19 23:54:00) 

Здрасьте. Мне очень рочно нужна помощь.
Пишу прогу. В ней есть фрейм. в фрейме есть картинка фоновая. так же в нем есть вертикальная полоса прокрутки(создалась когда содержимое вылезло изза границ). Скажите плиз как сделать так чтобы картинка при прокрутке всегда оставалась на месте фоном а не сползала вниз и вверх вместе с остальными компонентами(содержимым).

---

Elen   (2007-08-20 09:41:00) [1]

Пробуй еще так :

Код фрейма

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 jpeg, ExtCtrls, StdCtrls;

type
 TFrame2 = class(TFrame)
   ListBox1: TListBox;
   Image1: TImage;
   procedure scl(var m:TWMScroll); message WM_Vscroll;
   procedure sclr(var m:TWMScroll); message WM_Hscroll;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

implementation

{$R *.dfm}

procedure TFrame2.scl(var m: TWMScroll);
begin

Image1.Top:=self.ClientRect.Left;
Image1.Left:=self.ClientRect.Top;
Image1.Width:=self.ClientRect.Right;
Image1.Height:=ClientRect.Bottom;
inherited;
end;

procedure TFrame2.sclr(var m: TWMScroll);
begin
Image1.Top:=self.ClientRect.Left;
Image1.Left:=self.ClientRect.Top;
Image1.Width:=self.ClientRect.Right;
Image1.Height:=ClientRect.Bottom;
inherited;
end;

end.


---

C0derr   (2007-08-20 00:08:00) [2]

Удалено модератором

---

Наверх