Оформление программы
Как оформить программу? вставить фон (какой-то свой, а не предлагаемые цвета), сделать своё меню? я нарисовал макет, но нарисовал просто в Фотошопе,а как это всё в дельфю закинуть?
Цитата:
Originally posted by bmn
Как оформить программу? вставить фон (какой-то свой, а не предлагаемые цвета), сделать своё меню? я нарисовал макет, но нарисовал просто в Фотошопе,а как это всё в дельфю закинуть?
Как оформить программу? вставить фон (какой-то свой, а не предлагаемые цвета), сделать своё меню? я нарисовал макет, но нарисовал просто в Фотошопе,а как это всё в дельфю закинуть?
Ты когда нибудь вэб сайты разрабатывал!
Если да то по такому же принципу!
Цитата:
Originally posted by kuanysh
Ты когда нибудь вэб сайты разрабатывал!
Если да то по такому же принципу!
Ты когда нибудь вэб сайты разрабатывал!
Если да то по такому же принципу!
Конечно разрабатывал.
Ну а как например там поставить чтобы вверху был фон (100% по ширине)?
Цитата:
Originally posted by bmn
Конечно разрабатывал.
Ну а как например там поставить чтобы вверху был фон (100% по ширине)?
Конечно разрабатывал.
Ну а как например там поставить чтобы вверху был фон (100% по ширине)?
Ставишь компонент TImage, загружаешь нужны фон и все!
Это выглядит прикольно:[COLOR=blue]procedure TForm1.FormPaint(Sender: TObject);[/COLOR] [COLOR=blue]var[/COLOR] [COLOR=blue]i, j: Integer;[/COLOR] [COLOR=blue]begin[/COLOR] [COLOR=blue]with Form1.Canvas do[/COLOR] [COLOR=blue]for j := 0 to Form1.Height do for i := 0 to Form1.Width do[/COLOR] [COLOR=blue]Pixels[i, j] := Trunc(Random($00000095));[/COLOR] [COLOR=blue]end;[/COLOR]
или так :
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Bitmap: TBitmap;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\WINDOWS\cars.BMP');
end;
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, W, H: LongInt;
begin
with Bitmap do
begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do
begin
X := 0;
while X < Width do
begin
Canvas.Draw(X, Y, Bitmap);
Inc(X, W);
end;
Inc(Y, H);
end;
end;
end.
или так :
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Bitmap: TBitmap;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\WINDOWS\cars.BMP');
end;
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, W, H: LongInt;
begin
with Bitmap do
begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do
begin
X := 0;
while X < Width do
begin
Canvas.Draw(X, Y, Bitmap);
Inc(X, W);
end;
Inc(Y, H);
end;
end;
end.