Vlastny Styl Formulara V Delphi7

KViki · Napísal **KViki**: 12.03.2009 13:37

da sa nejak spravit vlastny styl formulara ako napr.:
Vlastny Styl Formulara V Delphi7

Fico · Napísal **Fico**: 12.03.2009 16:14

No neviem presne, ale podľa mňa to je iba o komponente TImage, pričom máš ošetrené udalosti ako OnMouseMove (napr. zosvetlenie alebo zmenenie daného image-u) OnClick atd. Ja som riešil grafické rozhrania zatiaľ iba takto, no neviem, možno existuje aj iné riešenie. V každom prípade, pomocou TImage sa to dá dosiahnúť.

KViki · Napísal autor témy **KViki**: 12.03.2009 22:10

hej ,.ale oble okraje alebo prerusovane ako ma napriklad winamp,.,. sa s tim nedaju robit,.,. rozumies,. ale diky,.

max-m · Napísal **max-m**: 12.03.2009 22:24

co sa tyka tych oblych okrajov a "divnych" tvarov okien: ja sice pracujem s Visual Basicom, no taketo veci riesim pomocou softu WinRazor, ktory je tusim robeny aj pre Delphi (http://www.softpedia.com/get/Programming/Other-Programming-Files/WinRazor-SDK.shtml)

KViki · Napísal autor témy **KViki**: 13.03.2009 11:04

no len skoda,. ze mi ten program na Viste nejde nainstalovat,.,.

max-m · Napísal **max-m**: 13.03.2009 11:12

aha...

winrazor nefrci pod vistou? hmmm, som ho pouzival uz davnejsie (na WinXP). no mozno najdes podobny nastroj (alebo rozbehas winrazora)

Fico · Napísal **Fico**: 13.03.2009 12:58

To vy si hovoríte programátori? Používať nejaké programy, ak neviete niečo sami? Zaujímavé. No ale to je vaša vec ...

Neobdĺžníkový formulár vyriešiš takto:

1.) Tento kód ti vytvorí z formulára elipsu

Kód:

var
 R : HRgn;
begin
 R := CreateEllipticRgn(0, 0, Width, Height);
 SetWindowRgn(Handle, R, True);
end; 

2.) Elipsu si nechcel, to len aby si videl, že aj na to sú funkcie, netreba žiadne "múdre" programy

Vytvoriť takýto oblý vzhľad je trochu ťažšie, musíš totiž definovať každý bod ako prvok poľa. Potom pomocou CreatePolygonRgn vytvoríš daný vzhľad. Čím viac bodov, tým presnejšie (ale aj pomalšie - samozrejme)

Kód:

var
 R : HRgn;
 Body: array[0..2] of TPoint;
begin
 Body[0]:= Point(0, 0);
 Body[1]:= Point(300, 0);
 Body[2]:= Point(100, 200);
 R := CreatePolygonRgn(Body, 3, ALTERNATE);  // 3 znamená, že pole ma 3 údaje
 SetWindowRgn(Handle, R, True);
end;

A ešte k tým prerušovným okrajom, ako má Winamp. Neviem ako si myslel to prerušovanie, ale ak tým myslíš prerušované blikanie, rieši sa to pomocou AlphaBlendValue.

max-m · Napísal **max-m**: 13.03.2009 13:24

kenny8911 píše:

:shock:
To vy si hovoríte programátori? Používať nejaké programy, ak neviete niečo sami? Zaujímavé. No ale to je vaša vec ...

... ja uz len tak na okraj. snazil som sa ulahcit KVikimu pracu (netusim ako dobre ovlada Delphi). Ja som to niekedy riesil cez tento soft (winrazor) no kedze som v priebehu 5rokov vo VB dost pokrocil taketo veci uz neriesim pomocou nejakych "externych" softov ale tiez priamo kodom... :smoky:

Fico · Napísal **Fico**: 13.03.2009 13:48

OK, ja sa nehádam, ja iba, že práve fórum je na to, aby sa človek naučil to, čo nevie a aby predišiel používaniu iných programov.

Vlastny Styl Formulara V Delphi7

Podobné témy