Форум: "Основная";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
Вниз
Оформление формы Найти похожие ветки
← →
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. Пожалуй всё, увлекся :)
← →
Vriter © (2005-10-14 14:44) [12]Действительно просто, всем спасибо.
← →
Kolan © (2005-10-14 16:50) [13]Лучьше используй скины. Там обычно редактор есть мож сделать и бересту...
← →
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.
← →
Antonn © (2005-10-17 05:35) [16]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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.039 c
