Jak przekonwertować hIcon do TBitmap?

Jak przekonwertować hIcon do TBitmap?
user322
U3
user322
U3
  • Rejestracja:ponad 12 lat
  • Ostatnio:ponad rok
  • Postów:196
0

Mam uchwyt do ikony w zmiennej

Kopiuj
Icon: hIcon;

Wykonuję:

Kopiuj
procedure HIconToBitmap(Icon: HICON; Bitmap: TBitmap);
begin
  DrawIconEx(Bitmap.Canvas.Handle, 0, 0, Icon, 16, 16, 0, 0, DI_NORMAL);
end;

procedure TForm1.Button1(Sender: TObject);
var
  bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try;
    HIconToBitmap(Icon, Bmp);
    Image1.Picture.Bitmap.Assign(bmp);
  finally
    Bmp.Free;
  end;
end;

Ale komponent Image1. jest pusty. Natomiast jak zrobię:

Kopiuj
Image1.Picture.Icon.Handle := Icon;

To obrazek się podstawia. Co robię nie tak?

Zrobiłem w ten sposób:

Kopiuj
Bmp := TBitmap.Create;
        MyIcon:=TIcon.Create;
        try;
          MyIcon.Handle:=Icon;
          bmp.Width := MyIcon.Width;
          bmp.Height := MyIcon.Height;
          bmp.Canvas.Draw(0, 0, MyIcon ) ;
         // HIconToBitmap(Icon, Bmp);
        //  Image1.Picture.Bitmap := nil;

          Image1.Picture.Bitmap.Assign(bmp);

          // Bmp.Handle = HBITMAP
          // Bmp.Canvas.Handle = HDC
        finally
          MyIcon.Free;
          Bmp.Free;
        end;

i działa, ale nie podoba mi się to, że muszę konwertować do ikony a później do BMP....

edytowany 1x, ostatnio: user322
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
olesio
olesio
olesio
olesio
  • Rejestracja:prawie 17 lat
  • Ostatnio:około 3 lata
  • Lokalizacja:Szczecin
  • Postów:4191
1
user322 napisał(a):

(...) ale nie podoba mi się to, że muszę konwertować do ikony a później do BMP....

Hehe, następny dzisiaj ;) Który lubi sobie stwarzać problemy tam, gdzie ich w ogóle nie ma. No to podstawiaj od razu swój HICON do Picture.Icon.Handle i "wuala"! Gotowe :) Bez problemów.

Ewentualnie wywołuj funkcję LoadImage tak, żebyś miał od razu HICON w żądanych rozmiarach. I wiadomo można "mieszać" WinAPI z VCL. Bo i VCL bazuje na WinAPI oczywiście. Ale za bardzo sobie gmatwasz, robiąc problem, gdzie go nie ma. No ale to już pisałem, także kończe :P

Pozdrawiam.
edytowany 1x, ostatnio: olesio
flowCRANE
Otóż to - często najprostrze rozwiązania są najlepsze; Jeśli będzie chciał tylko wyświetlić ikonę to wystarczy przepisać uchwyty; Jeśli będzie chciał ikonę w jakiś sposób przerysować, niech bawi się z klasą TBitmap - podałem niżej sposób na poprawne użycie osobnej klasy;
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
flowCRANE
flowCRANE
flowCRANE
flowCRANE
Moderator Delphi/Pascal
  • Rejestracja:ponad 13 lat
  • Ostatnio:około godziny
  • Lokalizacja:Tuchów
  • Postów:12166
2

Jeśli używasz instancji klasy TBitmap osobno, to po wywołaniu konstruktora musisz nadać bitmapie rozmiar; Ty tego nie robiłeś, więc rozmiar bitmapy był równy 0;

Zobacz na poniższy przykład; Na formularzu jest komponent imgIcon - domyślnie bez załadowanej grafiki; Teraz aby namalować na nim ikonę posiadaną przez formularz, wystarczy stworzyć klasę TBitmap, nadać jej rozmiar i przerysować ikonę formularza na kanwę bitmapy, za pomocą Windows.DrawIcon lub Windows.DrawIconEx; Na koniec skojarzyć bitmapę komponentu z tą tymczasową i gotowe;

