RAD purebasic (speedev)

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Nouvelle version B1.8

Nouveau système de filtre avec icone

Image
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Nouvelle version B1.9

Ajout de fenêtre personnalisée (en cours)
  • Table personnalisée
    • Colonnes calculée
  • Lien entre deux table
Image
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Patrick88
Messages : 1564
Inscription : mer. 21/janv./2004 18:24

Re: RAD purebasic (speedev)

Message par Patrick88 »

PB 5.24 LTS x64

version téléchargé 13/10/15. (date fichiers dans le zip)

menu "Fichiers annexes" / "Pays" / Editer ligne "Belgique" / sort par annuler / clique sur la loupe et ...
Plantage de l'appli / ligne 443 / module Tbl.pbi / il n'y a pas de gadgetlist actuellement
gIdFormShearch=StringGadget(#PB_Any,X,Y,W,H,"")

idem sur les autres fenêtres.

Quand on clique sur la loupe = sortie obligatoire par Touche entrée ou Echap, possible en cliquant "en dehors de la zone de saisie" ?
Possible de pas ouvrir l'appli "en plein écran" par défaut ?

Pat
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Merci pour l'info @Patrick88,

Je regarde à cela. Concernant la sortie du champ de recherche, cela doit être possible il faudra que j'étudie cela car pour pouvoir affiché un StringGadget, je doit désactivé le canvas. (donc il faudra que je gère l’événement dans la fenêtre)

PS: je confirme ton erreur décelée, hum à mon avis l"index de ma map saute à l'ouverture de la fenêtre fiche
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Voila le bug que Patrick88 a décelé est corrigé je réouvre simplement la gadgetlist de fenêtre

Code : Tout sélectionner

UseGadgetList(WindowID(GetActiveWindow()))
Version B1.10
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Voila j'ai ajouté la doc (chm) au pack, elle n'est pas encore révisée donc contient certainement beaucoup de fautes d'orthographe
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
GG
Messages : 239
Inscription : jeu. 09/déc./2004 12:23

Re: RAD purebasic (speedev)

Message par GG »

Je regarde pour la doc chm.

Peux tu me faire parvenir ton fichier source (speedev.hnd j'imagine) ?

Je corrige directement dedans.
PureBasic 6.03 - Windows 11 22H2 (64 bits)
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Nouvelle version B1.1
Add SetCustomTitle
Add SetEventSelectCallback
Add AddFilters
Add FreeFilters
Add RefreshTable
Mod AddCustomButton
Add AddCustomCalendar
Add DisableCustomCalendar
Add SetDefaultlabelSize
Add DisplayCustomForm
Add AddCustomString
Add DisableCustomString
Add SetCustomStringValues
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
blendman
Messages : 2017
Inscription : sam. 19/févr./2011 12:46

Re: RAD purebasic (speedev)

Message par blendman »

Salut Microdevweb

Un grand bravo pour ce Rad, même si je ne l'utilise pas, tu as un travail assez impressionnant dessus !
Je t'encourage vivement à continuer et n'hésites pas à poster aussi sur le forum anglais régulièrement ;)

Bonne continuation !
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Merci blendman :wink:
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
falsam
Messages : 7317
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: RAD purebasic (speedev)

Message par falsam »

Bonjour Microdevweb. Le fichier d'aide s'ouvre bien mais les pages sont vides. Je ne vois que le sidebar gauche avec l'index.
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
falsam
Messages : 7317
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: RAD purebasic (speedev)

Message par falsam »

Ton code de test étant un peut long. J'avais envie d’appréhender ton RAD avec ce code.

Code : Tout sélectionner

XIncludeFile "spd.pbi"

Enumeration 
  #Database
EndEnumeration

Enumeration Window
  #MainForm
  #PaysForm
EndEnumeration

Enumeration 
  #PaysTab
EndEnumeration

;Setup analyse
spd::InitDb("teste.sqlite")
spd::AddTable("pays")
spd::AddItem("pays","nom",spd::#TP_Varchar,30,#True,#True)
spd::BuildDb()

;Ouverture base de données contact
UseSQLiteDatabase()
OpenDatabase(#Database, "teste.sqlite", "", "", #PB_Database_SQLite)

;Création de la fenêtre table des pays
spd::CreateTableWindow(#PaysTab,"pays","Liste des pays",400,600,120,30,#PaysForm,#MainForm)
spd::SetTableFormOrder(#PaysTab,"pays.nom ASC")
spd::AddColumn("Nom","nom",400)
spd::EnableColumnShearch()

;Création de la fenêtre fiche des pays
spd::CreateSheetWindow(#PaysForm,"pays",180,30,1,"Nouveau pays","Edition d'un pays")
spd::AddStringToSheet("Pays","nom",spd::#Mask_FirstUper)

;Denetre principale de l'application
If OpenWindow(#MainForm, 0, 0, 1024, 768, "Test Speed Dev", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)      
  
  spd::DisplayTableWindow(#PaysTab)    
  
  Repeat:WaitWindowEvent():ForEver
EndIf
et j'ai une erreur. Tu pourras le tester aisément et me dire ce qui ne vas pas car je me sers de ta base de données de test. Merci.
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
falsam
Messages : 7317
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: RAD purebasic (speedev)

Message par falsam »

Bug dans ton application test.

- Menu Fichiers principale - > Clients
- Fais une recherche sur durant et quitte la fenêtre sans faire autres chose.

- Menu Fichiers principale - > Factures
- Essayes de cliquer sur la deuxième facture. Tu devrais obtenir une erreur.
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
microdevweb
Messages : 1802
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: RAD purebasic (speedev)

Message par microdevweb »

Bonjour Falsam,

Merci pour tes remarques constructives :wink:
falsam a écrit :Bonjour Microdevweb. Le fichier d'aide s'ouvre bien mais les pages sont vides. Je ne vois que le sidebar gauche avec l'index.

:?: Oui en effet je vais regarder à cela
falsam a écrit :Ton code de test étant un peut long. J'avais envie d’appréhender ton RAD avec ce code.

Code : Tout sélectionner

XIncludeFile "spd.pbi"[/quote]

Oui c'est possible, mais pour cela il faut que je fasse une procédure ImportDb (que je comptais faire)

[quote="falsam"]Bug dans ton application test.

- Menu Fichiers principale - > Clients
- Fais une recherche sur durant et quitte la fenêtre sans faire autres chose.

- Menu Fichiers principale - > Factures
- Essayes de cliquer sur la deuxième facture. Tu devrais obtenir une erreur.
[/quote]

Premier bug normal parce que je bloque le canvas pour afficher le StringGadget (il faut sortir avec return ou esc), solution que j'avais envisager, si un click sur la fenêtre je ferme le string gadget, mais j'enlève également le filtre (ce qui est pas top). 
Autre solution remplacer le stringGadget) par un éditeur maison (mais alourdi le code).
Autre solution fermer le String si click sur la fenêtre, laisser le filtre et changer l'icone pour indiqué qu'il a un filtre

Deuxième bug, pas de bug chez moi.

Bonne nouvelle, avant le GDI (je trouve cela plus intéressant) je compte également faire une procédure [b]ExportHtml[/b], qui comme sont nom l'indique exporterais les fenêtre en HTML 5 et javascript, et PHP. 

Plus échange de données via requete HTTP (la il me faudra des conseilles pour la sécurité)

 Il faut que regarde cela également pour les [b]téléphones portables[/b] :roll: 
[url]http://www.scriptol.fr/mobile/native-vs-html5.php[/url]
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Micheao
Messages : 533
Inscription : dim. 07/déc./2014 10:12
Localisation : Sud-Est

Re: RAD purebasic (speedev)

Message par Micheao »

Bonjour microdevweb

Beau projet ce RAD et Bonne continuation
Répondre