[es] - Delphi i skinovi?

milance_kg
Milan Petrovic
KG

Član broj: 59131
Poruke: 85
213.244.208.*

Profil

^{06.06.2005. u 13:24}

Evo linka za skinove

http://rapidshare.de/files/2210627/skins.rar.html

Izbacio sam .jpg primere da bih smanjio velicinu.
Nadam se da je to sta si trazio.

Ma cool i gledajte malo ovu 'hot' grkinju:
http://www.youtube.com/watch?v=JfoVTtFAfzc

^{06.06.2005. u 13:24}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3721
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: Delphi i skinovi?

^{06.06.2005. u 14:33}

evo downloadujem, javicu ti da li je to to... inace, imas pm

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{06.06.2005. u 14:33}

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp469.bih.net.ba.

Profil

Re: Delphi i skinovi?

^{06.06.2005. u 19:41}

Šta sa ovim SKN fajlovima?

^{06.06.2005. u 19:41}

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp18.bih.net.ba.

Profil

Re: Delphi i skinovi?

^{06.06.2005. u 20:16}

Skonto sam!

^{06.06.2005. u 20:16}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3721
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: Delphi i skinovi?

^{06.06.2005. u 21:00}

ej meni se ne pravi za svaki program po jedan skin, zato mislim da je bolje da sve skinove zamenimo pomerajuci onaj x offset na ... 2000 :) i onda da u onpaint event forme ubacimo

Code:
var acanvas: TCanvas;
aDC: HDC;
begin
//uzimanje canvas-a desktopa
acanvas := TCanvas.Create;
aDC := GetDC(0);
acanvas.Handle := aDC;
//crtanje po desktopu
//mozete koristiti acanvas.Font property za podesavanje font-a
acanvas.textout(form1.left+17,form1.top+7,form1.caption);
end;

sve je ovo ok, osim sto mi se kreira beli pravougaonik oko teksta... da li neko zna kako napraviti tu "sliku" transparentnom?

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{06.06.2005. u 21:00}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1401
82.208.201.*

ICQ: 246436949

Profil

Re: Delphi i skinovi?

^{07.06.2005. u 06:37}

TextMode ti stoji na Opaque, a dreba da bude Transparent. Ne secam se tacno koja se funkcija koristi za menjanje pa ako niko ne pomogne dok sam na poslu pogledacu pa cu napisati.

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{07.06.2005. u 06:37}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3721
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: Delphi i skinovi?

^{07.06.2005. u 11:37}

provalio sam
ovo je bila kljuchna linija:

Code:

acanvas.Brush.Style:=bsClear;

evo gotovog koda, a imate i projekat APLODOVAN :)
x i y offset su koordinate za pozicioniranje teksta u odnosu na gornju i levu ivicu porozora, a sFont je property kojim podesavate izgled fonta u titlebar-u

Code:
procedure TForm1.FormPaint(Sender: TObject);
var acanvas: TCanvas;
    aDC: HDC;
    x_offset,y_offset:integer;
    sFont:TFont;
begin
sFont:=TFont.Create;
//podesavanja
x_offset:=30;
y_offset:=5;
sFont.Style:=[fsBold];
sFont.Size:=10;
////ne dirati ispod
acanvas := TCanvas.Create;
aDC := GetDC(0);
acanvas.Handle := aDC;
acanvas.Brush.Style:=bsClear;
acanvas.Font:=sFont;
acanvas.textout(form1.left+x_offset,form1.top+y_offset,form1.caption);
end;

napokon mozemo i caption da menjamo u runtime-u :)

edit: samo ne znam da li na kraju koda treba staviti sFont.Free; ili sFont.Destroy;
radi sa obe instrukcije, a radi i bez njih (samo koliko ce raditi? :P)

ja stavljam free, ako vas bash zanima

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Prikačeni fajlovi

vclskin_workaround.zip - 54.81k

^{07.06.2005. u 11:37}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1401
82.208.201.*

ICQ: 246436949

Profil

Re: Delphi i skinovi?

^{07.06.2005. u 22:48}

Mislim da canvas sam oslobodi font, ali nece mu nicta skoditi ako ga mi samo oslobodimo.

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{07.06.2005. u 22:48}

ntojzan
Sandor II Tojzan
5digistar Inc.
Kobe city

Član broj: 36657
Poruke: 165
*.stcable.co.yu.

Sajt: www.5digistar.co.jp

Profil

Re: Delphi i skinovi?

^{08.06.2005. u 01:05}

Evo kako sam ja resio problem skinova malko drugacije:

Ubacio sam TWebBrowser, skinove pravim u .html formatu, a sve sljaka tako sto kada se klikne na neki link, aktivira se OnEndNavigate procedura koja radi handling. Naravno delphi komponente koje idu preko html-a se iscrtavaju tako sto se u <title> </title> deo .html koda u sustini nalaze podaci o njima, pa imam jedan poprilicno prost loader za to.

