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

Вниз

Background Picture у формы   Найти похожие ветки 

← →
Keith Flint   (2003-07-16 16:06) [0]

Уважаемые мастера Delphi, как можно на главную форму подгрузить картинку, так, чтобы правильно отображались остальные элемены (Label"и, например). Пробовал через Canvas - плохо получается...

---

← →
Юрий Федоров ©   (2003-07-16 16:11) [1]

Положи компонент TImage

---

← →
MacroDenS ©   (2003-07-16 16:14) [2]

Попробуй на задний план имадж закинуть с размерами клиентской области и в него подгружать все что тебе угодно, только у лэйблов не забуть Transparent в True обратить, а то под ними "пятна" будут

---

← →
Fenik ©   (2003-07-16 17:21) [3]

> Пробовал через Canvas - плохо получается...

Плохо пробовал.
Canvas.Bitmap := ..
Canvas.Rectangle(...):

---

← →
Keith Flint   (2003-07-21 19:04) [4]

Знаешь, Fenik, Bitmap там вообще нет!

---

← →
Fenik ©   (2003-07-21 20:10) [5]

> Знаешь, Fenik, Bitmap там вообще нет!
Знаю, что нет.
Я уже стары, недочепятывать ста. Уже пульт в полиэтилен заверну.
Мог бы и догадаться, что я хоте зказать:
Canvas.Brush.Bitmap

---

← →
Fenik ©   (2003-07-21 20:11) [6]

Ёлки-палки! Хрен батонный!!!!

Fenik © (16.07.03 17:21)

---

← →
mrcat ©   (2003-07-21 20:30) [7]

Вот только не забывайте, что Ваш канвас сотрётся при первому запросу ос ;)

>Keith Flint (16.07.03 16:06)

unit MainUnit;

interface

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

type
TfrmMain = class(TForm)
Button1: TButton;
private
{ Private declarations }
procedure WMPaintEx(var Message: TWMPaint); message WM_PAINT;
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.WMPaintEx(var Message: TWMPaint);
var
bitRePaint: TBitmap;

begin
bitRePaint :=TBitmap.Create;
with bitRePaint do
try
LoadFromFile("d:\

---

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

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

Наверх

Память: 0.48 MB
Время: 0.02 c