Announcement

Collapse
No announcement yet.

How I get an icon ... ?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • How I get an icon ... ?



    Hello old PB-hands,

    How do I get an icon in the top left of the main window?

    I'm still in a bad mood to test it - and nothing works!

    My brain cloud is very dark and is now losing all ideas.

    Where is a solution now?

    I'm sorry to make you nervous!

    Love and cordial greetings

    Detlev




  • #2
    Howdy, Detlev!

    In the PBCC Samples folder, look at the "hello.bas" sample.

    Comment


    • #3
      Dear Gary

      it runs only whith the worlds icon,

      Please test it with an other Icon !

      You will get the crisis because you dont know with wich program the icon wolrld.ico was generated ???

      The compiler do quit it with an error.

      You need to know which pixel format was used and which program has it bevore this times generated.

      With Coral Photopaint I have reached the end of my efforts.

      Bye
      Detlev

      Comment


      • #4
        Howdy, Detlev!

        I tried the code with other icons and it seems to work just fine.

        You do have to change the "hello.ico" to an icon of your choice (put the icon in the folder with hello.bas)

        Comment


        • #5
          Gary

          the format is 24 x 24 : 4

          I test it again.

          AND the same error.

          Comment


          • #6
            howdy, detlev!

            put up a link for your icon that won't work and we'll give it a try.

            Comment


            • #7
              Also tested other icons and they all work. Try saving your icon with size 32x32 pixels (32-bit color dept), which is what the Hello.ico has.

              Comment


              • #8
                differenz between the properties

                Comment


                • #9
                  Hello.ico = 766 bytes
                  sh2.ico = 4.18 Kilobytes

                  I dont know why

                  Comment


                  • #10
                    Size differs because .ico files can contain same picture with several sizes, like 32, 64 and 128, etc. pixels big in same file. Should not matter as long as the file is correctly saved - I have used such such files without problem. If you attach the ico file to a message here (Upload attachments), we can help testing better.

                    Comment


                    • #11
                      Hello Detiev, maybe you should use an online converter to convert image file to icon files .

                      this link can help you https://www.convertico.com/

                      You just upload a png file to the web site and select the size of your icon file to make and then the website will make
                      it for you and you can download this icon file

                      Comment


                      • #12
                        Dear Tim,

                        complet against format, but thanks for spark litle bit hope !
                        128 x 128 : 32 with 97.5 Kbytes ---- it must be have 32 x32 : 31 with nearly 766 bytes, like the Hello.ico

                        Perhaps we need a verry old icongeneratot program.

                        Which program could Robert Zale have used?

                        Bye Detlev

                        not the format

                        Comment


                        • #13
                          Originally posted by Detlev Wuulff View Post
                          Perhaps we need a verry old icongeneratot program.
                          I've coverted many jpg,bmp and tif files to icons with no problems using Irfanview. Just crop, resize and Save as .ico.

                          This one KinaLogo.ico is used as an application and Dialog icon in a #RESOURCE ICON statement

                          It started off as a large bmp. It was trivial to resize/resample to 32x32 and save as a .ico
                          Click image for larger version  Name:	KinaLogo.bmp Views:	0 Size:	442.6 KB ID:	798401
                          Attached Files

                          Comment


                          • #14
                            How are you making your icon?

                            test.ico This .ico file contains 3 icons at 256 color; one 48 x 48, one 32 x 32, and a 16 x 16. It is 8KB on disk size.

                            97K is not an icon.

                            In my experiments with test.ico I found that 16 x 16 is used on the caption (top of console or dialog), 32 x 32 on the task bar, and 48 x 48 if you make a desktop shortcut. If only one size in .ico file, it will be stretched to fit.

                            I use IconEdit32 to make icons.

                            Cheers,

                            ((or was it 16 x 16 in File Explorer?))
                            Attached Files
                            Dale

                            Comment


                            • #15
                              Dear Stuart,

                              full fixed the point! - 100 points - one hundret percent :

                              32 x 32 : 32 with 766 bytes - Super good job, Stuard!!!

                              Thanks, where can I send the bottle champus???

                              solution pur

                              Comment


                              • #16
                                Originally posted by Dale Yarker View Post
                                I use IconEdit32 to make icons.
                                If you want to create icon from scratch and have multi-size icons, The freeware Greenfish Icon Editor is a lot more powerful than the ancient PCMag IcondEdit32 and is rated very highly
                                http://greenfishsoftware.org/gfie.php

                                Comment


                                • #17
                                  T.A., maybe I'll try it; though I don't make an icon very often.
                                  Dale

                                  Comment


                                  • #18
                                    Dear All,

                                    and now nothing runs with an icon in the main program window.

                                    Sorry a lot auf Text is in German:

                                    It's a menue for difrents jobs

                                    To make it bilingual or multiligual could be a way !?

                                    Bye
                                    Detlev


                                    ' BK_2010 - GRAPHIC Version 24.12.2020
                                    '

                                    ' #RESOURCE "BK.PBR" 00
                                    #COMPILER PBCC 6.04

                                    #RESOURCE ICON, 100, "bk_2020_p.ico"
                                    #RESOURCE VERSIONINFO
                                    #RESOURCE FILEVERSION 2, 0, 0, 0
                                    #RESOURCE PRODUCTVERSION 6, 0, 0, 0
                                    #RESOURCE STRINGINFO "0407", "0407"
                                    #RESOURCE VERSION$ "Comments", "BK_2020"
                                    #RESOURCE VERSION$ "CompanyName", "Detlev Wulff"
                                    #RESOURCE VERSION$ "FileDescription", "Menüprogramm Betriebkosten"
                                    #RESOURCE VERSION$ "FileVersion", "2.0"
                                    #RESOURCE VERSION$ "InternalName", "BK_2020"
                                    #RESOURCE VERSION$ "LegalCopyright", "© 24.12.2020 D. Wulff"
                                    #RESOURCE VERSION$ "LegalTrademarks", "FREE WARE"
                                    #RESOURCE VERSION$ "OriginalFilename", "BK_2020.EXE"
                                    #RESOURCE VERSION$ "ProductName", "BK_Menü"
                                    #RESOURCE VERSION$ "ProductVersion", "2.0"


                                    #COMPILE EXE
                                    #DIM ALL
                                    ' #CONSOLE OFF

                                    ' #RESOURCE WAVE, 1, "telephone.wav"

                                    GLOBAL n,f,crack AS STRING
                                    GLOBAL NV,PV,LV,RV,BV,HH AS LONG
                                    GLOBAL PixW,PixH,x1,y1,x2,y2,hwin,bkgr,CarW,CarH,MaxCol,MaxRow AS LONG
                                    GLOBAL fn,cp,fnt,z,n,fr0,fr4,fr5 AS STRING
                                    GLOBAL pt,o,a,ca,cr,pkt,art AS INTEGER


                                    FUNCTION PBMAIN () AS LONG

                                    NV = &HF0D631 ' Bernstein / Amber
                                    PV = &H00CC00 ' Grün / Green
                                    LV = &HC480FC ' Lila / Purple
                                    RV = &HFF0000 ' Rot / Red
                                    BV = &H0000FF ' Blau / Blue
                                    HH = &H000000 ' Schwarz / Black

                                    OPEN "COLOR.DAT" FOR INPUT AS #3
                                    INPUT #3,NV
                                    INPUT #3,PV
                                    INPUT #3,LV
                                    INPUT #3,RV
                                    INPUT #3,BV
                                    INPUT #3,HH
                                    INPUT #3,fnt ' Schrifttype / Font
                                    INPUT #3,pkt ' Punkt / Point
                                    INPUT #3,art ' Verifizierung /
                                    CLOSE #3


                                    ' Monitor 1920 x 1050 pix
                                    DESKTOP GET CLIENT TO PixW,PixH: x1=0: y1=0: x2=PixW-10: y2=PixH-34
                                    cp="BK_2010 --- Die Betriebskostenabrechnung!"
                                    o=0
                                    GRAPHIC WINDOW cp,x1,y1,x2,y2 TO hwin
                                    GRAPHIC ATTACH hwin,0
                                    GRAPHIC CLEAR RGB(HH),RGB(NV)
                                    GRAPHIC COLOR RGB(NV),RGB(HH) ' Black background with Green text like old time
                                    GRAPHIC GET PIXEL (2,2) TO bkgr ' Find Background color if other colors used instead of black
                                    GRAPHIC FONT fnt,pkt,art ' Select font
                                    GRAPHIC CHR SIZE TO CarW,CarH ' Find pixel width and height of chosen graphic font
                                    MaxCol=PixW/CarW
                                    MaxRow=PixH/CarH


                                    GOTO start
                                    Hilfetext:

                                    GRAPHIC COLOR RGB(RV),RGB(HH)
                                    GRAPHIC SET POS (1*CarW,(1+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(2+o)*CarH) : GRAPHIC PRINT "| 00 Hilfetext: |"
                                    GRAPHIC SET POS (1*CarW,(3+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(4+o)*CarH) : GRAPHIC PRINT "| Verwenden Sie den Zweizifferncode für die Ansteuerung der Menüpunkte! |"
                                    GRAPHIC SET POS (1*CarW,(5+o)*CarH) : GRAPHIC PRINT "| |"
                                    GRAPHIC SET POS (1*CarW,(6+o)*CarH) : GRAPHIC PRINT "| |"
                                    GRAPHIC SET POS (1*CarW,(7+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(8+o)*CarH) : GRAPHIC PRINT "| ENDE = [RETURN] |"
                                    GRAPHIC SET POS (1*CarW,(9+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC REDRAW
                                    ff:
                                    GRAPHIC INKEY$ TO fr0
                                    IF fr0<>CHR$(13) THEN ff
                                    menue:
                                    '
                                    '
                                    start:


                                    GRAPHIC COLOR RGB(NV),RGB(HH)
                                    GRAPHIC SET POS (1*CarW,(1+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(2+o)*CarH) : GRAPHIC PRINT "| (c) 24.12.2020 Betriebskostenabrechnung 2020 |"
                                    GRAPHIC SET POS (1*CarW,(3+o)*CarH) : GRAPHIC PRINT "| Detlev Wulff Wählen Sie das entsprechende Programm über den |"
                                    GRAPHIC SET POS (1*CarW,(4+o)*CarH) : GRAPHIC PRINT "| Zwei-Ziffen-Code an (Ziffernblock): |"
                                    GRAPHIC SET POS (1*CarW,(5+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(6+o)*CarH) : GRAPHIC PRINT "| |"
                                    GRAPHIC SET POS (1*CarW,(7+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(8+o)*CarH) : GRAPHIC PRINT "| 01 : Vermieterabsender 09 : HZ Zahlerliste drucken |"
                                    GRAPHIC SET POS (1*CarW,(9+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(10+o)*CarH) : GRAPHIC PRINT "| 02 : Rotationsdatenerbearbeitung 10 : HZ Abrechnung drucken |"
                                    GRAPHIC SET POS (1*CarW,(11+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(12+o)*CarH) : GRAPHIC PRINT "|*03 : Drucken BK/HK 11 : Heizkosten-Zusammenführung |"
                                    GRAPHIC SET POS (1*CarW,(13+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(14+o)*CarH) : GRAPHIC PRINT "| 04 : Kostenerfassung + Deckblatt drucken 12 : Ausdruck-Zusammenfuhrung |"
                                    GRAPHIC SET POS (1*CarW,(15+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(16+o)*CarH) : GRAPHIC PRINT "| 05 : BK Abschlags- u. Zeitverknüpfung 13 : Mietsicherheit ausschütten |"
                                    GRAPHIC SET POS (1*CarW,(17+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(18+o)*CarH) : GRAPHIC PRINT "| 06 : BK Zahlerliste drucken 14 : Datumsdifferenz |"
                                    GRAPHIC SET POS (1*CarW,(19+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(20+o)*CarH) : GRAPHIC PRINT "| 07 : BK Abrechnung drucken 15 : Farb- u. Gestaltungswahl |"
                                    GRAPHIC SET POS (1*CarW,(21+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC SET POS (1*CarW,(22+o)*CarH) : GRAPHIC PRINT "|*08 : Betriebskostenabr. modifizieren 16 : E N D E |"
                                    GRAPHIC SET POS (1*CarW,(23+o)*CarH) : GRAPHIC PRINT "-------------------------------------------------------------------------------------"
                                    GRAPHIC REDRAW

                                    GOTO slf
                                    '
                                    sage:
                                    n=""

                                    GRAPHIC COLOR RGB(RV),RGB(HH)
                                    GRAPHIC SET POS (5*CarW,6*CarH) : GRAPHIC PRINT "Zugriff nicht möglich! "
                                    GRAPHIC REDRAW
                                    SLEEP 1000
                                    GRAPHIC SET POS (5*CarW,6*CarH) : GRAPHIC PRINT SPACE$(60)
                                    GRAPHIC REDRAW
                                    '
                                    slf:
                                    FOR a=1 TO 2
                                    fr1:
                                    GRAPHIC INKEY$ TO f
                                    LOCAL PID AS DWORD
                                    SLEEP 1
                                    GRAPHIC GET DC TO hwin
                                    IF hwin = 0 THEN ex ' Abbruch des Programms über Windows-Close-Symbol
                                    IF f="" THEN fr1
                                    IF ASC(f)<48 OR ASC(f)>57 THEN fr1
                                    n=n+f
                                    NEXT a
                                    IF VAL(n)<=-1 OR VAL(n)>16 THEN sage:
                                    '
                                    ca=VAL(n)
                                    '
                                    SELECT CASE ca
                                    CASE 0
                                    GOTO Hilfetext

                                    '
                                    CASE 1
                                    '
                                    ' Vermieterdaten erfassen
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,8*CarH) : GRAPHIC PRINT "01" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_ABS_2020")
                                    GRAPHIC WINDOW END

                                    CASE 2
                                    '
                                    ' Mieterdatenerfassung
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(10+o)*CarH) : GRAPHIC PRINT "02" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_GDA_2020")
                                    GRAPHIC WINDOW END

                                    CASE 3

                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(12+o)*CarH) : GRAPHIC PRINT "03" : GRAPHIC REDRAW
                                    SLEEP 1000
                                    GRAPHIC COLOR RGB(RV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(12+o)*CarH) : GRAPHIC PRINT "03 : Zahlerliste [1] / Statusliste = [2] [ESC] "
                                    f4:
                                    GRAPHIC INKEY$ TO fr4
                                    IF fr4<>"1" AND fr4<>"2" AND fr4<>CHR$(27) THEN f4

                                    SELECT CASE fr4

                                    CASE "1"
                                    SLEEP 2000
                                    PID=SHELL("BK_PRN_2020")
                                    GRAPHIC WINDOW END

                                    CASE "2"
                                    SLEEP 2000
                                    PID=SHELL("BK_STATUS_2020")
                                    GRAPHIC WINDOW END

                                    CASE CHR$(27)
                                    GOTO start

                                    END SELECT

                                    CASE 4
                                    '
                                    ' Kostenerfassung
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(14+o)*CarH) : GRAPHIC PRINT "04" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("P27A3BV2_2020")
                                    GRAPHIC WINDOW END

                                    CASE 5
                                    '
                                    ' Zeitverknüpfung
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(16+o)*CarH) : GRAPHIC PRINT "05" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_STF_2020")
                                    GRAPHIC WINDOW END

                                    CASE 6
                                    '
                                    ' BK Zahleriste drucken
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(18+o)*CarH) : GRAPHIC PRINT "06" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_MO1_2020")
                                    GRAPHIC WINDOW END

                                    CASE 7
                                    '
                                    ' BK Abrechnung drucken
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(20+o)*CarH) : GRAPHIC PRINT "07" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_MO2_2020")
                                    GRAPHIC WINDOW END

                                    CASE 8
                                    '
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(22+o)*CarH) : GRAPHIC PRINT "08" : GRAPHIC REDRAW
                                    SLEEP 1000
                                    GRAPHIC COLOR RGB(RV),RGB(HH)
                                    GRAPHIC SET POS (3*CarW,(22+o)*CarH) : GRAPHIC PRINT "08 : modifiziere BK = [1] / HK = [2] [ESC] "
                                    f5:
                                    GRAPHIC INKEY$ TO fr5
                                    IF fr5<>"1" AND fr5<>"2" AND fr5<>CHR$(27) THEN f5

                                    SELECT CASE fr5

                                    CASE "1"
                                    SLEEP 2000
                                    PID=SHELL("BK_STX_2020")
                                    GRAPHIC WINDOW END

                                    CASE "2"
                                    SLEEP 2000
                                    PID=SHELL("HK_STY_2020")
                                    GRAPHIC WINDOW END

                                    CASE CHR$(27)
                                    GOTO start

                                    END SELECT


                                    CASE 9
                                    '
                                    ' HK Zahlerliste drucken
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(8+o)*CarH) : GRAPHIC PRINT "09" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("HK_MO3_2020")
                                    GRAPHIC WINDOW END

                                    CASE 10
                                    '
                                    ' HK Abrechnung drucken
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(10+o)*CarH) : GRAPHIC PRINT "10" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("HK_MO4_2020")
                                    GRAPHIC WINDOW END


                                    CASE 11
                                    '
                                    ' --
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(12+o)*CarH) : GRAPHIC PRINT "11" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_ZUS_2020")
                                    GRAPHIC WINDOW END


                                    CASE 12
                                    '
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(14+o)*CarH) : GRAPHIC PRINT "12" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_ZUP_2020")
                                    GRAPHIC WINDOW END

                                    CASE 13
                                    '
                                    ' Mietsicherheit berechnen
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(16+o)*CarH) : GRAPHIC PRINT "13" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_MSH")
                                    GRAPHIC WINDOW END

                                    CASE 14
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(18+o)*CarH) : GRAPHIC PRINT "14" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_DIF_2020")
                                    GRAPHIC WINDOW END

                                    CASE 15
                                    '
                                    ' NebenKosten_COLor
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(20+o)*CarH) : GRAPHIC PRINT "15" : GRAPHIC REDRAW
                                    SLEEP 2000
                                    PID=SHELL("BK_COL_2020")
                                    GRAPHIC WINDOW END

                                    CASE 16
                                    GRAPHIC COLOR RGB(BV),RGB(HH)
                                    GRAPHIC SET POS (46*CarW,(22+o)*CarH) : GRAPHIC PRINT "16" : GRAPHIC REDRAW
                                    '
                                    GRAPHIC COLOR RGB(PV),RGB(HH)
                                    FOR cr = 1 TO 80
                                    crack = STRING$(cr,32)+"E N D E"
                                    GRAPHIC SET POS (5*CarW,6*CarH) : GRAPHIC PRINT USING$("\ ",crack) : GRAPHIC REDRAW
                                    SLEEP 130

                                    NEXT cr

                                    GRAPHIC WINDOW END

                                    END SELECT
                                    ex:

                                    PLAY WAVE "#1"
                                    END
                                    END FUNCTION

                                    ' ohne Funktion
                                    ' GRAPHIC COLOR RGB(LV),RGB(HH)
                                    ' GRAPHIC SET POS (46*CarW,(16+o)*CarH) : GRAPHIC PRINT "13" : GRAPHIC REDRAW
                                    ' GRAPHIC COLOR RGB(RV),RGB(HH)
                                    ' GRAPHIC SET POS (5*CarW,(6+o)*CarH) : GRAPHIC PRINT "Zugriff nicht möglich! "
                                    ' GRAPHIC REDRAW
                                    ' SLEEP 2000
                                    ' GRAPHIC SET POS (5*CarW,(6+o)*CarH) : GRAPHIC PRINT SPACE$(60)
                                    ' GRAPHIC REDRAW
                                    ' GOTO start

                                    Comment


                                    • #19
                                      Don't know how you could do it in PBCC, but in PBWin, you'd need
                                      DIALOG SET ICON hwin,"#100"
                                      to get the icon on the Graphic Window

                                      I note from your screenshot above that you have PBWin10 as well, so why not use that instead of PBCC. All you need to do is comment out "#COMPILER PBCC 6.04 " and "#CONSOLE OFF" and add the above line after GRAPHIC WINDOW cp,x1,y1,x2,y2 TO hwin

                                      Comment


                                      • #20
                                        In PBCC an icon present as a resource is used on the console automatically, but not on any created graphics window(s). ((maybe an API function and graphic window's handle could do it)) (((not considering the console as "main window" was confusing till post 18 where some source code finally appeared)))

                                        DIALOG SET ICON works on graphic window in PBWin, as Stuart said.
                                        '
                                        Code:
                                         'for PBWin
                                        #compile exe
                                        #dim all
                                        #resource icon, 101, "test.ico"
                                        
                                        function pbmain () as long
                                          local hGWin as dword
                                          graphic window new "G Win", 100, 90, 200, 150 to hGWin
                                          dialog set icon hGWin, "#101"
                                          sleep 10000
                                          graphic window end hGWin
                                        end function  '
                                        Cheers,
                                        Last edited by Dale Yarker; 21 Aug 2020, 09:02 AM.
                                        Dale

                                        Comment

                                        Working...
                                        X