Оформление формы

← →
Vriter © (2005-10-14 12:22) [0]

Добрый день мастера.
Убедительная просьба объяснить как можно сделать так, чтобы форма имела не просто серый (или какой-нибудь другой) цвет, а была оформлена, к примеру под бересту...

← →
LordOfRock © (2005-10-14 12:28) [1]

Кажись, там свойство такое есть: BackgroundImage (ну, или что-то наподобие этого). В данный момент провенрить не могу, потому что делфи не установлена. Грузишь иуда картинку и вперёд.

← →
Seg (2005-10-14 12:30) [2]

А зачем это?

← →
Vriter © (2005-10-14 12:35) [3]

На работе написал прогу - сказали нужно красивее оформить:)

← →
Vriter © (2005-10-14 12:42) [4]

К сожелению BackgroundImage я не нашел, может что еще подскажете?

← →
NightLord © (2005-10-14 12:45) [5]

Возьми библиотеку KOL там можно не только картинку наложить на форму, но чтобы и кнопки были того же цвета =) Мне пронравилось.

← →
Vriter © (2005-10-14 12:48) [6]

NightLord, ты не подскажешь где ее можно взять?

← →
NightLord © (2005-10-14 12:58) [7]

По этой ссылке http://nextpc.narod.ru/Komponent/kol_and_mck.rar есть, и в
http://www.kolnmck.ru/ там все описано =)

← →
Vriter © (2005-10-14 13:02) [8]

NightLord, спасибо.

← →
Vriter © (2005-10-14 13:10) [9]

NightLord, а куда файлы то прописывать?
А то некоторые ссылки описания не работают :(

← →
evvcom © (2005-10-14 13:24) [10]

Только, по-моему, настроив среду на KOL, уже нельзя будет использовать компоненты написанные не под KOL. Или концепция KOL изменилась, и я ошибаюсь? Давно не следил за KOL, тем более никогда не использовал.

← →
Silver... © (2005-10-14 13:35) [11]

1. Брось TImage на форму
2. Image1.Align := alClient;
3. Image1.Stretch := True;
4. поставь на заднии план
5. залей "картинку оформления"

6. Наслаждайся
7. Пожалуй всё, увлекся :)

Действительно просто, всем спасибо.

Лучьше используй скины. Там обычно редактор есть мож сделать и бересту...

← →
Mulka (2005-10-16 21:52) [14]

Можно вот так попробовать:

procedure TForm1.Dis(ptr: TImage; BMF: string); var Pic : TBitmap; var i,j : Integer; var SR : TSearchRec; begin BMF:=MayDir + "\"+BMF; i:=FindFirst(BMF,faAnyFile,SR); if i<>0 then Exit; FindClose(SR); Pic:=TBitmap.Create; Pic.LoadFromFile(BMF); i:=0; j:=0; while j<ptr.Height do begin while i<ptr.Width do begin ptr.Canvas.Draw(i,j,Pic); i:=i+Pic.Width-1; end; i:=0; j:=j+Pic.Height-1; end; Pic.Dormant; Pic.FreeImage; Pic.Destroy; end;

Небольшой фоновый рисунок заполнят всю форму.

← →
Mulka (2005-10-16 22:29) [15]

Прошу прощения, виесто "ptr: TImage" надо "ptr: TForm", а так она
будет заполнять TImage.

Mulka (16.10.05 21:52) [14]
чтож так много?

procedure FillTextrutka2canvas( Acanvas:Tcanvas; _Texturka:Tbitmap); var i,ii:integer; begin for i:=0 to (Acanvas.ClipRect.Right div _Texturka.Width) do for ii:=0 to (Acanvas.ClipRect.Bottom div _Texturka.Height) do Acanvas.CopyRect(rect(i*_Texturka.Width,ii*_Texturka.Height,(i+1)*_Texturka.Width,(ii+1)*_Texturka.Height), _Texturka.Canvas ,rect(0,0,_Texturka.Width,_Texturka.Height)); end;

Оформление формы Найти похожие ветки