Kod:

Kopiuj
procedure TForm1.Button1Click(Sender: TObject);
var
  bmpIcon: TBitmap;
begin
  bmpIcon := TBitmap.Create();
  try
    bmpIcon.Width := imgIcon.Width;
    bmpIcon.Height := imgIcon.Height;
    Windows.DrawIconEx(bmpIcon.Canvas.Handle, 50, 50, Self.Icon.Handle, 16, 16, 0, 0, DI_NORMAL);
    imgIcon.Picture.Bitmap.Assign(bmpIcon);
  finally
    bmpIcon.Free();
  end;
end;

Poniżej zrzuty - z lewej przed wywołaniem kodu, z prawej po jego wywołaniu (po przyciśnięciu przycisku):

icon-drawing.png

W załączniku masz źródła do przetestowania, jakbyś miał problem z przepisaniem/przeniesieniem kodu;

Zresztą, dokładnie to samo możesz zrobić bezpośrednio na bitmapie komponentu, jednak rozmiar początkowo i tak trzeba ustawić:

Kopiuj
procedure TForm1.Button1Click(Sender: TObject);
begin
  imgIcon.Picture.Bitmap.Width  := imgIcon.Width;
  imgIcon.Picture.Bitmap.Height := imgIcon.Height;
  Windows.DrawIconEx(imgIcon.Picture.Bitmap.Canvas.Handle, 50, 50, Self.Icon.Handle, 16, 16, 0, 0, DI_NORMAL);
end;

Tego rozwiązania użyj w przypadku, gdy potrzebujesz porysować coś więcej, niż tylko samą ikonę (np. z wybranym tłem); Jeśli to jest niepotrzebne i ikona ma być tylko wyświetlona - przepisz jedynie uchwyt, tak jak podał poprzednik; Nie ma co utrudniać sobie życia.

Pracuję nad własną, arcade'ową, docelowo komercyjną grą z gatunku action/adventure w stylu retro (pixel art), programując silnik i powłokę gry od zupełnych podstaw, przy użyciu Free Pascala i SDL3. Więcej informacji znajdziesz na moim mikroblogu.
edytowany 4x, ostatnio: flowCRANE
olesio
Z końcowego kodu wynika, że później nadał jednak rozmiar. Jednak On chce uniknąć konwertowania i użycia TBitmap. Wtedy najprościej użyć LoadImage i nie cudować zbytnio.
flowCRANE
Owszem, nadał rozmiar, jednak już nie korzystał z funkcji WinAPI bezpośrednio, a użył metody TCanvas.Draw; Gdyby wcześniej nadał rozmiar to najprawdopodobniej by wszystko pięknie zadziałało; Dlatego też o tym wspominam w tym poście;
flowCRANE
No i nie wiemy co pytacz chce zrobić - wyświetlić ikonę as-is, czy coś jeszcze namalować (np. na innym tle lub o innym rozmiarze, itp.); W każdym razie ma dwa rozwiązania - niech wybierze sobie to, które jest mu potrzebne;
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
user322
U3
user322
U3
  • Rejestracja:ponad 12 lat
  • Ostatnio:ponad rok
  • Postów:196
0

Zadziałało :)

Całość wygląda tak:

Kopiuj
procedure HIconToBitmap(Icon: HICON; Bitmap: TBitmap);
begin
  Bitmap.Width := 16;
  Bitmap.Height := 16;
  DrawIconEx(Bitmap.Canvas.Handle, 0, 0, Icon, 16, 16, 0, 0, DI_NORMAL);
end;

procedure JakasTam(Sender: TObject);
var
  bmp: TBitmap;
begin
  ...
        Bmp := TBitmap.Create;
        try;
          // Konwersja hIcon do TBitmap
          HIconToBitmap(Icon, Bmp);

          ms := TMemoryStream.Create;
          try
            bmp.SaveToStream(ms);
            ms.Position := 0;

            // Podstawienie strumienia z Bitmapa do pola SQL (INSERT)
            IBSQL1.ParamByName('icon').LoadFromStream(ms);

            IBSQL1.ExecQuery;
            IBTransaction1.Commit;

            // Przypisz do Image1
            Image1.Picture.Bitmap.Assign(bmp);
          finally
            ms.Free;
          end;

        finally
          Bmp.Free;
        end;
