W tym artykule przedstawię sposób, w jaki możemy animować nasze okno. Aby tego dokonać, wbrew pozorom nie musimy używać żadnych timerów ani tym podobnych rzeczy, całą czarną robotę odwali za nas cudowna funkcja AnimateWindow:
|
1 2 3 4 5 6 7 |
BOOL AnimateWindow(HWND hwnd, DWORD dwTime, DWORD dwFlags ); |
Pierwszy parametr to uchwyt do animowanego okna, drugi to czas animacji w milisekundach, a trzeci to flagi animacji, czyli jak […]
Wiele osób ma problemy z napisaniem swojego instalatora, dlatego pokusiłem się o napisanie arta na ten temat. Tekst opisuje mój sposób na stworzenie własnej instalki. Może nie jest najszybszy, ale uwalnia nas od konieczności korzystania z innych aplikacji np. InnoSetup. Każdy będzie mógł również odpowiednio rozbudować swój program dostosowując go do własnych potrzeb (np. dokładając […]
Teraz zajmiemy się stworzeniem programu, który rozpakuje nasze pliki. Instalator ma być przyjazny dla użytkownika, więc musimy zaopatryć go w pasek postępu oraz w okienko informujące go ile potrzebuje wolnego miejsca na dysku. Żeby zdobyć nawyk profesjonalnego pisania programów, zajmiemy się również obsłużeniem wyjątków. Oczywiście poniższy sposób jest tylko szablonem, każdy wedle uznania może go […]
Wiele osób na forum pyta się o sprawy związane z obsługą PageControl. Postanowiłem napisać krótki artykuł przedstawiający możliwości tego komponentu. Zacznijmy od podstaw – PageControl jest komponentem pozwalającym na tworzenie zakładek, takich jak np. palety komponentów w Delphi czy zakładki w FireFoxie. Na każdej zakładce możemy umieścić dowolne komponenty. Same zakładki tworzymy klikając prawym przyciskiem […]
Witam. W tym artykule przedstawiam korzystanie z unitu Zlib. Unit Zlib służy do pakowania danych algorytmem Deflate, co pozwala zaoszczędzić miejsce na dysku zajmowane przez dane używane przez nasz program. Pakowanie przebiega dość szybko, szczególnie w nowszych wersjach unitu, a rozpakowywanie-bardzo szybko. Algorytm nie należy do wydajnych, nie można porównywać rozmiaru spakowanych danych do rozmiaru […]
Komunikaty składają się one z formy, przycisków i tekstu. Na szczęście nie musisz tworzyć tych elementów ręcznie. Windows posiada odpowiednie polecenia WinApi, które znacznie ułatwiają stosowanie komunikatów. Na początku poznamy najprostszy : ShowMessage. Funkcja ShowMessage wyświetla okienko z tekstem i jednym przyciskiem OK. Po prostu informujemy o czymś użytkownika. Wystarczy, że napiszesz:
|
1 |
ShowMessage('WITAJ ! Jestem funkcją ShowMessage!'); |
Jest to […]
Witam, przedstawiam sposób, w jaki można otrzymać okno dowolnego kształtu oraz jak (w przypadku gdy oknem jest forma) przenosić je. Opis algorytmu. Procedura przyjmuje trzy argumenty: Mask – piksele o tym kolorze traktowane są jako przezroczyste, Bmp – bitmapa, której kształt ma przybrać okno, hwnd – uchwyt okna, którego kształt ma zostać zmieniony.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
procedure CreateVariousWindow(Mask : TColor ; var Bmp : TBitmap ; hwnd : HWND) ; var hrgn1 , hrgn2 : HRGN ; // 1 i , j , x : Integer ; begin hrgn2 := CreateRectRgn(0 , 0 , 0 , 0) ; for i := 0 to Bmp.Height - 1 do // 2 begin x := 0 ; for j := 0 to Bmp.Width - 1 do if (Bmp.Canvas.Pixels[j , i] <> Mask) and (x = 0) then // 3 x := j else if (x <> 0) and ((Bmp.Canvas.Pixels[j , i] = Mask) or (j = Bmp.Width - 1)) then // 4 begin hrgn1 := CreateRectRgn(x , i , j , i + 1) ; CombineRgn(hrgn2 , hrgn1 , hrgn2 , RGN_OR) ; // 5 x := 0 ; end ; end ; SetWindowRgn(hwnd , hrgn2 , true) ; // 6 end ; |
1. Definiujemy […]
Na początek stworzymy prostą aplikację wyświetlającą aktualną godzinę. Uruchamiamy Delphi, w górnym Menu wybieramy File|New|Application. Aby zrobić program będzie nam potrzebny obiekt wyświetlający liczby. Posłuży za niego TLabel(W zakładce standard, ikona „A”). Zaznaczamy i przeciągamy komponent w dowolne miejsce formularza. Następnie przechodzimy do zakładki System, wybieramy TTimer(zegar) oraz przeciągamy na formę. Timer będzie odczytywał z systemu aktualną godzinę. […]
Instalowanie nowych komponentów stanowi poważny problem dla każdego początkującego programisty. Aby to zrobić wystarczy postępować według poniższego przykładu. Na początek wybierzmy sobie jakiś komponent np. FlatStyle. Rozpakujmy go w dowolnym katalogu. Polecam przygotować specjalny katalog dla komponentów, aby utrzymać porządek. np. C:\Delphi6\dodatki Po rozpakowaniu otrzymujemy w katalogu następujące pliki : Wybieramy plik z rozszerzeniem .dpk. […]
Artykuł opisuje szczegółowo wszystkie zagadnienia związane z obsługą rejestru. Dołączony jest przykładowy kod źródłowy programu wykonujące bardzo wiele czynności na rejestrze. 1.Fundamenty Na początku musimy zadeklarować rejestr w naszym programie. Robimy to poprzez dodanie Registry w uses. Następnie deklarujemy obiekt rejestru :
|
1 |
var Reg: TRegistry; |
Teraz tworzymy obiekt :
|
1 |
Reg := TRegistry.Create ; |
W Delphi 5 lub wyższych w Create […]