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
    162
    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
    162
    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
    Confusion Master
    Auto Apps:loading...
    Enforcer's Avatar
    Join Date
    Sep 2003
    Location
    If you go down to the woods today, You're sure of
    Posts
    14,581
    Flash is not really my realm of expertise so no idea.

    However I might pursue a recipe plugin at some point.

  4. #24
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    162
    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 05:56 PM.

  5. #25
    Constant Bitrate
    Join Date
    Aug 2007
    Posts
    162
    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
    2,769
    Nice idea !!!

  7. #27
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,769
    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\notepad.exe|$SKINPATH$RECIPES\$recipe$.txt;$RECIP E$"
    "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
    2,769
    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\notepad.exe|$SKINPATH$RECIPES\$recipe$.txt;$RECIP E$"
    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
    162
    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
    162
    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, 02:19 PM
  2. Nice Notepad ICON !!
    By bishooman in forum Centrafuse
    Replies: 0
    Last Post: 04-28-2007, 08:20 AM
  3. Notepad:new alternative
    By mauri in forum Road Runner
    Replies: 2
    Last Post: 11-19-2006, 11:52 AM

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
  •