end;

Musiałem to przekonwertować, żeby zrobić inserta do bazy z obrazkiem i później go odczytać.

@olesio, problemem było to, że pobierałem ikonkę procesu na podstawie pozycji kursora i okna, które znajduje się pod nim, następnie chciałem tą ikonkę zapisać do bazy danych SQL w postaci obrazka, by móc później ją wczytać do drzewka tak jak pisałem w poprzednim temacie (repozytorium, gdzie miałem problem właśnie z pobraniem PID okna głównego). Nawet nie sprawdzałem czy się da, ale hIcon nie załaduję do bazy, a bitmapę jako stream tak, co wykonałem powyżej, aczkolwiek nie wiem, może jest jeszcze prostszy i bardziej wydajny sposób na to.

Dzięki za pomoc!

edytowany 1x, ostatnio: user322
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Treść
Podgląd
Kliknij, aby dodać treść...
Kliknij, aby dodać załącznik lub wklej ze schowka.
Instrukcja obsługi Markdown
Pomoc 1.18.8

Typografia

Edytor obsługuje składnie Markdown, w której pojedynczy akcent *kursywa* oraz _kursywa_ to pochylenie. Z kolei podwójny akcent **pogrubienie** oraz __pogrubienie__ to pogrubienie. Dodanie znaczników ~~strike~~ to przekreślenie.

Możesz dodać formatowanie komendami , , oraz .

Ponieważ dekoracja podkreślenia jest przeznaczona na linki, markdown nie zawiera specjalnej składni dla podkreślenia. Dlatego by dodać podkreślenie, użyj <u>underline</u>.

Komendy formatujące reagują na skróty klawiszowe: Ctrl+B, Ctrl+I, Ctrl+U oraz Ctrl+S.

Linki

By dodać link w edytorze użyj komendy lub użyj składni [title](link). URL umieszczony w linku lub nawet URL umieszczony bezpośrednio w tekście będzie aktywny i klikalny.

Jeżeli chcesz, możesz samodzielnie dodać link: <a href="link">title</a>.

Wewnętrzne odnośniki

Możesz umieścić odnośnik do wewnętrznej podstrony, używając następującej składni: [[Delphi/Kompendium]] lub [[Delphi/Kompendium|kliknij, aby przejść do kompendium]]. Odnośniki mogą prowadzić do Forum 4programmers.net lub np. do Kompendium.

Wspomnienia użytkowników

By wspomnieć użytkownika forum, wpisz w formularzu znak @. Zobaczysz okienko samouzupełniające nazwy użytkowników. Samouzupełnienie dobierze odpowiedni format wspomnienia, zależnie od tego czy w nazwie użytkownika znajduje się spacja.

Znaczniki HTML

Dozwolone jest używanie niektórych znaczników HTML: <a>, <b>, <i>, <kbd>, <del>, <strong>, <dfn>, <pre>, <blockquote>, <hr/>, <sub>, <sup> oraz <img/>.

Skróty klawiszowe

Dodaj kombinację klawiszy komendą notacji klawiszy lub skrótem klawiszowym Alt+K.

Reprezentuj kombinacje klawiszowe używając taga <kbd>. Oddziel od siebie klawisze znakiem plus, np <kbd>Alt+Tab</kbd>.

Indeks górny oraz dolny

Przykład: wpisując H<sub>2</sub>O i m<sup>2</sup> otrzymasz: H2O i m2.

Składnia Tex

By precyzyjnie wyrazić działanie matematyczne, użyj składni Tex.

<tex>arcctg(x) = argtan(\frac{1}{x}) = arcsin(\frac{1}{\sqrt{1+x^2}})</tex>

Kod źródłowy

Krótkie fragmenty kodu

Wszelkie jednolinijkowe instrukcje języka programowania powinny być zawarte pomiędzy obróconymi apostrofami: `kod instrukcji` lub ``console.log(`string`);``.

