Hello :)
Mam do zrobienia przeglądarkę na zaliczenie i brakuje mi w niej pokazu slajdów na full ekranie wyłączanego przyciskiem f10, zoom in, out oraz obracania obrazów o kąty 90,180,270 stopni.
Proszę o pomoc i podpowiedzi w tej kwestii, mam mało czasu na zrobienie tego.
- Rejestracja:prawie 13 lat
- Ostatnio:ponad 9 lat
- Postów:13
0
0
Cd.pełnego ekranu to najprościej byłoby ustawić Align formy na alClient, FormStyle na fsStayOnTop a BorderStyle na bsNone .
A obracanie obrazów znajdziesz w internecie po 0.8 sekundach szukania.
edytowany 1x, ostatnio: Patryk27
marogo
"A obracanie obrazów znajdziesz w internecie po 0.8 sekundach szukania." - może nie ma tyle czasu :D
lemo1029
możliwe że znajdę ten czas ^^ a mi chodzi o takie coś, że nie widać w ogóle paska start okna programu tylko foto na ekranie.
I coś robiłem w tym kroku ale... nie powracał pasek stanu po minimalizacji :/
- Rejestracja:ponad 13 lat
- Ostatnio:około 18 godzin
- Lokalizacja:Tuchów
- Postów:12168
1
lemo1029 napisał(a)
Mam do zrobienia przeglądarkę na zaliczenie i brakuje mi w niej pokazu slajdów na full ekranie wyłączanego przyciskiem f10
Zrób jak pisze @Patryk27 - utwórz formularz rozciągnięty na cały ekran, pozbaw go obramowania i wywołuj z głównej formy klawiszem F10; Tworzenie formularza dynamicznie zaimplementuj w jakimś zdarzeniu formularza-rodzica (np. po wybraniu odpowiedniej opcji z menu głównego aplikacji);
lemo1029 napisał(a)
zoom in, out
Powiększanie i zmniejszanie możesz wykonać przez odpowiednią modyfikacje wielkości komponentu z klasy TImage; Jak ustawisz Stretch na True - wystarczy tylko powiększać rozmiar komponentu, a resztę wykona za Ciebie kontrolka;
lemo1029 napisał(a)
oraz obracania obrazów o kąty 90,180,270 stopni.
Jest tego naprawdę dożo w sieci; Wystarczy wpisać delphi rotate image
O dowolny kąt jest więcej zabawy, ale obracanie co 90 stopni jest banalnie proste, wystarczą pętle i pomocnicza bitmapa;
A, dodam jeszcze, że istnieje taka klasa kontrolek jak TRotateImage - do pobrania pod praktycznie dowolną wersję Delphi stąd;
edytowany 2x, ostatnio: flowCRANE
- Rejestracja:prawie 19 lat
- Ostatnio:3 dni
- Postów:819
0
furious programming napisał(a):
Powiększanie i zmniejszanie możesz wykonać przez odpowiednią modyfikacje wielkości komponentu z klasy TImage; Jak ustawisz Stretch na True - wystarczy tylko powiększać rozmiar komponentu, a resztę wykona za Ciebie kontrolka;
To rzeczywiście najprostsze rozwiązanie ale daje brzydkie efekty, niestety.
Bardzo ładnie i szybko działa funkcja StretchBlt z StretchMode=HALFTONE
"To rzeczywiście najprostsze rozwiązanie ale daje brzydkie efekty, niestety." - zgadzam się, ale założyłem, że skoro autor tematu pyta o takie rzeczy to zbyt wiele nie umie i pasuje podpowiedzieć naprawdę najprostrze rozwiązanie; Niestety to rozwiązanie jest słabe, bo nie oferuje rozmywania grafiki, tak jak ma to miejsce w Windows'owym oknie podglądu obrazu; Jest wiele możliwości wykonania tego, ale wszystko zależy od tego na ile stać autora wątku;
no nie umiem za dużo :) dlatego aby zaliczyć programowanie i iść na sieci.
Czy możecie podać jakieś przykładowe kody takich lub podobnych funkcji?
- Rejestracja:ponad 13 lat
- Ostatnio:około 18 godzin
- Lokalizacja:Tuchów
- Postów:12168
0
lemo1029 napisał(a)
Czy możecie podać jakieś przykładowe kody takich lub podobnych funkcji?
Czyli nic nie chcesz zrobić tylko dostać gotowca...? O.o
Ja rozumiem, że nie każdy ma głowę do programowania czy matematyki, ale mógłbyś się postarać cokolwiek zrobić...
Przykład wyświetlania formularza tworzonego dynamicznie (klasa formularza rodzica - TForm1, formularza podglądu - TForm2) - w kodzie formularza rodzica w zdarzeniu OnClick buttona Button1 odpowiadającego wyświetleniu okna podglądu:
uses
Unit2;
{...}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.ShowModal();
Form2.Free();
end;
Unit2 to moduł zawierający klasę TForm2 czyli okno podglądu; We właściwościach projektu przenieś formularz Form2 na listę okien tworzonych dynamicznie (standardowo są tworzone automatycznie);
To tylko przykład; Sam musisz pomyśleć nad tym, w jaki sposób ma działać aplikacja i co i gdzie będzie wykonywane; Więc zrób coś, a jak nie będzie działało to napisz - pomożemy, ale nikt nie zrobi tego za Ciebie; Jeśli nie chce Ci się robić tego projektu to napisz w dziale Praca i za odpowiednie wynagrodzenie ktoś odwali całą robotę za Ciebie;
nie chciałem gotowca a przykłady... szkoda że tak to odbieracie.
No to podałem Ci przykład; A co można wywnioskować z treści wątku? No właśnie to, że nie posiadasz wiedzy, która zawarta jest m.in. w kursach; A skoro nie czytasz kursów to pewnie nie chcesz się tego nauczyć tylko otrzymać gotowy kod do wklejenia w programie; Dużo jest takich tematów na forum i łatwo można poznac kto potrzebuje informacji, a kto gotowca;
- Rejestracja:ponad 19 lat
- Ostatnio:3 miesiące
0
furious programming napisał(a):
{...}
Form2 := TForm2.Create(Self);
Form2.ShowModal();
Form2.Free();
{...}
Odradzam.
Polecam:
{...}
with TForm2.Create(Self) do
begin
try
ShowModal();
finally
Free();
end;
end;
{...}
2
Czyli nic nie chcesz zrobić tylko dostać gotowca...? O.o
Jeśli nie chce Ci się robić tego projektu to napisz w dziale Praca i za odpowiednie wynagrodzenie ktoś odwali całą robotę za Ciebie;
I kto mnie minusował... Eh, ja po prostu mam przeczucie.
Odradzam.Polecam
Tja, gdyby wszystkim się chciało robić wszystko tak jak powinno być (np. try..finally przy sekcjach krytycznych o_O albo tworzeniu/zwalnianiu obiektów), to nie byłoby tylu bugów. Tylko czy bugi nie są fajne?
- Rejestracja:ponad 13 lat
- Ostatnio:około 18 godzin
- Lokalizacja:Tuchów
- Postów:12168
1
DajPanForseAKA-123 napisał(a)
I kto mnie minusował... Eh, ja po prostu mam przeczucie.
Nie wiem kto Cię minusował... :P
DajPanForseAKA-123 napisał(a)
Tja, gdyby wszystkim się chciało robić wszystko tak jak powinno być (np. try..finally przy sekcjach krytycznych o_O albo tworzeniu/zwalnianiu obiektów), to nie byłoby tylu bugów.
Możliwe że tak, ale do tego trzeba samemu dojść, a nie czekać, aż ktoś zrobi to za autora;
DajPanForseAKA-123 napisał(a)
Tylko czy bugi nie są fajne?
Czy ja wiem... Czasem tak, czasem nie; Szczególnie, jak szlag człowieka tafia bo kod jest w porządku, nie widać żadnych niedociągnięć a i tak nie działa jak należy; :]
{...}
with TForm2.Create(Self) do
begin
try
ShowModal();
finally
Free();
end;
end;
{...}
Odradzam.
Polecam:
{...}
with TForm2.Create(Self) do
try
ShowModal();
finally
Free();
end;
{...}
- Rejestracja:ponad 19 lat
- Ostatnio:3 miesiące
1
furious programming napisał(a):
{...}
with TForm2.Create(Self) do
begin
try
ShowModal();
finally
Free();
end;
end;
{...}
Odradzam.
Polecam:
{...}
with TForm2.Create(Self) do
try
ShowModal();
finally
Free();
end;
{...}
Ta, i mniej rozgarnięty koder (albo ty sam w mniej przytomnym stanie, co czas od czasu zdarza się każdemu) dodaje w polecanym przez ciebie kodzie jeden wiersz:
{...}
with TForm2.Create(Self) do
AppendLogFormCreate(TForm2);
try
ShowModal();
finally
Free();
end;
{...}
Odradzam użycie with bez begin end o ile nie jest to w jednym wierszu np:
with Rect do Left:=0;
Zresztą to samo dotyczy każdej innej instrukcji, np if for ...
edytowany 2x, ostatnio: _13th_Dragon
Nie width, a with...
No właśnie, przypadek mniej przytomnego stanu. ;P Poprawiam.
- Rejestracja:ponad 13 lat
- Ostatnio:około 18 godzin
- Lokalizacja:Tuchów
- Postów:12168
2
_13th_Dragon napisał(a)
Ta, i mniej rozgarnięty koder (albo ty sam w mniej przytomnym stanie, co czas od czasu zdarza się każdemu) dodaje w polecanym przez ciebie kodzie jeden wiersz:
Mój stan jest na tyle dobry, że dokładnie wiem co chciałem osiągnąć, więc skończ swoją dyskusję o rozgarnięciu; Skoro blok begin .. end; nie był potrzebny - usunąłem go, a w Twoim przykładzie był całkowicie zbędny; Zawsze odradzam nadmiernego pakowania tych bloków jeśli chodzi o jedną linię / blok; To samo tyczy się warunków, np. takiego:
if bExists then
begin
Result := Value mod 5;
end
else
begin
Result := Value div 10;
end;
skoro można po ludzku napisać:
if bExists then
Result := Value mod 5
else
Result := Value div 10;
Więc przestań się czepiać, skoro napisałem dobrze; Nadmiar bloków begin .. end; to wada, bo zwiększają ilość linii oraz wpływają na czytelność kodu; Jeśli trzeba będzie dodać kilka instrukcji to nie problem dodać także ww. blok;
edytowany 3x, ostatnio: flowCRANE