Ĺadny brzuch
Wszystko zaczeło się gdy zainstalowałem mojej kochanej dziewczynie przeszkadzajke (taką co to chodzi po ekranie i potyka się o okienka). Gdy się jej spodobało powiedziała mi, że chce taką ze mną :) I tu jest problem. Niewiem jak zrobić, żeby wyświetlać jakiś rysunek na ekranie bez formy :/ Jezeli ktoś mi może pomóc to bym był bardzo wdzięczny :)
Rysowanie po pulpicie było gdzieś na 4programmer.net (pobieranie uchwytu itd...)
Można to jeszcze zrobić tak że jeżeli masz dużo zdięć ze sobą w roli głównej to wrzucić image na forme i co kilka milisekund ładować je tak aby powstała animacja - to wyglądało by bardzo relistycznie :D
Trzeci sposób to połączenie dwóch poprzednich - tylko będzie to chyba trochę mulić <_<
Można to jeszcze zrobić tak że jeżeli masz dużo zdięć ze sobą w roli głównej to wrzucić image na forme i co kilka milisekund ładować je tak aby powstała animacja - to wyglądało by bardzo relistycznie :D
Pozostaje jeszcze problem odświeżania tego co zostało namalowane:
procedure refreshRect(r: TRect; c: TCanvas); var xx: trect; begin xx := r; c.InvalidateRect(@xx); end;
Powinno działać - nie sprawdzałem bo nie mam zainstalowanego Delphi.
Rysowanie po pulpicie było gdzieś na 4programmer.net (pobieranie uchwytu itd...)
Można to jeszcze zrobić tak że jeżeli masz dużo zdięć ze sobą w roli głównej to wrzucić image na forme i co kilka milisekund ładować je tak aby powstała animacja - to wyglądało by bardzo relistycznie :D
Trzeci sposób to połączenie dwóch poprzednich - tylko będzie to chyba trochę mulić <_<
var bit: TBitmap; begin bit := TBitmap.Create; bit.LoadFromFile('nazwa_pliku'); Canvas.Draw(0, 0, bit); bit.Free; end;
Proponuję najpierw przekopać jakieś FAQ a dopiero potem pisac na forum !
offtopic - Mikla fajny awatar, szkoda, że nie :censored:
Wszystko zaczeło się gdy zainstalowałem mojej kochanej dziewczynie przeszkadzajke (taką co to chodzi po ekranie i potyka się o okienka). Gdy się jej spodobało powiedziała mi, że chce taką ze mną :) I tu jest problem. Niewiem jak zrobić, żeby wyświetlać jakiś rysunek na ekranie bez formy :/ Jezeli ktoś mi może pomóc to bym był bardzo wdzięczny :)
1. To zależy od systemu, u mnie na 98 to nie działa zbty dobrze, ale na xp powinno być ok:
AlphaBlend := true;
AlphaBlendValue := 0;
lub: Form1.Brush.Style := bsClear;
no i jeszcze usuwasz pasek: BorderStyle := bsNone;
2. Pobierasz pozycję kursora GetCursorPos(TPoint) i jakoś sobie wyliczasz Top i Left Form1l
3. Nie komponent, tylko moduł. Można go ściągnąć z internetu :P, a tak na poważnie to już ktoś na forum chyba podawał linki (i chyba na torrym powinno być).
4. Ładujesz jak każdy inny obraz(jak masz ten moduł) Image1.Picture.LoadFromFile("Plik.gif');
5. Jak zrobisz ładne serduszko to może być całkiem spox
3. Nie komponent, tylko moduł. Można go ściągnąć z internetu :P, a tak na poważnie to już ktoś na forum chyba podawał linki (i chyba na torrym powinno być).
http://4programmers....ile.php/id=1665 :punk:
Wiesz Cinek, że ja też go właśnie szukałem :P
Użytkownik LewB ar edytował ten post 10 luty 2005, 14:16
Może ktoś dać króciutki kodzik z zastosowaniem tego modułu?
gokudbz - Nic prostrzego:
Image1.Picture.LoadFromFile('jakiś_plik.gif');
Moduł pozwala Ci na zabawe canvasem gif - TJPEGImage, tzn. musisz zrobić Assign :)
Użytkownik LewB ar edytował ten post 10 luty 2005, 17:20
Jak wezmę Form1.Brush.Style := bsClear; to jak ruszę formę to ona nie jest przezroczysta tylko ma kolor tła z miejsca w którym się włączył a AlphaBlend := true;
AlphaBlendValue := 0; powoduje ze nie ma wcale formy :( A i chodzi o win 98 ja mam XP ale potrzebuje na 98
Użytkownik strefacst edytował ten post 10 luty 2005, 18:18
var gif: TGIFImage; begin gif := TGIFImage.Create; gif.LoadFromFile(Image1.Picture); // tu być błąd :D Canvas.Draw(0, 0, gif); gif.Free; end;
Czemu to nie działa?? jak rysować tego gifa z TImage??
Bo przy gif.LoadFromFile podajesz nazwę pliku :)
hm... a może regiony ??
AlphaBlend := true;
AlphaBlendValue := 0; powoduje ze nie ma wcale formy
no bo przeźroczystej formy nie widać, a masz na niej jakieś komponenty wrzucone?
A o sposobie na 98(zresztą na wszystkie systemy) to kiedyś czytałem na jakiejś strone, chyba delphi.bajo, albo cos podobnego
__________________________________________________________________
update:
to chyba jednak było to co Bełdzio zapodał :P
Użytkownik LewB ar edytował ten post 10 luty 2005, 18:27
Fajnie tylko ze nic nie znajduje an 4p po wpisaniu regiony :/
Jak od kliknąłem po tym co Bełdzio napisał to było wszystko ok. Teraz rzeczywiści nic się nie wyświetla. ja
jest nowy kojot :banana: :disco: :dj_3d:
try
Nowy kojot ze starymi bledami :P
A tak serio: o ktory z trzech wynikow ci chodzi?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Rysowanie po pulpicie było gdzieś na 4programmer.net (pobieranie uchwytu itd...)
Można to jeszcze zrobić tak że jeżeli masz dużo zdięć ze sobą w roli głównej to wrzucić image na forme i co kilka milisekund ładować je tak aby powstała animacja - to wyglądało by bardzo relistycznie :D
Trzeci sposób to połączenie dwóch poprzednich - tylko będzie to chyba trochę mulić <_<
Można to jeszcze zrobić tak że jeżeli masz dużo zdięć ze sobą w roli głównej to wrzucić image na forme i co kilka milisekund ładować je tak aby powstała animacja - to wyglądało by bardzo relistycznie :D
Pozostaje jeszcze problem odświeżania tego co zostało namalowane:
procedure refreshRect(r: TRect; c: TCanvas); var xx: trect; begin xx := r; c.InvalidateRect(@xx); end;
Powinno działać - nie sprawdzałem bo nie mam zainstalowanego Delphi.
Rysowanie po pulpicie było gdzieś na 4programmer.net (pobieranie uchwytu itd...)
Można to jeszcze zrobić tak że jeżeli masz dużo zdięć ze sobą w roli głównej to wrzucić image na forme i co kilka milisekund ładować je tak aby powstała animacja - to wyglądało by bardzo relistycznie :D
Trzeci sposób to połączenie dwóch poprzednich - tylko będzie to chyba trochę mulić <_<
var bit: TBitmap; begin bit := TBitmap.Create; bit.LoadFromFile('nazwa_pliku'); Canvas.Draw(0, 0, bit); bit.Free; end;
Proponuję najpierw przekopać jakieś FAQ a dopiero potem pisac na forum !
offtopic - Mikla fajny awatar, szkoda, że nie :censored:
Wszystko zaczeło się gdy zainstalowałem mojej kochanej dziewczynie przeszkadzajke (taką co to chodzi po ekranie i potyka się o okienka). Gdy się jej spodobało powiedziała mi, że chce taką ze mną :) I tu jest problem. Niewiem jak zrobić, żeby wyświetlać jakiś rysunek na ekranie bez formy :/ Jezeli ktoś mi może pomóc to bym był bardzo wdzięczny :)
1. To zależy od systemu, u mnie na 98 to nie działa zbty dobrze, ale na xp powinno być ok:
AlphaBlend := true;
AlphaBlendValue := 0;
lub: Form1.Brush.Style := bsClear;
no i jeszcze usuwasz pasek: BorderStyle := bsNone;
2. Pobierasz pozycję kursora GetCursorPos(TPoint) i jakoś sobie wyliczasz Top i Left Form1l
3. Nie komponent, tylko moduł. Można go ściągnąć z internetu :P, a tak na poważnie to już ktoś na forum chyba podawał linki (i chyba na torrym powinno być).
4. Ładujesz jak każdy inny obraz(jak masz ten moduł) Image1.Picture.LoadFromFile("Plik.gif');
5. Jak zrobisz ładne serduszko to może być całkiem spox
3. Nie komponent, tylko moduł. Można go ściągnąć z internetu :P, a tak na poważnie to już ktoś na forum chyba podawał linki (i chyba na torrym powinno być).
http://4programmers....ile.php/id=1665 :punk:
Wiesz Cinek, że ja też go właśnie szukałem :P
Użytkownik LewB ar edytował ten post 10 luty 2005, 14:16
Może ktoś dać króciutki kodzik z zastosowaniem tego modułu?
gokudbz - Nic prostrzego:
Image1.Picture.LoadFromFile('jakiś_plik.gif');
Moduł pozwala Ci na zabawe canvasem gif - TJPEGImage, tzn. musisz zrobić Assign :)
Użytkownik LewB ar edytował ten post 10 luty 2005, 17:20
Jak wezmę Form1.Brush.Style := bsClear; to jak ruszę formę to ona nie jest przezroczysta tylko ma kolor tła z miejsca w którym się włączył a AlphaBlend := true;
AlphaBlendValue := 0; powoduje ze nie ma wcale formy :( A i chodzi o win 98 ja mam XP ale potrzebuje na 98
Użytkownik strefacst edytował ten post 10 luty 2005, 18:18
var gif: TGIFImage; begin gif := TGIFImage.Create; gif.LoadFromFile(Image1.Picture); // tu być błąd :D Canvas.Draw(0, 0, gif); gif.Free; end;
Czemu to nie działa?? jak rysować tego gifa z TImage??
Bo przy gif.LoadFromFile podajesz nazwę pliku :)
hm... a może regiony ??
AlphaBlend := true;
AlphaBlendValue := 0; powoduje ze nie ma wcale formy
no bo przeźroczystej formy nie widać, a masz na niej jakieś komponenty wrzucone?
A o sposobie na 98(zresztą na wszystkie systemy) to kiedyś czytałem na jakiejś strone, chyba delphi.bajo, albo cos podobnego
__________________________________________________________________
update:
to chyba jednak było to co Bełdzio zapodał :P
Użytkownik LewB ar edytował ten post 10 luty 2005, 18:27
Fajnie tylko ze nic nie znajduje an 4p po wpisaniu regiony :/
Jak od kliknąłem po tym co Bełdzio napisał to było wszystko ok. Teraz rzeczywiści nic się nie wyświetla. ja
jest nowy kojot :banana: :disco: :dj_3d:
try
Nowy kojot ze starymi bledami :P
A tak serio: o ktory z trzech wynikow ci chodzi?