Page 3 of 3 FirstFirst 123
Results 21 to 30 of 30

Thread: Someone know about notepad

  1. #21
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    171
    yes , i see i fix , the s - z , i test and yes working , open the select .... recipe and open perfect ,

    i like it more use the recipe.png backgroung , but for use that i necesary make a plugin

  2. #22
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    171
    enforcer , you see the post about the notepad.swf , i find that flash on internet , and open perfect with RR , but i want add the RRosk for write in that flash , that is possible ?

  3. #23

  4. #24
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    171
    that is the notepad.swf ...... i think if use the SENDKEY command , the same way check the file ... the flash working fine with external osk , but i want use the RR osk with that flash

    i use this notepad flash for leave any message on the screen to my wife , but i have the screen in the wall of kitchen install , so , dont have connect the external osk
    Attached Files Attached Files
    Last edited by mikeeps2; 04-30-2013 at 06:56 PM.

  5. #25
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    171
    enforcer hi , my friend , i change the recipe .txt for .PNG , but now i try to open with the command what you tell me , i change somethink , but dont work , can you if where is the error please .

    i put this

    "SELRECIPE","SETVARBYCODE;RECIPE;LISTTEXT||SETVAR; RECIPE;$RECIPE$||SAVETOSKIN;RECIPE;$RECIPE$||WAIT; 0.1||EXIT||LOAD;RECIPE.skin||RUN;$SKINPATH$\RECIPE S\$recipe$.PNG"

    the .PNG have the same name of list of recipes

    thanks

  6. #26
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    3,108
    Nice idea !!!

  7. #27
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    3,108
    You can to use a list format as !
    LSTARROZ CON MARISCOS||ARROZ CON MARISCOS
    ICO$SKINPATH$RECIPES\IMAGES\ARROZ CON MARISCOS.PNG
    LSTMARISCOS-CAMARON-PULPO AL AJILLO||MARISCOS-CAMARON-PULPO AL AJILLO
    ICO$SKINPATH$RECIPES\IMAGES\MARISCOS-CAMARON-PULPO AL AJILLO.PNG
    I have modified your Exectbl.ini by:
    "RECIPES","CLCLEAR;ALL||MENU;RECIPES.skin||CLLOAD; $SKINPATH$RECIPES.txt;TRUE||SETVARBYCODE;IMAGEFILE NAME;CLIMG||SETLIST;1"
    "SELRECIPE","SETVARBYCODE;RECIPE;LISTTEXT||SETVAR; RECIPE;$RECIPE$||SAVETOSKIN;RECIPE;$RECIPE$||WAIT; 0.5||EXIT||LOAD;RECIPE.skin||run;c:\windows\notepa d.exe|$SKINPATH$RECIPES\$recipe$.txt;$RECIPE$"
    "ONCLCLICK","SETVARBYCODE;IMAGEFILENAME;CLIMG",REC IPES.skin
    "ONCLCLICK","SETVARBYCODE;IMAGEFILENAME;CLIMG",REC IPESM.skin
    "UP","UP||SETVARBYCODE;IMAGEFILENAME;CLIMG",RECIPE S.skin
    "DOWN","DOWN||SETVARBYCODE;IMAGEFILENAME;CLIMG",RE CIPES.skin
    Into your RECIPES.skin file, replace :
    I,16,24,148,202,"FILE;$Skinpath$RECIPES\IMAGES\$im agefilename$",,,
    by
    I,16,24,148,202,"FILE;$imagefilename$",,,

    That solve the update pic only !!!

  8. #28
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    3,108
    And if you change into youe exectbl.ini file the line:
    "SELRECIPE","SETVARBYCODE;RECIPE;LISTTEXT||SETVAR; RECIPE;$RECIPE$||SAVETOSKIN;RECIPE;$RECIPE$||WAIT; 0.5||EXIT||LOAD;RECIPE.skin||run;c:\windows\notepa d.exe|$SKINPATH$RECIPES\$recipe$.txt;$RECIPE$"
    by
    "SELRECIPE","SETVARBYCODE;RECIPE;LISTTEXT||SETVAR; RECIPE;$RECIPE$||SAVETOSKIN;RECIPE;$RECIPE$||WAIT; 0.5||EXIT||LOAD;RECIPE.skin||CLLOAD;$SKINPATH$RECI PES\$recipe$.txt;TRUE"

    You can to load the text into a custom list but you will need to reformat the text for a 800 screen !!!
    Attached Files Attached Files

  9. #29
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    171
    hi my friend , pierrotm ... thanks for help me ...

    but when i want change the recipe.txt for .PNG , the idea is dont use notepad ....is use that look

    the list for select is perfect for me , the dont like to much is what the recipe open with notepad , and like it that open similar to the picture , and the corner top left , show the image for each recipe
    Attached Images Attached Images  

  10. #30
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    171
    enforcer , i find this script with autoit , and i modific inside some thinks , working fine , but i dont know how add with RR

    1- use the osk of RR
    2-when open for write new recipe or save the recipe , or load the recipe , open a popup , outside of RR , is ease put yes or no , but with RR , show the popup but disappears


    this is the script

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <WindowsConstants.au3>
    #Include <Array.au3>

    $GUI = GUICreate("RECIPES", 800, 500, 0 ,0, $WS_POPUP )



    GUICtrlCreateLabel("INGREDIENTES",220,65,80,20)
    GUICtrlSetColor(-1, 0xff0000)
    GUISetState(@SW_SHOW)
    GUICtrlCreateLabel("PREPARACION",220,235,80,20)
    GUICtrlSetColor(-1, 0xff0000)
    GUISetState(@SW_SHOW)


    $NewRecipeButton = GUICtrlCreateButton("New Recipe", 40, 0, 125, 42, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 2, "HandelGotDL")
    $RecipeListBox = GUICtrlCreateList("", 10, 45, 200, 450)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")

    $TitleInput = GUICtrlCreateInput("", 270, 15, 335, 30)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")


    Dim $Ing[11]
    Dim $Q[11]
    Dim $QT[11]

    $Ing[1] = GUICtrlCreateInput("", 265, 80, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[1] = GUICtrlCreateInput("", 220, 80, 40, 25)


    $Ing[2] = GUICtrlCreateInput("", 265, 105, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[2] = GUICtrlCreateInput("", 220, 105, 40, 25)


    $Ing[3] = GUICtrlCreateInput("", 265, 130, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[3] = GUICtrlCreateInput("", 220, 130, 40, 25)


    $Ing[4] = GUICtrlCreateInput("", 265, 155, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[4] = GUICtrlCreateInput("", 220, 155, 40, 25)


    $Ing[5] = GUICtrlCreateInput("", 265, 180, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[5] = GUICtrlCreateInput("", 220, 180, 40, 25)


    $Ing[6] = GUICtrlCreateInput("", 500, 80, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[6] = GUICtrlCreateInput("", 455, 80, 40, 25)


    $Ing[7] = GUICtrlCreateInput("", 500, 105, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[7] = GUICtrlCreateInput("", 455, 105, 40, 25)


    $Ing[8] = GUICtrlCreateInput("", 500, 130, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[8] = GUICtrlCreateInput("", 455, 130, 40, 25)


    $Ing[9] = GUICtrlCreateInput("", 500, 155, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[9] = GUICtrlCreateInput("", 455, 155, 40, 25)

    $Ing[10] = GUICtrlCreateInput("", 500, 180, 185, 25)
    GUICtrlSetFont(-1, 12, 400, 2, "Times New Roman")
    $Q[10] = GUICtrlCreateInput("", 455, 180, 40, 25)

    $InstructionBox = GUICtrlCreateEdit("", 220, 250, 500, 200, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETU RN,$WS_VSCROLL))
    GUICtrlSetFont(-1, 13, 400, 2, "Times New Roman")

    $SaveButton = GUICtrlCreateButton("Save", 280, 453, 165, 42, $WS_GROUP)
    GUICtrlSetFont(-1, 15, 800, 2, "HandelGotDL")
    $DiscardButton = GUICtrlCreateButton("Discard", 495, 453, 165, 42, $WS_GROUP)
    GUICtrlSetFont(-1, 15, 800, 2, "HandelGotDL")
    LoadFirstRecipe()
    RecipeListBoxRefresh()
    GUISetState(@SW_SHOW)


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $RecipeListBox
    LoadRecipe()
    Case $NewRecipeButton
    NewRecipe()
    Case $SaveButton
    SaveRecipe()
    Case $DiscardButton
    Discard()
    EndSwitch
    WEnd

    Func NewRecipe()
    $SaveTitleData = GUICtrlRead($TitleInput)
    If FileExists(@ScriptDir & "\SB-" & $SaveTitleData & ".txt") Then
    ResetInputs()
    Else
    $ForgotSaveMsgBox = MsgBox(4, "Save?", "Before you go on, do you want to save this " & $SaveTitleData & " recipe?")
    If $ForgotSaveMsgBox = 6 then
    WriteSaveFile()
    ResetInputs()
    Else
    ResetInputs()
    EndIf
    EndIf
    EndFunc

    Func ResetInputs()
    GUICtrlSetData($TitleInput, "")
    For $Number = 1 to 10
    GUICtrlSetData($Ing[$Number], "")
    GUICtrlSetData($Q[$Number], "")

    Next
    GUICtrlSetData($InstructionBox, "")
    EndFunc

    Func SaveRecipe()
    $SaveTitleData = GUICtrlRead($TitleInput)
    If FileExists(@ScriptDir & "\SB-" & $SaveTitleData & ".txt") Then
    $OverwriteMsgBox = MsgBox(4, "Overwrite?", "Do you want to overwrite your other " & $SaveTitleData & " recipe?")
    If $OverwriteMsgBox = 6 then
    FileDelete(@ScriptDir & "\PB-" & $SaveTitleData & ".txt")
    WriteSaveFile()
    EndIf
    Else
    WriteSaveFile()
    EndIf
    EndFunc

    Func WriteSaveFile()
    $SaveTitleData = GUICtrlRead($TitleInput)
    FileWrite(@ScriptDir & "\SB-" & $SaveTitleData & ".txt", $SaveTitleData & @TAB)

    For $Number = 1 to 10
    $SaveIngData = GUICtrlRead($Ing[$Number])
    FileWrite(@ScriptDir & "\SB-" & $SaveTitleData & ".txt", $SaveIngData & @TAB)
    $SaveQData = GUICtrlRead($Q[$Number])
    FileWrite(@ScriptDir & "\SB-" & $SaveTitleData & ".txt", $SaveQData & @TAB)
    $SaveQTData = GUICtrlRead($QT[$Number])
    FileWrite(@ScriptDir & "\SB-" & $SaveTitleData & ".txt", $SaveQTData & @TAB)
    Next

    $SaveInstructionData = GUICtrlRead($InstructionBox)
    FileWrite(@ScriptDir & "\SB-" & $SaveTitleData & ".txt", $SaveInstructionData)

    If FileExists(@ScriptDir & "\SB-" & $SaveTitleData & ".txt") Then
    MsgBox(0, "Success!", "Your " & $SaveTitleData & " recipe has been saved.")
    RecipeListBoxRefresh()
    EndIf
    EndFunc

    Func RecipeListBoxRefresh()
    GUICtrlSetData($RecipeListBox, "")
    $FileSearch = FileFindFirstFile("SB-*.*")
    While 1
    $RecipeFile = FileFindNextFile($FileSearch)
    If @Error Then ExitLoop
    GUICtrlSetData($RecipeListBox, $RecipeFile & "|")
    WEnd
    FileClose($FileSearch)
    EndFunc

    Func LoadFirstRecipe()
    GUICtrlSetData($RecipeListBox, "")
    $FileSearch = FileFindFirstFile("SB-*.*")
    $RecipeFile = FileFindNextFile($FileSearch)
    If @Error Then
    MsgBox(0, "No recipes!", "You don't have any recipes yet.")
    Else
    $LoadData=FileRead(@ScriptDir & "\" & $RecipeFile )
    $LoadData = StringSplit($LoadData, @TAB)

    GUICtrlSetData($TitleInput, $LoadData[1])
    For $Number = 1 to 10
    $ArrayNumber=3 * $Number - 1
    GUICtrlSetData($Ing[$Number], $LoadData[$ArrayNumber])
    $ArrayNumber=3 * $Number
    GUICtrlSetData($Q[$Number], $LoadData[$ArrayNumber])
    $ArrayNumber=3 * $Number + 1
    GUICtrlSetData($QT[$Number], $LoadData[$ArrayNumber])
    Next
    GUICtrlSetData($InstructionBox, $LoadData[32])
    EndIf
    EndFunc

    Func LoadRecipe()
    $SaveTitleData = GUICtrlRead($TitleInput)
    If FileExists(@ScriptDir & "\SB-" & $SaveTitleData & ".txt") Then
    LoadSaveFile()
    Else
    $ForgotSaveMsgBox = MsgBox(4, "Save?", "Before you go on, do you want to save this " & $SaveTitleData & " recipe?")
    If $ForgotSaveMsgBox = 6 then
    SaveRecipe()
    LoadSaveFile()
    Else
    LoadSaveFile()
    EndIf
    EndIf
    EndFunc

    Func LoadSaveFile()
    $RecipePressed = GUICtrlRead($RecipeListBox)
    $LoadData=FileRead(@ScriptDir & "\" & $RecipePressed )
    $LoadData = StringSplit($LoadData, @TAB)

    GUICtrlSetData($TitleInput, $LoadData[1])
    For $Number = 1 to 10
    $ArrayNumber=3 * $Number - 1
    GUICtrlSetData($Ing[$Number], $LoadData[$ArrayNumber])
    $ArrayNumber=3 * $Number
    GUICtrlSetData($Q[$Number], $LoadData[$ArrayNumber])
    $ArrayNumber=3 * $Number + 1
    GUICtrlSetData($QT[$Number], $LoadData[$ArrayNumber])
    Next
    GUICtrlSetData($InstructionBox, $LoadData[32])
    EndFunc

    Func Discard()
    $SaveTitleData = GUICtrlRead($TitleInput)
    $DeleteMsgBox = MsgBox(4, "Delete?", "Are you sure you want to delete your " & $SaveTitleData & " recipe?")
    If $DeleteMsgBox = 6 Then
    ResetInputs()
    If FileExists(@ScriptDir & "\SB-" & $SaveTitleData & ".txt") then FileDelete(@ScriptDir & "\SB-" & $SaveTitleData & ".txt")
    RecipeListBoxRefresh()
    EndIf
    EndFunc
    Attached Images Attached Images  

Page 3 of 3 FirstFirst 123

Similar Threads

  1. Replies: 1
    Last Post: 04-29-2007, 03:19 PM
  2. Nice Notepad ICON !!
    By bishooman in forum Centrafuse
    Replies: 0
    Last Post: 04-28-2007, 09:20 AM
  3. Notepad:new alternative
    By mauri in forum Road Runner
    Replies: 2
    Last Post: 11-19-2006, 12:52 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •