Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Вниз

Картинка в бэкграунде формы fsMDIForm !   Найти похожие ветки 

← →
IronHawk   (2002-02-05 16:02) [0]

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

---

← →
BlankAlex   (2002-02-05 16:53) [1]

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

---

← →
IronHawk   (2002-02-05 18:41) [2]

КАРТИНКА ПОЦЕНТРУ
Я КИДАЮ КОД А ВЫ ИЗМЕНИТЕ В НЁМ ТО ЧТО НАДО ДЛЯ ВЫВЕДЕНИЯ ОДНОЙ КАРТИНКИ (не плодить) ПО ЦЕНТРУ В 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;



---

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

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

---

← →
Sergey13   (2002-02-06 11:46) [4]

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

---

← →
IronHawk   (2002-02-06 11:56) [5]

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

---

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

Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c