Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?

[es] :: Pascal / Delphi / Kylix :: Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?

[ Pregleda: 2557 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

maximus_1
Max Maximus

Član broj: 46848
Poruke: 277
*.tel.net.ba.



Profil

icon Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?10.05.2005. u 21:46 - pre 229 meseci
????(Pogledaj naslov)????
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.229.EUnet.yu.



+1 Profil

icon Re: Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?11.05.2005. u 09:26 - pre 229 meseci
Ovako napamet mislim da je nesto tipa:

SystemParametersInfo(SPI_SETDESKWALLPAPER, ...)

Za tri tacke pogledati u dokumentaciji...
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?11.05.2005. u 18:00 - pre 229 meseci
Windows (cak i XP) ne moze da postavlja na pozadinu sliku ako nije u BMP formatu. To mozes da proveris tako sto ces postaviti za pozadinu neku recimo jpg sliku i zatim je obrisi. Videces da slika i dalje ostaje na pozadini cak i kad resetujes racunar. Fazon je sto je Windows prevede u BMP i snimi je u C:\Documents and Settings\Ime korisnika\Local Settings\Application Data\Microsoft\Wallpaper1.bmp
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
85.222.130.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?11.05.2005. u 23:10 - pre 229 meseci
tako rade i ovi image view-eri kad postavljas preko njih.
evo ti neki moj kod koji sam koristio da slike jpg i gif prebacim u bmp.
treba malo da ga modifikujes i na kraju sacuvaj Bitmap u neki fajl. za gif ti treba GifImage biblioteka, ima je na torry.net
Code:

 if LowerCase(ExtractFileExt(ListView.Items[i].SubItems[0])) = '.bmp' then
         Bitmap.LoadFromFile(ListView.Items[i].SubItems[0])
       else if LowerCase(ExtractFileExt(ListView.Items[i].SubItems[0])) = '.gif' then
        begin
          Gif := TGifImage.Create;
          try
            Gif.LoadFromFile(ListView.Items[i].SubItems[0]);
            Bitmap.Width := Gif.Width;
            Bitmap.Height := Gif.Height;
            Gif.Images.SubImages[0].Draw(Bitmap.Canvas, Rect(0, 0, Gif.Width, Gif.Height), True, False);
          finally
            Gif.Free;
          end;
        end
       else
        begin
          Jpg := TDrawJpeg.Create;
          try
            Jpg.LoadFromFile(ListView.Items[i].SubItems[0]);
            Bitmap.Width := Jpg.Width;
            Bitmap.Height := Jpg.Height;
            Jpg.Draw(Bitmap.Canvas, Rect(0, 0, Jpg.Width, Jpg.Height));
          finally
            Jpg.Free;
          end;
        end;

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
85.222.130.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?11.05.2005. u 23:13 - pre 229 meseci
i da, ako se nije videlo iz kontexta, tipovi su sledeci
Code:

var Bitmap: TBitmap;
    Jpg: TDrawJpeg;
    Gif: TGifImage;

gde je TDrawJpeg izvedena iz JpegImage i samo joj je omoguceno da koristi draw metod
Code:

   TDrawJPEG = class(TJPEGImage)
    public
      procedure Draw(ACanvas: TCanvas; const Rect: TRect); override;
   end;

procedure TDrawJPEG.Draw(ACanvas: TCanvas; const Rect: TRect);
begin
  inherited Draw(ACanvas,Rect);
end;


Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako bilo koju sliku (bilo kojeg formata) postaviti kao desktop pozadinu?

[ Pregleda: 2557 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.