Kod wielolinijkowy

Dodaj fragment kodu komendą . Fragmenty kodu zajmujące całą lub więcej linijek powinny być umieszczone w wielolinijkowym fragmencie kodu. Znaczniki ``` lub ~~~ umożliwiają kolorowanie różnych języków programowania. Możemy nadać nazwę języka programowania używając auto-uzupełnienia, kod został pokolorowany używając konkretnych ustawień kolorowania składni:

```javascript
document.write('Hello World');
```

Możesz zaznaczyć również już wklejony kod w edytorze, i użyć komendy  by zamienić go w kod. Użyj kombinacji Ctrl+`, by dodać fragment kodu bez oznaczników języka.

Tabelki

Dodaj przykładową tabelkę używając komendy . Przykładowa tabelka składa się z dwóch kolumn, nagłówka i jednego wiersza.

Wygeneruj tabelkę na podstawie szablonu. Oddziel komórki separatorem ; lub |, a następnie zaznacz szablonu.

nazwisko;dziedzina;odkrycie
Pitagoras;mathematics;Pythagorean Theorem
Albert Einstein;physics;General Relativity
Marie Curie, Pierre Curie;chemistry;Radium, Polonium

Użyj komendy by zamienić zaznaczony szablon na tabelkę Markdown.

Lista uporządkowana i nieuporządkowana

Możliwe jest tworzenie listy numerowanych oraz wypunktowanych. Wystarczy, że pierwszym znakiem linii będzie * lub - dla listy nieuporządkowanej oraz 1. dla listy uporządkowanej.

Użyj komendy by dodać listę uporządkowaną.

1. Lista numerowana
2. Lista numerowana

Użyj komendy by dodać listę nieuporządkowaną.

* Lista wypunktowana
* Lista wypunktowana
** Lista wypunktowana (drugi poziom)

Składnia Markdown

Edytor obsługuje składnię Markdown, która składa się ze znaków specjalnych. Dostępne komendy, jak formatowanie , dodanie tabelki lub fragmentu kodu są w pewnym sensie świadome otaczającej jej składni, i postarają się unikać uszkodzenia jej.

Dla przykładu, używając tylko dostępnych komend, nie możemy dodać formatowania pogrubienia do kodu wielolinijkowego, albo dodać listy do tabelki - mogłoby to doprowadzić do uszkodzenia składni.

W pewnych odosobnionych przypadkach brak nowej linii przed elementami markdown również mógłby uszkodzić składnie, dlatego edytor dodaje brakujące nowe linie. Dla przykładu, dodanie formatowania pochylenia zaraz po tabelce, mogłoby zostać błędne zinterpretowane, więc edytor doda oddzielającą nową linię pomiędzy tabelką, a pochyleniem.

Skróty klawiszowe

Skróty formatujące, kiedy w edytorze znajduje się pojedynczy kursor, wstawiają sformatowany tekst przykładowy. Jeśli w edytorze znajduje się zaznaczenie (słowo, linijka, paragraf), wtedy zaznaczenie zostaje sformatowane.

  • Ctrl+B - dodaj pogrubienie lub pogrub zaznaczenie
  • Ctrl+I - dodaj pochylenie lub pochyl zaznaczenie
  • Ctrl+U - dodaj podkreślenie lub podkreśl zaznaczenie
  • Ctrl+S - dodaj przekreślenie lub przekreśl zaznaczenie

Notacja Klawiszy

  • Alt+K - dodaj notację klawiszy

Fragment kodu bez oznacznika

  • Alt+C - dodaj pusty fragment kodu

Skróty operujące na kodzie i linijkach:

  • Alt+L - zaznaczenie całej linii
  • Alt+, Alt+ - przeniesienie linijki w której znajduje się kursor w górę/dół.
  • Tab/⌘+] - dodaj wcięcie (wcięcie w prawo)
  • Shit+Tab/⌘+[ - usunięcie wcięcia (wycięcie w lewo)

Dodawanie postów:

  • Ctrl+Enter - dodaj post
  • ⌘+Enter - dodaj post (MacOS)