| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Vriter ©   (2005-10-14 12:22:00) 

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

---

Antonn   (2005-10-17 05:35:00) [1]

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;

---

Mulka   (2005-10-16 22:29:00) [2]

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

---

Mulka   (2005-10-16 21:52:00) [3]

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

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;

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

---

Kolan   (2005-10-14 16:50:00) [4]

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

---

Vriter   (2005-10-14 14:44:00) [5]

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

---

Silver...   (2005-10-14 13:35:00) [6]

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

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

---

evvcom   (2005-10-14 13:24:00) [7]

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

---

Vriter   (2005-10-14 13:10:00) [8]

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

---

Vriter   (2005-10-14 13:02:00) [9]

NightLord, спасибо.

---

NightLord   (2005-10-14 12:58:00) [10]

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

---

Vriter   (2005-10-14 12:48:00) [11]

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

---

NightLord   (2005-10-14 12:45:00) [12]

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

---

Vriter   (2005-10-14 12:42:00) [13]

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

---

Vriter   (2005-10-14 12:35:00) [14]

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

---

Seg   (2005-10-14 12:30:00) [15]

А зачем это?

---

LordOfRock   (2005-10-14 12:28:00) [16]

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

---

Наверх