FAQ » Grafika

Jak dodać tło dla niekażdego komponentu

wystarczy do FormCreate dopisać:
var Tlo:TBitMap;
begin
Tlo:=TbitMap.Create;
Tlo.LoadFromfile('tlo.bmp');
 listbox1.Brush.Bitmap := tlo;
end;

będzie to wyglądało tak:
procedure TForm1.FormCreate(Sender: TObject);
var Tlo:TBitMap;
begin
Tlo:=TbitMap.Create;
Tlo.LoadFromfile('jason.bmp');
listbox1.Brush.Bitmap := tlo;
end;


Dołączam przykład :D

Jeden z forumowiczów napisał w poście:

<quote>Ja troszkę pobawiłem się tym efektem i oto rezultaty:

- działa prawidłowo
TreeView
ListView
DateTimePicker
MonthCalendar
ListBox
Form
RadioButton
CheckBox
Panel
TrackBar
CoolBar
TabControl
TabSheet

- nie działa prawidłowo, mimo, że można ustawić
Button (brak efektu)
ProgressBar (brak efektu)
Edit (tylko obramowanie ma obrazek)
ComboBox (tylko tło rozwijanej listy i obramowanie mają obrazek)
TabControl (obrazek ma wszystko z wyjątkiem zakładek)
PageControl (obranowanie stron ma obrazek)</quote>

8 komentarzy

warlock 2005-10-28 10:55

Co oznacza ten tytuł???

migajek 2005-10-19 20:39

@marooned:  no co tez jest porada nie ? :P
// no prosze odrobina edycji i juz lepiej :)

Marooned 2005-10-19 19:30

migajek [green] :D

Kaczor 2005-10-19 19:07

Ale szkolenie...u hu hu :D

migajek 2005-10-19 18:12

jak wyswietlic okienko?
MessageBox(0,\'yo\',\'!\',0);

Rownie dobrze przygotowany material... Powiedzialbys chociaz gdzie to ma byc itp bo inaczej sie poczatkujacym nie przyda ...

Marooned 2005-10-19 17:07

Miał być \"świetnie zredagowany materiał\" a wyszła kupa w papierku... taki faq to można sobie nie powiem gdzie wsadzić...
poprawka albo del

AklimX 2005-10-19 17:02

i co z tym? napisz gdzie to wklepać, dodaj jakiś komentarz. Rzuciłeś kodem i tyle.

Misiekd 2005-10-19 16:37

chociaż wcięcia byś porobił jak należy :P