Mnogo jednostavno, zar ne?

^{08.06.2005. u 01:05}

sasas
Saša Slavnić
looking for...
Na lepom plavom Dunavu

Član broj: 35478
Poruke: 611
*.zaslon-telecom.si.

Profil

Re: Delphi i skinovi?

^{08.06.2005. u 08:09}

@ntojzan:
Da li imaš neki primer programa urađen tako? Nešto što bi mogao postaviti ovde (ili mi poslati na mail), da pogledamo kako stvar šljaka u praksi.

ss.

When something is hard to do, then it's not worth doing.

^{08.06.2005. u 08:09}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3721
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: Delphi i skinovi?

^{08.06.2005. u 10:39}

Hvala Srki!!!

@ntojzan: da, mogao bi neki demo da okachish ovde negde

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{08.06.2005. u 10:39}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3721
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: Delphi i skinovi?

^{08.06.2005. u 10:45}

kako bi isti kod radio na svim formama, malo menjamo moj kod:

Code:

procedure TForm1.FormPaint(Sender: TObject);
var acanvas: TCanvas;
    aDC: HDC;
    x_offset,y_offset:integer;
    sFont:TFont;
begin
sFont:=TFont.Create;
//podesavanja
x_offset:=30;
y_offset:=5;
sFont.Style:=[fsBold];
sFont.Size:=10;
//ne dirati ispod
acanvas := TCanvas.Create;
aDC := GetDC(0);
acanvas.Handle := aDC;
acanvas.Brush.Style:=bsClear;
acanvas.Font:=sFont;
acanvas.textout((Sender as TForm).left+x_offset,(Sender as TForm).top+y_offset,(Sender as TForm).caption);
sFont.Free;
acanvas.free;
end;

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{08.06.2005. u 10:45}

ntojzan
Sandor II Tojzan
5digistar Inc.
Kobe city

Član broj: 36657
Poruke: 165
*.stcable.co.yu.

Sajt: www.5digistar.co.jp

Profil

Re: Delphi i skinovi?

^{08.06.2005. u 11:58}

Upravo radim na jednom programu, nije bas gotov, ali skin je ok, spakovano je oko 1MB, pa ako nekog zanima nek mi posalje mail, pa cu da posaljem mailom...

^{08.06.2005. u 11:58}

ntojzan
Sandor II Tojzan
5digistar Inc.
Kobe city

Član broj: 36657
Poruke: 165
*.stcable.co.yu.

Sajt: www.5digistar.co.jp

Profil

Re: Delphi i skinovi?

^{09.06.2005. u 12:34}

Evo, stavio sam arhivu online, link je: http://www.aweart.com/aweart_v0.78.rar

^{09.06.2005. u 12:34}

sasas
Saša Slavnić
looking for...
Na lepom plavom Dunavu

Član broj: 35478
Poruke: 611
*.zaslon-telecom.si.

Profil

Re: Delphi i skinovi?

^{09.06.2005. u 13:10}

Svaka čast, super si uradio ovo sa htmlom, ideja je za svaku pohvalu.

ss.

When something is hard to do, then it's not worth doing.

^{09.06.2005. u 13:10}

milance_kg
Milan Petrovic
KG

Član broj: 59131
Poruke: 85
*.verat.net.

Profil

Re: Delphi i skinovi?

^{09.06.2005. u 21:51}

Pa dobro, podeli source sa nama.

Ma cool i gledajte malo ovu 'hot' grkinju:
http://www.youtube.com/watch?v=JfoVTtFAfzc

^{09.06.2005. u 21:51}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3721
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: Delphi i skinovi?

^{11.07.2005. u 07:36}

sta bi s' ovim? i sto ti link ne radi vishe?
daj sorrrrrssssssss :))

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{11.07.2005. u 07:36}

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp64.bih.net.ba.

Profil

Re: Delphi i skinovi?

^{21.07.2005. u 13:04}

Zašto onaj gore navedeni kod ne radi kada Forma iba atribut AlphaBledn postavljen na True. Caption mi stavlja na prozor ispod.

^{21.07.2005. u 13:04}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3721
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: Delphi i skinovi?

^{17.09.2005. u 13:30}

moj kod? pa ne znam, iskreno, nikad nisam pokusavao sa alphablend-om da postavim skin

@Srki_82: kako napreduju komponente?

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{17.09.2005. u 13:30}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1401
82.208.201.*

ICQ: 246436949

Profil

Re: Delphi i skinovi?

^{18.09.2005. u 01:22}

Komponente nisam odavno ni pipnuo. Strog i ja radimo na nekoj igri. Polako je privodimo kraju... danas sam zavrsio AutoUpdate komponentu tako da ce sve nase sledece igre imati ovu mogucnost :)
Verovatno te komponente necu ni zavrsiti... zaista se nema vremena.

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{18.09.2005. u 01:22}