Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.019 c
15-1186663539
Sdubaruhnul
2007-08-09 16:45
2007.09.09
Pixel ratio и сканер HP


6-1163016663
Yegorchic
2006-11-08 23:11
2007.09.09
IdMessage и аттачи


15-1187077601
White Barsik
2007-08-14 11:46
2007.09.09
Немного глупых вопросов


11-1168887227
Katya
2007-01-15 21:53
2007.09.09
избирательный OwnerDraw


15-1186638140
leonid
2007-08-09 09:42
2007.09.09
Подскажите сервис