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

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

Картинка в бэкграунде формы fsMDIForm ! [D5, Win95/98, NT4, Win2k]

IronHawk ©   (2002-02-05 16:02:00) 

Приветствую Мастеров ! Как сделать Subj чтоб она одна была и поцентру ?
Так чтоб она была размножена и с (1,1), я реализовал...
а вот так чтоб ПОЦЕНТРУ и ОДНА и как не тяни поцентру (анчорс)???

---

IronHawk   (2002-02-06 11:56:00) [1]

НЕ МНЕ ЛИШНИХ НЕНАДО !
В ПРОГЕ У МЕНЯ ДОЛЖНЫ БЫТЬ ИЛИ СТАНДАРТНЫЕ ИЛИ НА WinAPI реализовывать !

---

Sergey13   (2002-02-06 11:46:00) [2]

Была компонента такая в sohoLib. Именно для МДИ.

---

IronHawk   (2002-02-06 10:46:00) [3]

>>> BlankAlex ©
Уважаемый Вам ещё нужны Raize Components 2.5 ???

---

IronHawk   (2002-02-05 18:41:00) [4]

КАРТИНКА ПОЦЕНТРУ
Я КИДАЮ КОД А ВЫ ИЗМЕНИТЕ В НЁМ ТО ЧТО НАДО ДЛЯ ВЫВЕДЕНИЯ ОДНОЙ КАРТИНКИ (не плодить) ПО ЦЕНТРУ В fsMDIForm !!!


procedure TForm1.FormCreate(Sender: TObject);
....
private
procedure CreateMDIA(const Name:string);
procedure NewClientWndProc(var Message:TMessage);
......
protected
procedure CreateWnd; override;
......
var
FOldClientInstance:TFarProc;
FNewClientInstance:TFarProc;
FHBrush:HBRUSH;
.............
procedure TForm1.FormCreate(Sender: TObject);
var Bitmp: TBitmap;
LogBrush:TLogbrush;
begin
Bitmp:= TBitmap.Create;
try
Bitmp.LoadFromResourceName(HInstance,"WU1");
AMAIN1.Canvas.Brush.Bitmap:=Bitmp;
With LogBrush do
begin
lbStyle:=BS_PATTERN;
lbHatch:=Bitmp.Handle;
end;
FHBrush:=CreateBrushIndirect(Logbrush);
finally
StatusBar1.Panels[0].Text:="Buy:";
StatusBar1.Panels[1].Text:="Pay:";
StatusBar1.Panels[2].Text:="NBU Course:";
end;
end;
procedure TForm1.CreateWnd;
begin
inherited CreateWnd;
if (ClientHandle <> 0) then
begin
if NewStyleControls then
SetWindowLong(ClientHandle, GWL_EXSTYLE, WS_EX_CLIENTEDGE or
GetWindowLong(ClientHandle, GWL_EXSTYLE));
FNewClientInstance:=MakeObjectInstance(NewClientWndProc);
FOldClientInstance:=pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
SetWindowLong(ClientHandle,GWL_WNDPROC,longint(FNewClientInstance));
end;
end;
procedure TForm1.NewClientWndProc(var Message:TMessage);
procedure Default;
begin
with Message do
Result := CallWindowProc(FOldClientInstance, ClientHandle, Msg, wParam, lParam);
end;
begin
with Message do
case Msg of
WM_ERASEBKGND:
begin
FillRect(TWMEraseBkGnd(Message).DC, ClientRect,FHBrush);
Result := 1;
end;
else
Default;
end;
end;



---

BlankAlex   (2002-02-05 16:53:00) [5]

Не пойму, что надо картинка одна и по центру или Child?

---

Наверх