Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c