Текущий архив: 2007.09.09;
Скачать: CL | DM;

Вниз

Как сделать картинку в фрейме неподвижной при вертик. прокрутке?   Найти похожие ветки 

← →
C0derr ©   (2007-08-19 23:54) [0]

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

---

← →
C0derr ©   (2007-08-20 00:08) [1]

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

---

← →
Elen ©   (2007-08-20 09:41) [2]

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

Код фрейма

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.


---

Страницы: 1 вся ветка

Текущий архив: 2007.09.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c